$war3 = InputBox("...", "Ваш пароль:","")
#include <IE.au3>
Local $oIE = _IECreate("...")
$Comment = _IEGetObjById($oIE, 'login')
_IEFormElementSetValue($Comment, '...')
$Comment = _IEGetObjById($oIE, 'password')
_IEFormElementSetValue($Comment, $war3)
$Button = _IEGetObjByName($oIE, 'Submit')
_IEAction($Button, 'Click')
if _IELinkClickByText($oIE,"autoit") then; начиная отсюда до while не работает!
_IENavigate($oIE, "...")
$war = True
elseif Not $war then
exit
EndIf
while "Прикормить супом"
$i=1
do
_IELinkClickByText($oIE,"Лаборатории")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Приободрить всех")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Накормить всех")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Складировать все")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Подготовить все")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Изготовить везде Мазь для суставов")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Посмотреть подарки")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Читать")
_IELoadWait($oIE)
$i=$i+1
until $i=20
sleep(2000)
$i=1
do
_IELinkClickByText($oIE,"Автопарк")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Подсказать маршрут")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Назначить курс лечения")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Да, купить")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Осмотр и мойка машины")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Отправить всех на вызовы по событию")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Заправить все")
_IELoadWait($oIE)
$i=$i+1
until $i=2
sleep(2000)
do
_IELinkClickByText($oIE,"Палаты")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Осмотреть всех")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Использовать медикаменты")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Выписать всех")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Убрать всё")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Принять пациентов по событию")
_IELoadWait($oIE)
_IELinkClickByText($oIE,"Напоить всех")
_IELoadWait($oIE)
$i=$i+1
until $i=5
WEnd
