Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>
OnAutoItExitRegister("_Exit")
_Save()
;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\proxy.txt", $aProxies) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
;загружаем сайты
Dim $aSites[1] = ["http://gamem1x.ucoz.com/"]
;создаем объект $oIE
$oIE = _IECreate ()
For $i = 1 To $aProxies[0]
_ProxyChange($aProxies[$i])
For $j = 0 To UBound($aSites) - 1
$sURL = $aSites[$j]
ConsoleWrite("Referer -> " & _IEPropertyGet($oIE,"yandex.ru") & @CRLF)
_IENavigate($oIE, $sURL, 1)
Next
Next
Exit
;тут клики по банерам.
;Меняем прокси
Func _ProxyChange($sProxy = '')
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc
;Сохраняем значения прокси
Func _Save()
Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc
;Загружаем значения прокси
Func _Load()
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc
;По выходу загружаем сохраненные настройки прокси
Func _Exit()
_Load()
MsgBox (0,0, "Вышли из программы")
Exit
EndFuncВ этот код нужно добавить клики по банерам.
Сами банеры:
Их адреса:
1./DO.jpg
2./BG.gif
3./SF.jpg
4./DE.jpg
5./UR.gif
6./FA.gif
Пример перехода по картинкам:
Код:
#include <IE.au3> ; подключаем библиотеку для работы с InternetExplorer
$sUrl = 'http://dragcave.net' ; ссылка на страницу
$oIE = _IECreate($sUrl) ; открываем IE на нужной странице
$sSrc = '/layout/header.gif' ; в переменную пишем наш источник картинки
While 1 ; запуск бесконечного цикла
_IEImgClick($oIE, $sSrc, 'src') ; сам клик по картинке
Sleep(5000) ; спим 5 секунд
WEnd ; повторяем циклПри этом надо чтобы кликало по всем банерам от 1 до 6,и только потом меняло прокси.
