Browser 自动IT代理IE对象

我想用一个代理来屏蔽我在网络上的ip冲浪——一个autoit浏览器！ 这是我的代码：

#NoTrayIcon
#include <GUIConstants.au3>
#Include <IE.au3>
#include <GUIConstantsEx.au3>
GUICreate("Web Browser By EMP£!!",800,600)
GUISetBkColor(0x808080)
GUISetState(@SW_SHOW)
$Edit=GUICtrlCreateInput("http://www.whatismyip.com/",20,20,500,20)
$Vai=GUICtrlCreateButton("SURF!!!",600,10,150,50)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 10, 90,780, 500)
$ret = HttpSetProxy(2,"61.163.78.51:3128")
If $ret == 0 Then
    MsgBox(0, "Proxy", "Proxy Error")
    Exit
EndIf
While 1
 $msg=GUIGetMsg()
     Switch $msg
     Case $Vai
$Link=GUICtrlRead($Edit)
_IENavigate($oIE,($Link))
   GUICtrlSetData($Edit,$Link)
  Case $GUI_EVENT_CLOSE
   Exit
       EndSwitch
WEnd

#非彩虹图标
#包括
#包括
#包括
GUICreate（“由EMP开发的Web浏览器！！”，800600）
GuisebkColor（0x8080）
GuiseState（@SW_SHOW）
$Edit=GUICtrlCreateInput（“http://www.whatismyip.com/",20,20,500,20)
$Vai=GUICtrlCreateButton（“冲浪！！！”，600,10150,50）
$oIE=ObjCreate（“Shell.Explorer.2”）
GUICtrlCreateObj（$1090780500）
$ret=HttpSetProxy（2，“61.163.78.51:3128”）
如果$ret==0，则
MsgBox（0，“代理”，“代理错误”）
出口
恩迪夫
而1
$msg=GUIGetMsg（）
开关$msg
案例$Vai
$Link=GUICtrlRead（$Edit）
_IENavigate（$oIE，（$Link））
GUICtrlSetData（$Edit，$Link）
案例$GUI\u事件\u结束
出口
终端开关
温德

---

我继续浏览，我可以看到我的真实ip地址！我想隐藏一个代理

HttpSetProxy功能仅用于

InetGet

，它对internet explorer设置没有影响。要为internet explorer窗口创建代理，您需要更改internet explorer设置

我会这样做：

#include <GUIConstants.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>

Global Const $sInetSettingsKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

GUICreate("Web Browser By EMP£!!", 800, 600)
GUISetBkColor(0x808080)
GUISetState(@SW_SHOW)
$Edit = GUICtrlCreateInput("http://www.whatismyip.com/", 20, 20, 500, 20)
$Vai = GUICtrlCreateButton("SURF!!!", 600, 10, 150, 50)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 10, 90, 780, 500)

MySetProxy("61.163.78.51:3128")

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $Vai
            $Link = GUICtrlRead($Edit)
            _IENavigate($oIE, ($Link))
            GUICtrlSetData($Edit, $Link)
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

MySetProxy()

Func MySetProxy($sProxy = "", $fEnable = True)
    Local Static $sPrev = ""
    Local Static $fWasEnabled = False

    If $sProxy = "" Then
        If $sPrev <> "" Then __setProxyInfo($fWasEnabled, $sPrev)
    Else
        If $sPrev = "" Then
            $sPrev = RegRead($sInetSettingsKey, "ProxyServer")
            $fWasEnabled = RegRead($sInetSettingsKey, "ProxyEnable")
        EndIf

        __setProxyInfo($fEnable, $sProxy)
    EndIf
EndFunc

Func __setProxyInfo($fEnabled, $sProxy)
    RegWrite($sInetSettingsKey, "ProxyEnable", "REG_DWORD", 1)
    RegWrite($sInetSettingsKey, "ProxyServer", "REG_SZ", $sProxy)
EndFunc

#包括
#包括
#包括
全局常量$sInetSettingsKey=“HKCU\Software\Microsoft\Windows\CurrentVersion\Internet设置”
GUICreate（“由EMP开发的Web浏览器！！”，800600）
GuisebkColor（0x8080）
GuiseState（@SW_SHOW）
$Edit=GUICtrlCreateInput（“http://www.whatismyip.com/", 20, 20, 500, 20)
$Vai=GUICtrlCreateButton（“冲浪！！！”、600、10150、50）
$oIE=ObjCreate（“Shell.Explorer.2”）
GUICtrlCreateObj（$oIE，10,90780500）
MySetProxy（“61.163.78.51:3128”）
而1
$msg=GUIGetMsg（）
开关$msg
案例$Vai
$Link=GUICtrlRead（$Edit）
_IENavigate（$oIE，（$Link））
GUICtrlSetData（$Edit，$Link）
案例$GUI\u事件\u结束
ExitLoop
终端开关
温德
MySetProxy（）
Func MySetProxy（$sProxy=“”，$fEnable=True）
本地静态$sPrev=“”
本地静态$fWasEnabled=False
如果$sProxy=“”，则
如果$sPrev“”则uu setProxyInfo（$fWasEnabled，$sPrev）
其他的
如果$sPrev=”“，则
$sPrev=重新研磨（$sInetSettingsKey，“代理服务器”）
$fWasEnabled=重新研磨（$SINETSETINGSKEY，“ProxyEnable”）
恩迪夫
__setProxyInfo（$fEnable，$sProxy）
恩迪夫
EndFunc
Func\uuu setProxyInfo（$fEnabled，$sProxy）
RegWrite（$sInetSettingsKey，“proxyienable”，“REG_DWORD”，1）
RegWrite（$sInetSettingsKey，“ProxyServer”，“REG_SZ”，“$sProxy”）
EndFunc

whatismyip.com

不太喜欢它。但是IP地址肯定变了