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 |
|