Скрываем IP компьютера через онлайн сервис

[Sergey2210]

Версия AutoIt:3.

Написал скрипт для скрытия Ip и перехода по нужному адрессу,
но мне нужно чтоб скрипт считывал адреса с ini файла и
переходил по ним со скрытым ip.И ещё,на сайте anon.rengo.ru
есть Настройки анонимности как мне поставить галочки на них?

Пример:

#include <IE.au3>

Dim $sURL = "http://internet.yandex.ru"

$oIE = _IECreate("http://anon.rengo.ru/")
$oURL = _IEGetObjByName($oIE, "URL")
_IEFormElementSetValue($oURL, $sURL)

$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs
    If $oInput.type = "Submit" Then
        _IEAction($oInput,"Click")
    EndIf
Next

INI файл такого вида:

[anonim]
1=www.vkontakte.ru
2=www.mail.ru
3=www.yandex.ru

Добавлено:

Сообщение автоматически объединено: 24 Май 2011

У меня получилось так,с галочками тоже разобрался:

Спойлер

#include <IE.au3>

Dim $sURL = ""

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$hForm = GUICreate("Aнонимайзер", 1000, 600, -1, -1, -1, 0x00000080)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1000, 600)
GUISetState()

$ReadURL = IniReadSection(@ScriptDir & "\url.ini","anonim")
For $i = 1 To $ReadURL[0][0]
	$sURL = $ReadURL[$i][1]
	IPAnonim()
	WinSetTitle($hForm,'',"Aнонимайзер - " & $sURL)
Next	

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
	EndSwitch
WEnd

Func IPAnonim()
	_IENavigate($oIE, "anon.rengo.ru")
    $oURL = _IEGetObjByName($oIE, "URL")
    _IEFormElementSetValue($oURL, $sURL)
    $orc = _IEGetObjByName($oIE, "rc")	
    _IEAction($orc,"Click")
    $ors = _IEGetObjByName($oIE, "rs")	
    _IEAction($ors,"Click")	
    $obr = _IEGetObjByName($oIE, "br")	
    _IEAction($obr,"Click")		
    $oInputs = _IETagNameGetCollection ($oIE, "input")
    For $oInput In $oInputs
        If $oInput.type = "Submit" Then
            _IEAction($oInput,"Click")
        EndIf
    Next
EndFunc

Но проблема в том что открывается каждая страница
со следующим адресом в списке,как сделать чтобы
скрипт ждал до полной загрузки страницы и ещё
чуть-чуть примерно 5сек. потом закрывал и всё по новой со
следующим адрессом.

 

[Fever]

_IENavigate ($oIE, $sURL, 1); ждать до полной загрузки станицы
sleep(5000) ;и ещё 5 секунд

 

[madmasles]

Sergey2210

#include <IE.au3>

Dim $sURL = "http://internet.yandex.ru"

$oIE = _IECreate("http://anon.rengo.ru/")
$oURL = _IEGetObjByName($oIE, "URL")
_IEFormElementSetValue($oURL, $sURL)

$oInputs = _IETagNameGetCollection($oIE, "input")
For $oInput In $oInputs
	If $oInput.type = "Submit" Then
		_IEAction($oInput, "Click")
		ExitLoop
	EndIf
Next
_IELoadWait($oIE)
Sleep(5000)
MsgBox(64, 'Info', 'OK')

Или так:

#include <IE.au3>

$sURL = 'http://internet.yandex.ru'
$oIE = _IECreate('http://anon.rengo.ru/')
$oForm = _IEGetObjByName($oIE, 'anonform')
$oURL = _IEFormElementGetObjByName($oForm, 'URL')
_IEFormElementSetValue($oURL, $sURL)
For $i = 0 To 2
	_IEFormElementCheckBoxSelect($oForm, $i, '', 1, 'byIndex')
Next
_IEFormSubmit($oForm, 0)
_IELoadWait($oIE)
Sleep(5000)
MsgBox(64, 'Info', 'OK')

 

[Sergey2210]

Спасибо всем,работае