[Creat0R]

Скрипт не работает на другом компьютере. »

Такой скрипт не будет работать ни на каком компьютере.

[trudmoy]

На моем работает. Несколько подправил бардак по совету умных людей - результата пока нет.
Ирония - это хорошо, помощи бы еще. Я юноша в программировании или мальчик), как больше нравится. "Магические" задержки по времени нужны по задумке.

Код:

#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