Quantcast
Channel: Сообщество PHP DevelStudio - среда разработки программ
Viewing all articles
Browse latest Browse all 6336

[C#]Помогите со скриптом!

$
0
0
Решил написать программу типо движка для тех кто не знает как делать программы так вот куда кидать это скрипт
Скрытый текст:


#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



Viewing all articles
Browse latest Browse all 6336

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>