![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Как правильно записать скрипт |
|
[решено] Как правильно записать скрипт
|
Старожил Сообщения: 247 |
Local $check[6], $prog[6] $check[1] = GUICtrlCreateCheckbox("Прог1", 10, 30, 100, 15) $check[2] = GUICtrlCreateCheckbox("Прог2", 10, 55, 100, 15) $check[3] = GUICtrlCreateCheckbox("Прог3", 10, 80, 100, 15) $check[4] = GUICtrlCreateCheckbox("Прог4", 10, 105, 100, 15) $check[5] = GUICtrlCreateCheckbox("Прог5", 10, 130, 100, 15) $prog[1] = "Setup.exe" $prog[2] = "Seup2.exe" $prog[3] = "Seup3.exe" $prog[4] = "Seup4.exe" $prog[5] = "Seup5.exe" For $i = 1 to 5 If GUICtrlRead($check[$i]) = 1 Then RunWait($prog[$i]) EndIf Next |
|
Отправлено: 21:12, 19-04-2010 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать Centrinar,
А так попробуйте: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Dim $check[6], $prog[6] $prog[1] = "Setup.exe" $prog[2] = "Seup2.exe" $prog[3] = "Seup3.exe" $prog[4] = "Seup4.exe" $prog[5] = "Seup5.exe" $Form1 = GUICreate("", 100, 150, -1, -1) $check[1] = GUICtrlCreateCheckbox("Прог1", 10, 10, 100, 15) $check[2] = GUICtrlCreateCheckbox("Прог2", 10, 30, 100, 15) $check[3] = GUICtrlCreateCheckbox("Прог3", 10, 50, 100, 15) $check[4] = GUICtrlCreateCheckbox("Прог4", 10, 70, 100, 15) $check[5] = GUICtrlCreateCheckbox("Прог5", 10, 90, 100, 15) $Button1 = GUICtrlCreateButton("Button1", 10, 110, 80, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 For $i = 1 To 5 If GUICtrlRead($check[$i]) = 1 Then MsgBox(0, "", $prog[$i]) EndIf Next EndSwitch WEnd |
Отправлено: 21:56, 19-04-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 247
|
|
Отправлено: 22:13, 19-04-2010 | #3 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать Centrinar,
Может быть, это потому, что Вы используете RunWait и скрипт ждет, пока не отработает 1-ая программа. Я скомпилировал 5 скриптов вида MsgBox(0, "1", "1", 5) - ...- MsgBox(0, "5", "5", 5) и у меня все работает. |
Отправлено: 22:28, 19-04-2010 | #4 |
Старожил Сообщения: 247
|
согласен, но как сделать с RunWait, нужно что бы он не запускал следующую программу пока не закончил с предыдущей
|
|
Отправлено: 22:44, 19-04-2010 | #5 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать Centrinar,
Я же не знаю, что за программа Setup.exe, что она делает и сколько времени отрабатывает. Цитата:
|
|
Отправлено: 22:54, 19-04-2010 | #6 |
Старожил Сообщения: 247
|
Нашел свою тупую ошибку "Seup2.exe".Все работает СПС
|
Отправлено: 23:10, 19-04-2010 | #7 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Centrinar:
Кстати я бы так сделал, в целях оптимизации: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Только эту строку и нужно править для добавления новых, или удаления пунктов ;) Global $sProgs = 'Setup.exe=Прог1|Seup2.exe=Прог2|Seup3.exe=Прог3|Seup4.exe=Прог4|Seup5.exe=Прог5' Global Const $aProgs = StringSplit($sProgs, '|') Global $anCheckBoxes[$aProgs[0]+1] $Form1 = GUICreate("", 100, 150, -1, -1) $iTop = 10 For $i = 1 To $aProgs[0] $anCheckBoxes[$i] = GUICtrlCreateCheckbox(StringRegExpReplace($aProgs[$i], '^.*=', ''), 10, $iTop, 100, 15) $iTop += 20 Next $Button1 = GUICtrlCreateButton("Button1", 10, 110, 80, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 For $i = 1 To $aProgs[0] If GUICtrlRead($anCheckBoxes[$i]) = 1 Then $sProgName = StringRegExpReplace($aProgs[$i], '^.*=', '') $sProgExe = StringRegExpReplace($aProgs[$i], '=.*$', '') MsgBox(64, $sProgName, $sProgExe) EndIf Next EndSwitch WEnd |
|
------- Отправлено: 23:36, 19-04-2010 | #8 |
Старожил Сообщения: 247
|
Creat0R СПАСИБО!
|
Отправлено: 00:13, 20-04-2010 | #9 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - [решено] Как правильно записать установочный диск с Windows 7 с ISO-образа | Dima60576 | Microsoft Windows 7 | 14 | 04-01-2015 15:38 | |
DVD (VOB-MPEG2) Как и чем правильно записать на хард? | Vasil | Видео и аудио: обработка и кодирование | 22 | 11-08-2009 22:42 | |
Как правильно уписать скрипт резервного копирования | madmax24 | Microsoft Windows NT/2000/2003 | 2 | 14-01-2009 12:31 | |
[решено] скачал как бы образ фильма в папках,не знаю,как правильно записать | illusionmgs | Видео и аудио: обработка и кодирование | 9 | 12-09-2008 01:13 | |
Как правильно написать скрипт mailing-list | vadimiron | Вебмастеру | 7 | 14-01-2004 20:07 |
|