Set proxy server in IE

来源：互联网发布：淘宝店标图片在线制作编辑：程序博客网时间：2024/06/05 16:14

Set WshShell = WScript.CreateObject("WScript.Shell")
selt = WshShell.Popup ("Do you want to use proxy server？",0,,3)
Select Case selt
Case 6
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyEnable",1,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyHttp1.1",1,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyServer", "XXX.XXX.XXX.XXX:80","REG_SZ"
WScript.Echo "The proxy server had been setted！"
Case 7
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyEnable",0,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyHttp1.1",0,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyServer", "","REG_SZ"
WScript.Echo "The proxy server had been canel！"
End Select
set WshShell = nothing
WScript.quit
---------------------------------------------------------------------------
Remark: XXX.XXX.XXX.XXX is the proxy server IP