Программирование
Веб программирование

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

 
 

Сегодня мы создадим программу на vb6 которая самоликвидируется т.е: она выполнит заложенные действия и удалится, код основан больше на bat чем на vb6, но суть в том что метод работает!

Private Sub Form_Load()
Open App.Path + "\Del.bat" For Append As #1 'создание bat файла в текущей папке
Print #1, "@echo off" 'если что то пойдёт не так то bat файл не будет выводить на экран то что делает
Print #1, "taskkill /f /im " + App.EXEName + ".exe" 'закрывает программу для того чтобы потом её удалить т.к включенную программу удалить не получится
Print #1, "ping -n 1 localhost > nul" 'задержка на 1 секнуду
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe" 'само уделение нашей программы
Print #1, "if exist " + App.EXEName + ".exe goto try"
Print #1, "ping -n 1 localhost > nul" 'задержка на 1 секунду
Print #1, "del " + App.Path + "\Del.bat" 'самоуничтожение файла который удалял нашу программу
Close 'закрытие файла
Shell App.Path + "\Del.bat", vbHide 'запуск созданного файла в скрытом режиме
End Sub

Есть вопросы? Спроси на нашем форуме!!
Саша [15.09.2012 23:26]

лучше объект app и оператор kill использовать.
kill app.path & "" & app.exename

Саша [15.09.2012 23:34]

хех, не всё так просто) Хотя как-то без api и batch я само удалялся...

Алексей(alex13sh) [15.09.2012 23:36]

ну да программа сама себя неудалит так как оно запуенно

Алексей(alex13sh) [15.09.2012 23:38]

Саша, а вы в чате появляетесь ?(который на сайте) Чтот я кажись вас неузнаю

Mishin870390 [04.06.2013 23:59]

на windows 7 не сработало, программа удаляется, а bat - нет.
чтобы работало надо заменить последний print на - Print #1, "del " & Chr(34) & "%0" & Chr(34) & " >nul"

ALLEX88 [13.08.2015 21:43]

А у меня вообще на 7-ке не сработало. Я подставлял не в Load Form , а как вариант условия, то ли bat'ник вообще не создается, то ли я хз.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.