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