Что нового

Перезапуск скрипта по заголовку окна IE

FADY

Новичок
Сообщения
6
Репутация
0
Здравствуйте уважаемые. Накидал такой скрипт по накрутке посещений сайта. Всё бы хорошо, да не все прокси живые. Можно ли как-нибудь сделать, чтобы скрипт перезапускался когда ослик выдаёт ошибку дескать страница не доступна и прочие.
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Dim $aRecords
FileOpen("C:\proxy.txt")
Dim $aProxy
If Not _FileReadToArray("C:\proxy.txt",$aProxy) Then
  MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
 EndIf
FileClose("C:\proxy.txt")
 For $x = 1 to $aProxy[0]
     $rnd=random(1,$aProxy[0],1)
     $key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
     $reg = RegWrite($key, "ProxyEnable", "REG_DWORD", "1")
     $reg1 = RegWrite($key, "ProxyServer", "REG_SZ", $aProxy[$rnd])
   DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
  $oIE = _IECreate ("http://ya.ru/")
Sleep(6000)
 _IEQuit($oIE)
Next
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
FADY,
Установите нужный Вам таймаут ожидания функцией _IELoadWaitTimeout() и, ИМХО, можно ничего не проверять.
 
Автор
F

FADY

Новичок
Сообщения
6
Репутация
0
Хм, не совсем Вас понимаю. В работающем скрипте параметр Sleep у меня равен 30 минутам, и получается, что если прокси оказался дохлым и ослик выдал 404-ю либо какую-то другую ошибку, скрипт эти 30 минут не работает. Вот я и хочу избежать таких простоев и тупо его перезапускать.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
FADY,
Код:
;~ ...
$sTitle = _IEPropertyGet($oIE, 'title')
ConsoleWrite($sTitle & @LF)
;~ ...
 
Верх