Версия AutoIt: v3 .
Описание: Скрипт должен брать значение прокси сервера из файла, открывать окно IE с заданной ссылкой, пролистывать страницу вниз, переходить по внутренним ссылкам. По истечению таймаута, перезапускаться.
Примечания: Самое главное, нужна возможность перезапуска скрипта по определённым заголовкам IE. Т.е. если прокси сервер оказался дохлым и IE выдал "Невозможно загрузить страницу"(желательно чтобы проверка была по нескольким видам заголовков, т.к. прокси выдают разные ошибки), происходил перезапуск скрипта.
На данный момент сваял такое решение:
skype: fady_fadeev
Описание: Скрипт должен брать значение прокси сервера из файла, открывать окно IE с заданной ссылкой, пролистывать страницу вниз, переходить по внутренним ссылкам. По истечению таймаута, перезапускаться.
Примечания: Самое главное, нужна возможность перезапуска скрипта по определённым заголовкам IE. Т.е. если прокси сервер оказался дохлым и IE выдал "Невозможно загрузить страницу"(желательно чтобы проверка была по нескольким видам заголовков, т.к. прокси выдают разные ошибки), происходил перезапуск скрипта.
На данный момент сваял такое решение:
Код:
#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://www.ru/")
Sleep(6000)
$sHeight = $oIE.document.body.scrollHeight
$oIE.document.parentwindow.scrollTo(0, $sHeight)
Sleep(1860000)
_IELinkClickByText ($oIE, "БЛАБЛА")
Sleep(10000)
$sHeight = $oIE.document.body.scrollHeight
$oIE.document.parentwindow.scrollTo(0, $sHeight)
Sleep(10000)
_IEQuit($oIE)
Next
While 1
If GUIGetMsg() = -3 Then
ShellExecute(@ScriptFullPath)
Exit
EndIf
Wend
Func _Exit()
Exit
EndFunc
skype: fady_fadeev