![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Административная программка |
|
[решено] Административная программка
|
Новый участник Сообщения: 2 |
Ребят сделал несколько скриптов по автоматической установке, теперь бы хотел и все совместить в одну форму где можно было отмечать галочкой что ставить а что нет.
Подскажиет с чего начать. Можно было бы все вместе в один скрип впихнуть, но хочется чтобы был выбор, чего ставить. Привел примерную форму сделана с помощью 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 |
Старожил Сообщения: 460
|
Профиль | Отправить 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
|
Профиль | Отправить PM | Цитировать Спасибо попробую
|
Отправлено: 13:35, 21-04-2009 | #3 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Alex_a_ndr,
Заключайте пожалуйста куски кода в соответствующие теги. |
------- Отправлено: 15:15, 21-04-2009 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Что за программка такая? | 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 |
|