Copy & delete itself

[ahmeddzcom]

Hello

must combine before trying

 

Run(@SystemDir  & '\cmd.exe /C copy "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)

If @ScriptDir = @TempDir Then
    MsgBox (0,"","4 Sec",4)
    Run(@SystemDir & '\cmd.exe /C del /F /Q "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)
Else
    Do
        Sleep(1000)
    Until FileExists(@TempDir & '\Self.exe')
    Run(@TempDir & '\Self.exe')
    MsgBox (0,"","3 Sec",3)
    Run(@SystemDir & '\cmd.exe /C del /F /Q "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)
EndIf

Download

 Self.au3

 

 

Self.au3

[guinness]

So how can I sued this in my own code? You haven't made it very configurable and I should know, as I create _SelfDelete().

[ahmeddzcom]

So how can I sued this in my own code? You haven't made it very configurable and I should know, as I create _SelfDelete().

i can't understand english well.

i creat this For Make Uninstall any software.

 

Edited September 29, 2015 by ahmeddzcom

[guinness]

Well this isn't uninstalling.

[ahmeddzcom]

 

Well this isn't uninstalling.

So What is This :

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Timers.au3>

Run(@SystemDir  & '\cmd.exe /C copy "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)

If @ScriptDir = @TempDir Then

$Form1 = GUICreate("Uninstall", 500, 200, -1, -1)
$BntRun = GUICtrlCreateButton("Uninstall", 150, 70, 200, 50)
GUICtrlSetState(-1, $GUI_DISABLE)
$checkbox1 = guictrlcreatecheckbox("  Accept Uninstall", 10, 20, 120, 25)

GUISetState(@SW_SHOW)

While 1

if guictrlread($checkbox1) = $gui_checked then
    GUICtrlSetState($BntRun, $GUI_ENABLE)
Else
    GUICtrlSetState($BntRun, $GUI_DISABLE)
EndIf

    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $BntRun

If Not FileExists(@ProgramFilesDir&"/NeT Off.On/Net.exe") And Not FileExists(@ProgramFilesDir&"/NeT Off.On/RunNet.exe")  Then
         MsgBox(0,"Note :","Error (1)" &@CR&@CR& _
        "        ( Error Files )")

        Run(@SystemDir & '\cmd.exe /C del /F /Q "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)
        Exit
EndIf

$Progress1 = GUICtrlCreateProgress(100, 140, 300, 30)
$Label1 = GUICtrlCreateLabel("%", 410, 140, 10, 17)
$Percent = GUICtrlCreateLabel("", 420, 140, 38, 18)

For $u = 0 To 100

    GUICtrlSetData($Percent,$u)
     GUICtrlSetData($Progress1,$u)
Sleep(20)

Next

ProcessClose("RunNet.exe")
ProcessClose("Net.exe")
DirRemove(@ProgramFilesDir&"/NeT Off.On",1)
DirRemove(@ProgramsDir&"/NeT Off.On",1)
FileDelete(@DesktopDir&"\NeT Off.On.lnk")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\NeT Off.On")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run","NeT Off.On")

If FileExists(@ProgramFilesDir&"/NeT Off.On/Net.exe") Or FileExists(@ProgramFilesDir&"/NeT Off.On/RunNet.exe")  Then
         MsgBox(0,"Note :","Error (2)" &@CR&@CR& _
        "        ( Error Files )")
        Exit
EndIf

Sleep(2000)

Run(@SystemDir & '\cmd.exe /C del /F /Q "' & @ScriptFullPath & '"', @TempDir, @SW_HIDE)
Exit

    EndSwitch
WEnd

Else
    Do
        Sleep(500)
    Until FileExists(@TempDir & '\Uninstall.exe')
    Run(@TempDir & '\Uninstall.exe')
    Exit
EndIf

 

Edited September 29, 2015 by ahmeddzcom

[guinness]

An entirely different snippet of code, that's what that is.