Что нового

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

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Версия 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


Добавлено:
Сообщение автоматически объединено:

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

Код:
#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

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

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
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')
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Спасибо всем,работае :smile:
 
Верх