Страница: 1 |
Страница: 1 |
Вопрос: Помогите пожалуйста с VB6
Добавлено: 15.12.11 19:17
Автор вопроса: Миля
помогите пожалуйста,как сделать так,чтобы при нажатии на кнопку,в форме открывался ехе файл уже существующий у меня на компьютере?
Ответы
Всего ответов: 15
Номер ответа: 1
Автор ответа:
fAndOrIn
Вопросов: 5
Ответов: 344
Профиль | | #1
Добавлено: 15.12.11 19:33
Номер ответа: 2
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #2
Добавлено: 15.12.11 23:35
я так пыталась сделать,программа говорит,что нет объекта,а может быть его еще и в модуле класса надо добавить?
Номер ответа: 3
Автор ответа:
Father
Вопросов: 0
Ответов: 159
Профиль | | #3
Добавлено: 16.12.11 06:25
Фандорину Привет!
Тоже зашел по старой памяти.
Номер ответа: 4
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #4
Добавлено: 17.12.11 01:20
Номер ответа: 5
Автор ответа:
VbStarter
ICQ: 357911808
Вопросов: 118
Ответов: 1340
Web-сайт:
Профиль | | #5
Добавлено: 17.12.11 01:33
модули класса тут не причём это вб6. у тебя точно в указанной шеллу директории лежит прописанный в конце пути файлик?
нет объекта. что за бред? точный текст ошибки в студию.
Номер ответа: 6
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #6
Добавлено: 17.12.11 08:53
теперь все запускается,но выходит,что прекращена работа программы((((
Номер ответа: 7
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #7
Добавлено: 17.12.11 09:03
я попыталась другой ехе запустить,получилось)
Номер ответа: 8
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #8
Добавлено: 17.12.11 09:15
теперь мне нужно этот ехе зашифровать(((,а потом расшифровать((((
Номер ответа: 9
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #9
Добавлено: 17.12.11 19:34
(((
Номер ответа: 10
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #10
Добавлено: 18.12.11 16:56
помогите пожалуйста изменить код программы.
Private Sub DoEncrypt()
Dim csCrypt As New clsCrypto
csCrypt.Password = txtPassword.Text
csCrypt.InBuffer = txtOriginal.Text
If Not csCrypt.GeneratePasswordKey Then
Exit Sub
End If
If Not csCrypt.EncryptMessageData Then
Exit Sub
End If
txtEncrypted.Text = csCrypt.OutBuffer
End Sub
Private Sub cmdEncrypt_Click()
If txtPassword.Text = "" Then
MsgBox "Âû äîëæíû ââåñòè ïàðîëü äëÿ òîãî,÷òîáû ïðî÷èòàòü çàøèôðîâàííîå ñîîáùåíèå"
txtPassword.SetFocus
ElseIf txtOriginal.Text = "" Then
MsgBox "Ââåäèòå òåêñò äëÿ øèôðîâàíèÿ"
txtOriginal.SetFocus
Else
 oEncrypt
End If
End Sub
здесь описано симметричное шифрование текста,мне нужно ехе файл зашифровать,подскажите пожалуйста где,как и что нужно поменять(((
Номер ответа: 11
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #11
Добавлено: 19.12.11 11:35
помогите пожалуйста(((
Номер ответа: 12
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #12
Добавлено: 19.12.11 22:13
Почему все молчите((((?
Номер ответа: 13
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #13
Добавлено: 20.12.11 13:43
мои варианты:
1) никому не интересно разговаривать про код на языке 11летней давности
2) все ждут твоего ню-фото, чтобы поговорить про код на этом языке
3) все считают, что тебе стоит учиться пользоваться поисковиком
Номер ответа: 14
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #14
Добавлено: 20.12.11 14:42
забыл добавить (((
Номер ответа: 15
Автор ответа:
Миля
Вопросов: 1
Ответов: 9
Профиль | | #15
Добавлено: 23.12.11 19:56
помогите пожалуйста передать файл с клиента на сервер!