Добрый день! Спасибо за форум, очень помогли многие темы в решении некоторых задач, кое как написал скрипт, вроде и работает на примере только одной ссылки, но никак не могу сделать что бы скрипт поочередно переходил по ссылкам, которые я бы прописал и сохранял файлы по каждой ссылке с определенным именем.
Вот мой скрипт:
На сколько я понимаю его главный недостаток что он не завершается. Т.е. он сохранит файл с заданным именем, но потом как только он увидит еще одно окно Загрузка файла - тут же подхватывает и опять его сохраняет.
Такие пироги, вообщем по ссылке olololo он у меня заполняет форму жмет кнопку отправить, получает окно Загрузки файла и сохраняет его с именем 56000, хотелось бы что бы он затем переходил по ссылке ololololo2 делал тоже самое и сохранял файл с именем 56001, допустим
Вот мой скрипт:
На сколько я понимаю его главный недостаток что он не завершается. Т.е. он сохранит файл с заданным именем, но потом как только он увидит еще одно окно Загрузка файла - тут же подхватывает и опять его сохраняет.
Код:
#include <IE.au3>
$oIE = _IECreate ("http://olololololo.ru/loloolo")
$oForm = _IEFormGetCollection($oIE,0)
$oLogin = _IEFormElementGetObjByName($oForm,"plannedPlacementDate","0")
$oPass = _IEFormElementGetObjByName($oForm,"plannedPlacementDate","1")
_IEFormElementSetValue($oLogin,"01.01.2001")
_IEFormElementSetValue($oPass,"31.12.2012")
_IEFormElementCheckboxSelect ($oForm, 0, "hasOffer", 1, "byIndex")
Sleep(100)
_IEFormElementCheckboxSelect ($oForm, 0, "hasContract", 1, "byIndex")
Sleep(100)
$sSubmit = _IEGetObjByName($oForm, "commit")
_IEAction($sSubmit, "click")
While 1
Select
Case WinExists ("Загрузка файла", "Со&хранить") And WinActive ("Загрузка файла", "Со&хранить")
ControlClick ("Загрузка файла", "Со&хранить", "[CLASS:Button; INSTANCE:2]")
Case WinExists ("Сохранить как","Со&хранить") And WinActive ("Сохранить как","Со&хранить")
ControlSetText ("Сохранить как", "", "[CLASS:Edit; INSTANCE:1]", "56000.xml")
ControlClick ("Сохранить как", "Со&хранить", "[CLASS:Button; INSTANCE:2]")
Case WinExists ("Сохранить как", "&Да") And WinActive ("Сохранить как", "&Да")
;~ если файл уже существует, то он переписывается
ControlClick ("Сохранить как", "&Да", "[CLASS:Button; INSTANCE:1]")
Case WinExists ("Загрузка завершена.") And WinActive ("Загрузка завершена.")
ControlClick ("Загрузка завершена.", "", "[CLASS:Button; INSTANCE:4]")
Exit
EndSelect
WEnd
Такие пироги, вообщем по ссылке olololo он у меня заполняет форму жмет кнопку отправить, получает окно Загрузки файла и сохраняет его с именем 56000, хотелось бы что бы он затем переходил по ссылке ololololo2 делал тоже самое и сохранял файл с именем 56001, допустим