self deleting script

[BubbleGumDancer 0]

My link

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    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 %0'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc;==>_SelfDelete

I tryed to make a script self delete itself but when the function is called it has a line error here :

$sCmdFile = 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _

I did not edit it but could I just be applying this function badly?

[xPloit 0]

I'm pretty fluent in batch and I think you could make your batch file a bit more stable. It could solve your problem (not sure if it will, but worth a shot). So here is the batch file I would use for something like this

timeout /t [TIME IN SECONDS]
:Loop
if exist [FILE NAME] del [FILE NAME] && del %0
goto Loop

I would use timeout instead of ping. It's easier to use and generally more stable

The 1st line of the Loop routine is much more stable than what you have. Using a double & will make it so that the 2nd part only happens if the first part happens. If it cannot find your file (or if it cannot delete it) then it will not del %0 and it will move on to the next line (keep looping).

Give that batch a try and see if it works for you!

[Bert 1,269]

Look in the FAQ sticky.

[Borje 0]

Hi BubbleGum Danser

Test this !

Run(@ComSpec & ' /c del ' & @ScriptName, @ScriptDir, @SW_HIDE) ; End of the script