Z4masko
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #include <IE.au3> #include <GuiStatusBar.au3> #include <ProgressConstants.au3> #include <SendMessage.au3> #include <GUIConstants.au3> Dim $d=0 $Form1 = GUICreate("Тест тест тест", 699, 268, 227, 337) $Label1 = GUICtrlCreateLabel("Прогресс", 32, 24, 466, 137) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $progressbar1 = GUICtrlCreateProgress(24, 208, 657, 33) $Button1 = GUICtrlCreateButton("Кнопка", 584, 16, 113, 33, 0) GUISetState(@SW_SHOW) For $i = 0 to 13 step 1 $d += 7 $oIE = _IECreate ("http://yandex.ru/yandsearch?text=" & $i) _IELinkClickByText ($oIE,"расширенный поиск") Sleep (15000) _IEQuit ($oIE) Sleep (5000) GUICtrlSetData ($progressbar1,$d) Next | Вот например код программы, которая заходит на страничку yandex.ru и сразу в поиск вводит цифру одну, потом программа нажимает на строку «расширенный поиск», потом закрывает окно Експлорера, потом открывает новое окно експлорера, туда вводит yandex.ru и уже вводит другую цифру в поиск, потом нажимает на «расширенный поиск» и опять закрывает окно IE. Всего таких цифр 14. Перебор этих цифр отражает полоска прогресса внизу окна программы. Вот хотелось бы сделать так, чтобы в любой момент можно было прервать выполнение программы не нажимая CTRL+ ALT + Delete, и к тому же хотелось бы, чтобы программа не останавливалась во время ожидания нажатия какой либо кнопки GUI интерфейса, так как сами понимаете, что если например вставить бесконечный цикл с опросом нажатия кнопок, то программа просто будет останавливаться и ждать нажатия кнопки от пользователя. Если добавить, то вот что например получается: Код: #include <IE.au3> #include <GuiStatusBar.au3> #include <ProgressConstants.au3> #include <SendMessage.au3> #include <GUIConstants.au3> Dim $d=0 $Form1 = GUICreate("Тест тест тест", 699, 268, 227, 337) $Label1 = GUICtrlCreateLabel("Прогресс", 32, 24, 466, 137) GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif") $progressbar1 = GUICtrlCreateProgress(24, 208, 657, 33) $Button1 = GUICtrlCreateButton("Кнопка", 584, 16, 113, 33, 0) GUISetState(@SW_SHOW) For $i = 0 to 13 step 1 $d += 7 $oIE = _IECreate ("http://yandex.ru/yandsearch?text=" & $i) _IELinkClickByText ($oIE,"расширенный поиск") Sleep (15000) _IEQuit ($oIE) Sleep (5000) GUICtrlSetData ($progressbar1,$d) ; Цикл опроса GUI While 1 $msg = GUIGetMsg() if $msg = $GUI_EVENT_CLOSE then Exit Wend Next |
| Всего записей: 742 | Зарегистр. 05-11-2004 | Отправлено: 16:31 26-01-2009 | Исправлено: Z4masko, 16:36 26-01-2009 |
|