[решено] Административная программка - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Административная программка (http://forum.oszone.net/showthread.php?t=138282)

Административная программка

Ребят сделал несколько скриптов по автоматической установке, теперь бы хотел и все совместить в одну форму где можно было отмечать галочкой что ставить а что нет.
Подскажиет с чего начать. Можно было бы все вместе в один скрип впихнуть, но хочется чтобы был выбор, чего ставить. Привел примерную форму сделана с помощью Koda.
#include <GUIConstants.au3>

$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

можно так:

Код:

#region: - Options

    Opt('GUIOnEventMode',       1)

;~  Opt('MustDeclareVars',      1);

    Opt('TrayIconDebug',        1)

    Opt('TrayIconHide',         0)

#endregion



#include <GUIConstants.au3>

;~ #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,
Заключайте пожалуйста куски кода в соответствующие теги.