самоуничтожение программы / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / самоуничтожение программы

6 сообщений из 6, страница 1 из 1

самоуничтожение программы

#32272684

Nrisimha

Участник

Откуда: Space

Сообщения: 485

Рейтинг: 0 / 0

Как сделать самоуничтожение программы? Приведите плиз пример.

...

Рейтинг:

0 / 0

23.09.2003, 11:42

| Ответить | Цитировать | Написать

самоуничтожение программы

#32272702

mahoune

Участник

Откуда: Moscow

Сообщения: 5 464

Рейтинг: 0 / 0

А в чем трабла?

...

Рейтинг:

0 / 0

23.09.2003, 11:51

| Ответить | Цитировать | Написать

самоуничтожение программы

#32272706

Nrisimha

Участник

Откуда: Space

Сообщения: 485

Рейтинг: 0 / 0

Юзер запускает программу exe (Vb6.0) , программа делает необходимые обновления и самоудаляется :-)

...

Рейтинг:

0 / 0

23.09.2003, 11:54

| Ответить | Цитировать | Написать

самоуничтожение программы

#32272709

Hibernate

Участник

Откуда: Киев

Сообщения: 1 353

Рейтинг: 0 / 0

поищи на vbrussian.com видел точно.

...

Рейтинг:

0 / 0

23.09.2003, 11:54

| Ответить | Цитировать | Написать

самоуничтожение программы

#32272724

Nrisimha

Участник

Откуда: Space

Сообщения: 485

Рейтинг: 0 / 0

Спасибо Hibernate

вот оно

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub Command1_Click()
'-----------Создает батфайл---------------
Open App.Path + "\Delself.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe"
Print #1, "if exist " + App.EXEName + ".exe goto try"
Print #1, "del " + App.Path + "\Delself.bat"
Close
' --------------------------------
 
Shell App.Path +  "\Delself.bat" , vbHide
End Sub

...

Рейтинг:

0 / 0

23.09.2003, 12:07

| Ответить | Цитировать | Написать

самоуничтожение программы

#32273150

Processor

Участник

Сообщения: 907

Рейтинг: 0 / 0

"Самоуничтожение" предполагает, что программа сама определяет условия, когда нужно и когда можно "самоликвидироваться".
Мне пришлось вставить в одну из своих программ такую обработку:
1. При загрузке программ определяет наличие своей новой версии на общедоступном сервере и, если дата серверной копии - свежая, принимает решение, что "нужно".
2. Так как она уже загружена в память, то породивший её файл заблокирован и не может быть удалён. Как в обряде "сэпукку", должен быть ассистент, отрубающий голову после вспарывания живота: такой процесс и запускается из этой "суицидной" программы. Программа же завершает свою работу.
3. Ассистент закрывает все копии уничтожаемой программы, дожидается завершения их работы и только после этого замещает "старый" ехе-шник новым.

Приведенный bat-ник не закрывает копии программ, поэтому может "циклить".
Ассистент использует следующие функции API:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Public Declare Function GetWindowText Lib  "user32"  Alias  "GetWindowTextA"  (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function EnumWindows Lib  "user32"  (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Declare Function SendMessage Lib  "user32"  Alias  "SendMessageA"  (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function GetExitCodeProcess Lib  "kernel32"  (ByVal hProcess As Long, ByRef lpExitCode As Long) As Long

"Убиение окон" реализовано на основе кода http://sharig.webzone.ru/vbcode/09_wind/173.htm

...

Рейтинг:

0 / 0

23.09.2003, 15:30

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / самоуничтожение программы

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=32272724&tid=2170715]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	50ms
get topic data:	11ms
get forum data:	2ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	359ms

total:	503ms