Версия AutoIt: Любая.
Описание: Нужно чтобы программа брала прокси из листа .txt,используя проки заходила на страницу "www.primer.ru",клика по тексту "TblK!",затем будет появляться новое окно,в окне нужно кликнуть по ссылке "ssblka.ru",после перехода тыкнуть по изображению "/img.jpg".
Пример просто смену прокси и перехода по ссылкам:
Примечания: Да вроде и так всё расписал.
Описание: Нужно чтобы программа брала прокси из листа .txt,используя проки заходила на страницу "www.primer.ru",клика по тексту "TblK!",затем будет появляться новое окно,в окне нужно кликнуть по ссылке "ssblka.ru",после перехода тыкнуть по изображению "/img.jpg".
Пример просто смену прокси и перехода по ссылкам:
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>
OnAutoItExitRegister("_Exit")
_Save()
;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\replacement.txt", $aProxies) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
;загружаем сайты
Dim $aSites[3] = ["ya.ru", "google.com", "mail.ru"]
;создаем объект $oIE
$oIE = _IECreate ()
For $i = 1 To $aProxies[0]
_ProxyChange($aProxies[$i])
For $j = 0 To UBound($aSites) - 1
$sURL = $aSites[$j]
_IENavigate($oIE, $sURL, 1)
MsgBox(0,0,'')
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