Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Samozniszczenie
PAWKO




Typ: neutral
Postów: 42
Zarejestrowany: Mar 2003
Samozniszczenie

Jak dokonać, aby aplikacja przy konczeniu dzialania kasowała swój plik z komputera?

17-02-2004 20:14
Pokaż profil PAWKO  Wyślij email do PAWKO   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Łatwo można, pod warunkiem, że drugi *.exe* ją delnie. Ale chyba nie o to Ci chodziło


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

17-02-2004 22:03
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

bardzo prosto:

na np. c:\ tworzysz plik o nazwie 1.bat i zawartości:

del c:\moj soft\program.exe
del c:\1.bat

ta druga linkijka to skasowanie samego siebie.
Plik BAT uruchamiasz ze swojego programu za pomoca instrukcji Shell (najlepiej z parametrem vbhide). Jedyny problem to... wielozadaniowosc, do pliku BAT nie wiem jak zrobic, aby np. uruchomil sie po zamknieciu programu, trzeba wymyslic cos, aby plik BAT sie zatrzymywal np. na 2 sekundy az program go uruchamiajacy spokojnie sie z pamieci wywali.


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

17-02-2004 22:26
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
PAWKO




Typ: neutral
Postów: 42
Zarejestrowany: Mar 2003

Juz mam. Bisiek mi pomógł.

Private Sub Form_Unload(Cancel As Integer)
Dim appPath As String
appPath = App.Path
If Right$(appPath, 1) <> "\" Then appPath = appPath & "\"
Open appPath & "Kasuj.bat" For Output As #1
Print #1, "Del " & GetShortPath(appPath & "AutoDes.exe"
Print #1, "Del " & GetShortPath(appPath & "Kasuj.bat"
Print #1, "Cls"
Close #1
ShellExecute Me.hwnd, vbNullString, "Kasuj.bat", vbNullString, appPath, SW_SHOWNORMAL
End Sub

17-02-2004 23:01
Pokaż profil PAWKO  Wyślij email do PAWKO   
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

utwórz binarny plik o nazwie t.com o zawartości (podaję kody ascii):

180,134,185,15,0,205,21,180,76,205,33

a plik bat tak zmodyfikuj:
t
del t
del program.exe
del 1.bat


ten plik t.com wstrzymuje działanie pliku BAT na 1,5 sekundy :-) Dzięki temu masz pewność że wywołujący plik BAT program zdąży się całkiem wyładować z pamięci i będzie większe prawdopodobieństwo, że zostanie on usunięty :-)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

18-02-2004 21:02
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1