IE的代理自动配置批处理.
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
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"