Что нового

Скрываем свой IP

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
AutoIt: 3.
Версия: 1.0

Категория: Автоматизация,Сеть

Описание: Вводим адресс сайта и входим на него уже с другим IP

Код/Пример:
Код:
#include <GUIConstantsEx.au3>
#include <IE.au3>

Dim $sURL = ""
Global $oRRC = 0
Global $oRRS = 0
Global $oRBR = 0

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$hForm = GUICreate("Aнонимайзер", 1000, 600, -1, -1, -1, 0x00000080)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1000, 530)
$Start = GUICtrlCreateButton("Старт",10,560,150,30)
$rc = GUICtrlCreateCheckbox("Удалять файлы Cookies",170,534,150,20)
$rs = GUICtrlCreateCheckbox("Удалять JavaScript",170,555,130,20)
$br = GUICtrlCreateCheckbox("Удалять Referer",170,576,130,20)
$Site = GUICtrlCreateInput("",10,535,150,20)
GUICtrlSetTip($Site,"Адресс сайта")
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Start 
            $RRC = GUICtrlRead($rc)
            If $RRC = 1 Then $oRRC = 1
            $RRS = GUICtrlRead($rs)
            If $RRS = 1 Then $oRRS = 1
            $RBR = GUICtrlRead($br)
            If $RBR = 1 Then $oRBR = 1
            $RSITE = GUICtrlRead($Site)
            If $RSITE <> '' Then $sURL = $RSITE
            IPAnonim()
    EndSwitch
WEnd

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

Файл: Anonimayzer.au3

Снимок:


История версий:
v1.0 Последняя

Источник: Русское сообщество AutoIt
Автор(ы): Sergey2210
 

Viktor1703

AutoIT Гуру
Сообщения
1 535
Репутация
410
А зачем Вам ссылочка? всё есть в Код/Пример
 

beliy

Продвинутый
Сообщения
372
Репутация
72
Имеется ввиду что сервис (anon.rengo.ru) на базе которого работал код уже не работает :(
 

Viktor1703

AutoIT Гуру
Сообщения
1 535
Репутация
410
Так это не проблема, ищем новый сервис и вставляем ссылку, модификация скрипта зависит от строения страницы сайта :smile:
 
Верх