Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Административная программка

Ответить
Настройки темы
[решено] Административная программка

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 12:39, 21-04-2009

 

Аватара для proxy

Старожил


Сообщения: 460
Благодарности: 152

Профиль | Отправить PM | Цитировать


можно так:
Код: Выделить весь код
#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

-------
Мысли-читатель сломался, может подробней расскажите?
А где исходный код? Или мы стихи обсуждаем?! )) Настройки темы > Решено ?


Отправлено: 13:05, 21-04-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 13:35, 21-04-2009 | #3


Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Alex_a_ndr,
Заключайте пожалуйста куски кода в соответствующие теги.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 15:15, 21-04-2009 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Административная программка

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Что за программка такая? Amistoso Хочу все знать 12 06-12-2009 22:35
C/C++ - [решено] простейшая программка.... помогите пожалуйста DruOleg Программирование и базы данных 5 12-07-2008 02:21
Моя программка - БД по ключикам установки. alex_84 Автоматическая установка приложений 6 21-05-2008 08:28
программка поиска картинок Stin Защита компьютерных систем 3 22-09-2005 15:16
Программка для печати из MS-DOS Boets Программирование и базы данных 2 06-01-2004 14:17




 
Переход