[решено] Административная программка

[Alex_a_ndr]

Ребят сделал несколько скриптов по автоматической установке, теперь бы хотел и все совместить в одну форму где можно было отмечать галочкой что ставить а что нет.

Подскажиет с чего начать. Можно было бы все вместе в один скрип впихнуть, но хочется чтобы был выбор, чего ставить. Привел примерную форму сделана с помощью Koda.

#include



$Form1 = GUICreate("Form1", 554, 240, 193, 125)

$Group1 = GUICtrlCreateGroup("Для офиса", 8, 8, 265, 196)

$Checkbox1 = GUICtrlCreateCheckbox("Microsoft Office 2003", 24, 56, 169, 17)

$Checkbox2 = GUICtrlCreateCheckbox("Mazillla FireFox", 24, 80, 97, 17)

$Checkbox3 = GUICtrlCreateCheckbox("Foxit PDF Reader", 24, 104, 97, 17)

$Checkbox4 = GUICtrlCreateCheckbox("ICQ", 24, 128, 97, 17)

$Checkbox5 = GUICtrlCreateCheckbox("Total Commander", 24, 152, 121, 17)

$Checkbox7 = GUICtrlCreateCheckbox("The Bat!", 24, 176, 97, 17)

$Checkbox9 = GUICtrlCreateCheckbox("1С Предприятие v8.1", 24, 32, 169, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Для аптеки", 284, 8, 265, 193)

$Checkbox8 = GUICtrlCreateCheckbox("1С Предприятие v7.7", 296, 32, 145, 17)

$Checkbox10 = GUICtrlCreateCheckbox("Мастер удаленного подключения", 296, 56, 217, 17)

$Checkbox11 = GUICtrlCreateCheckbox("Драйвер Штрих-М ", 296, 80, 121, 17)

$Checkbox13 = GUICtrlCreateCheckbox("Драйвер Сканера Штрих кода", 296, 104, 233, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button1 = GUICtrlCreateButton("Ну с богом", 432, 208, 107, 25, 0)

GUISetState(@SW_SHOW)



While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit



EndSwitch

WEnd

[proxy]

можно так:



Код:

Код: Выделить всё

#region: - Options
    Opt('GUIOnEventMode',       1)
;~  Opt('MustDeclareVars',      1);
    Opt('TrayIconDebug',        1)
    Opt('TrayIconHide',         0)
#endregion
#include 
;~ #include "название AutoIt файла установки Office 2003"; файл должен находится рядом с этим файлом (в одной папке)ю либо весь код из этого файла перекопировать сразу сюда, в функцию _Install_Office2003()
;~ #include "название AutoIt файла установки FireFox"
;~ и т.д. по всем файлам авто-установки
$Form1 = GUICreate("Form1", 554, 240, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')
GUICtrlCreateGroup("Для офиса", 8, 8, 265, 196)
$Checkbox1 = GUICtrlCreateCheckbox("Microsoft Office 2003", 24, 56, 169, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Mazillla FireFox", 24, 80, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Foxit PDF Reader", 24, 104, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("ICQ", 24, 128, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Total Commander", 24, 152, 121, 17)
$Checkbox7 = GUICtrlCreateCheckbox("The Bat!", 24, 176, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("1С Предприятие v8.1", 24, 32, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Для аптеки", 284, 8, 265, 193)
$Checkbox8 = GUICtrlCreateCheckbox("1С Предприятие v7.7", 296, 32, 145, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Мастер удаленного подключения", 296, 56, 217, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Драйвер Штрих-М ", 296, 80, 121, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Драйвер Сканера Штрих кода", 296, 104, 233, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Ну с богом", 432, 208, 107, 25, 0)
    GUICtrlSetOnEvent(-1, '_Start_Install')
GUISetState(@SW_SHOW)
#region: - Sleep, Exit, OnAutoItExit
While 1
    Sleep(10)
WEnd
Func _Pro_Exit()
    Exit
EndFunc
#endregion
Func _Start_Install()
    If BitAnd($Checkbox1, 1) Then _Install_Office2003()
    If BitAnd($Checkbox2, 1) Then _Install_FireFox()
;~  и т.д. по всем чекбоксам
EndFunc
Func _Install_Office2003()
;~  Вывзов функции установки Office 2003
EndFunc
Func _Install_FireFox()
;~  Вывзов функции установки FireFox
EndFunc

[Alex_a_ndr]

Спасибо попробую

[Creat0R]

Alex_a_ndr,

Заключайте пожалуйста куски кода в

соответствующие теги

.