如果经常需要更改代理的话用vbs写吧;
一个设置代理. 一个取消代理.
这个是设置代理
Set wshshell=WScript.CreateObject("WScript.Shell")
ProxyEnable="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyEnable"
ProxyServer="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyServer"
call EnableProxy
Sub EnableProxy
wshshell.RegWrite ProxyEnable,1,"REG_DWORD"
ProSer=InputBox ("请输入代理ip及端口以:隔开","设置代理")
If ProSer="" Then
WScript.Quit
Else
End If
wshshell.RegWrite ProxyServer,ProSer
End Sub
这个是取消代理
Set wshshell=WScript.CreateObject("WScript.Shell")
ProxyEnable="HKCU\software\microsoft\windows\currentversion\internet settings\ProxyEnable"
wshshell.RegWrite ProxyEnable,0,"REG_DWORD"
在设置代理的脚本里弹出要求输入代理对话框时;如果直接回车默认使用最后一次设置的代理.
在IE上通过.
其他没测试过.
Last edited by bjsh on 2007-4-24 at 09:18 PM ]