_Lexa98_
Осваивающий
- Сообщения
- 551
- Репутация
- 25
AutoIt: 3.3.6.1
Версия: 1.0
Категория: Вспомогательные функции, Файловая система, Разное
Описание: Программа для "Склеивания" exe файлов
Код/Пример:
Файл: host-pic.ucoz.ru/Glue.zip
Снимок:

История версий:
Источник: autoit-script.ru
Автор(ы): _Lexa98_
Версия: 1.0
Категория: Вспомогательные функции, Файловая система, Разное
Описание: Программа для "Склеивания" exe файлов
Код/Пример:
Код:
#NoTrayIcon
Global $file1, $file2, $but1, $but2, $but3, $but4
$Gui = GUICreate("Glue", 300, 120, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateInput("Иконка", 2, 35, 250, 15)
$Input2 = GUICtrlCreateInput("Первый exe", 2, 55, 250, 15)
$Input3 = GUICtrlCreateInput("Второй 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 ("Склеить", 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, "Склеивание...")
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, "Склеено")
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
Файл: host-pic.ucoz.ru/Glue.zip
Снимок:

История версий:
1.0 - Первая
Источник: autoit-script.ru
Автор(ы): _Lexa98_