На моем работает. Несколько подправил бардак по совету умных людей - результата пока нет.
Ирония - это хорошо, помощи бы еще. Я юноша в программировании или мальчик
), как больше нравится. "Магические" задержки по времени нужны по задумке.
Код:
#include <IE.au3>
#Include <Array.au3>
#Include <Misc.au3>
Opt('TrayIconDebug', 1)
Opt('WinTitleMatchMode', 2)
HotKeySet('{ESC}', '_MyExit')
Global $oSabmit, $Links, $var, $title, $hFile, $Otchet[100], $i, $pos
Global Const $sProIDText = 'Автопилот'
If Not _Singleton($sProIDText, 1) Then
MsgBox(48, 'Внимание', 'Одна копия программы уже запущена') _MyExit()
EndIf
For $i=1 to 1
$oIE = _IECreate('http://travelpluse.weebly.com')
$oSubmit = _IEGetObjByName($oIE, 'tasemcity01')
If @error == 0 Then _IELinkClickByIndex($oSubmit, Random(7, 28, 1), 0)
Sleep(5000)
Else
MsgBox(48, '', 'Ссылки не нашел')
EndIf
$coord = PixelSearch(0, 0, 1024, 728, 0xFFD46C)
If @error==0 Then
MouseClick('left', $coord[0], $coord[1],1) ; проверка цены
$pos = MouseGetPos()
MouseMove($pos[0], $pos[1], 1)
Else
MsgBox(48, '', 'Пикселя нет')
Sleep(1000)
If WinExists('Предупреждение системы безопасности') Then Send('{Enter}')
EndIf Sleep(15000)
_IELoadWait($oIE)
While WinActive('Microsoft Internet Explorer')
$title = WinGetTitle('Microsoft Internet Explorer')
FileWriteLine(@ScriptDir & '\Otchet.txt', $title & @CRLF)
If BitAND(WinGetState($title), 2) Then
Sleep(Random(5000,10000,1000))
WinKill($title)
EndIf
WEnd
Sleep(Random(3000,7000,1000))
Next
MsgBox(48, 'НЕ ЗАБУДЬ!', 'ОТПРАВЬ ОТЧЕТ АВТОПИЛОТА')
Func _MyExit()
If ProcessExists('IEXPLORE.EXE') Then ProcessClose('IEXPLORE.EXE')
Exit
EndFunc ;==>_MyExit