Скрываем свой 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