Jump to content

AutoDestroy()


Cyber
 Share

Recommended Posts

This is stupid function for destroy the compiled file :whistle:

;******* THIS ERASE THE COMPILED FILE!!!!! THE SOURCE FILE IS NOT DESTROYABLE
;@Params: nothing 
;@Returns: nothing but the compiled file is destroyed
Func _AutoDestroy()
    
    Do
        $destroFileTemp= "destroy.bat"
        $destroFileTemp = @MIN & @SEC & $destroFileTemp
    Until FileExists($destroFileTemp) = 0
        
    if @Compiled = 1 Then
        $file = FileOpen($destroFileTemp, 1)
        FileWriteLine($file, "pause")
        FileWriteLine($file, "del " & @ScriptFullPath)
        FileWriteLine($file, "del " & $destroFileTemp)
        FileClose($file)

        Run(@ScriptDir & "\" & $destroFileTemp);$s_Command & $s_Mask & '"', @WorkingDir, @SW_HIDE, 2+4)@ComSpec & "/c " & 
        Exit
    EndIf
EndFunc
Console Browse: Navigate on the WEB in a textual consoleMultiPing!: Show computer on the lan and/or show the local/remote task, ALL animated!KillaWin: Event executingCryptPage: Crypt your webpage and show only with key
Link to comment
Share on other sites

Did you ever opened abrev.properties?

Its under under options (I assume you use scite...).

Enter selfdelete, press [Control] and and tada:

Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & 'scratch.cmd'
    FileWrite(@TempDir & "scratch.cmd", $cmdfile)
    Run(@TempDir & "scratch.cmd", @TempDir, @SW_HIDE)
EndFunc
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...