PDA

Показать полную графическую версию : [решено] Административная программка


Alex_a_ndr
21-04-2009, 12:39
Ребят сделал несколько скриптов по автоматической установке, теперь бы хотел и все совместить в одну форму где можно было отмечать галочкой что ставить а что нет.
Подскажиет с чего начать. Можно было бы все вместе в один скрип впихнуть, но хочется чтобы был выбор, чего ставить. Привел примерную форму сделана с помощью 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

proxy
21-04-2009, 13:05
можно так:
#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
21-04-2009, 13:35
Спасибо попробую

Creat0R
21-04-2009, 15:15
Alex_a_ndr,
Заключайте пожалуйста куски кода в соответствующие теги (http://forum.oszone.net/misc.php?do=bbcode#code).




© OSzone.net 2001-2012