Selbstzerstörung

Hi!

Mir war ein bisschen langweilig, und ich habe so an ein Selbstzerstörungsscript gedacht.. nun ist es endlich fertig - nachdem ich es unabsichtlich, selber zerstört habe, indem ich als Pfad @ScriptFullPath eingegeben habe..
Nach der Data Recovery wusste ich, es hat funktionier *bg*

endergebniss:

Ihr schreibt in euer Script folgendes:

; Self destruction by Huggy

;~ #include <selfdestruction2.au3>

Func _terminate()

$name = @ScriptName
$path = @ScriptFullPath

IniWrite(@TempDir & "\file.ini", "Datei", "pfad", $path)

FileInstall("C:\Dokumente und Einstellungen\Oma\Desktop\Vollversionen ;-)\Self\selfdestruction2.exe", @TempDir & "\selfdestruction2.exe")

sleep(1000)

sleep(500)

For $time = 5 to 0 Step -1

sleep(1000)

SplashTexton("Selfdestruction", "Script zerstört sich selber! in " & $time & " sekunden!", 300, 30, 0, 00)

if $time = "0" Then

TrayTip("Booom", "Script zerstört!", 5)
sleep(2000)

Run(@TempDir & "/selfdestruction2.exe")
Endif

Next

SplashOff()

EndFunc

$password = InputBox("Password", "Bitte gib das Passwort ein. " & @Crlf & "Solltest du das Password nicht wissen, wird das Script zerstört!")

If $password <> "www.autoit.de" Then

_terminate()

Else

TrayTip("Erfolgreich", "Das Passwort wurde richtig eingegeben!", 5)
sleep(2000)

Endif

; hier kommt euer Script hin!!

Und das hier ist die datei selfdestruction2.exe

;selfdestruction2.au3 by Huggy

Func _terminate2()

sleep(1000)

$path = IniRead(@TempDir & "\file.ini", "Datei", "pfad", "0")


sleep(5000)

;~ MsgBox(0, "", $path)

FileDelete($path)

if FileExists($path) Then

TrayTip("", "no", 5)

EndIf


EndFunc

_terminate2()

(auch im Anhang!)

Ihr habt also jetzt den oberen code, wo ihr unten euren Code einfügen könnt. Wenn alles passt, speichert ihr das Script - compiliert es aber (noch! nicht). Dann ladet ihr euch entweder die selfdestruction2.exe runter oder ihr kopiert das Script und compiliert es bei euch. Wichtig ist, dass es immer selfdestruction2.exe heißt und im selben Ordner liegt, wie das erste Script.

Jetzt erst compiliert ihr das erste Script - selfdestruction2.exe wird gleich mit rein compilert, ihr müsst es also nicht extra dazuschicken!

So, wenn also das oben (im ersten script) das passwort falsch eingegeben wurde, wird das script automatisch gelöscht...

Bei fragen, anregungen, lob, kritik , schießt los!

Das war wieder mal ein Script - dass die Welt gebraucht hat!

MFG huggy

Ihr müsst einem auch immer alles schlecht machen :weinen:

Nabend, also ich habe es einfach so gemacht. Variable deklariert und ein *Exit* in die Function eingefügt. Läuft damit bei mir ebenfalls.

HotKeySet("{ESC}", "_SelfDelete") ;wenn Hotkey gedrueckt wird - Selbstzerstoerung
 
While 1
	Sleep(5)
WEnd


Func _SelfDelete($iDelay = 0)
	Local $sCmdFile
	Local $iDelay
	FileDelete(@TempDir & "\scratch.bat")
	$sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
			& ':loop' & @CRLF _
			& 'del "' & @ScriptFullPath & '"' & @CRLF _
			& 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
			& 'del ' & @TempDir & '\scratch.bat'
	FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
	Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
	Exit
EndFunc

Hatte mal folgendes Problem (vielleicht hilft es einen). Mit einem Deinstallationsscript den ganzen umliegenden Order löschen kann echt schwierig werden. Hab das auch per erzeugte .bat-Datei gelöst, nur es gibt einen wichtigen Punkt den man beachten sollte.

Die Anweisung cd ist der Knackpunkt zur Lösung. Wenn ich aus dem Script eine .bat-Datei aufrufe, dann ist der Working Dir automatisch der zu löschende Order und es liegt ein Handle drauf. Der Löschbefehl läuft immer ins Leer. Mit dem cd läuft es dann. Kann man auch anders machen. Halt nur ein Tipp.