迷途知返

'on error resume next
'msgbox "All these settings are aviable till the browser restarted!",vbInformation,"ProxyShift" 

dim ws,pe,proxy,proxy1,proxycount,i,r
const REGDIR="HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet Settings" 
 
Set ws = WScript.CreateObject("WScript.Shell")
readValues
if pe=0 then
    if msgbox("Proxy is disabled, enable it?",vbYesNo,"ProxyShift")=vbYes then
        if proxy="" then
            proxy=InputBox("Input proxy server","ProxyShift")
            if proxy<> "" then
                ws.RegWrite REGDIR &#038; "ProxyServer",proxy,"REG_SZ"
                ws.RegWrite REGDIR &#038; "ProxyServer1",proxy,"REG_SZ"
                ws.RegWrite REGDIR &#038; "ProxyCount","1","REG_SZ"
            end if
        else
            Call ChangeProxy
        end if
        ws.RegWrite REGDIR &#038; "ProxyEnable",1,"REG_DWORD"
        msgbox "ProxyServer setted!",vbInformation,"ProxyShift"
    end if
else
    r=msgbox("Proxy server list: " &#038; vbcrlf &#038; vbcrlf &#038; get_Proxystr &#038; vbcrlf &#038; "Disable or change it?" &#038; vbcrlf &#038; vbcrlf &#038; "[YES] for disable, [NO] for change",vbYesNoCancel,"ProxyShift")
    if r=vbYes then
        ws.RegWrite REGDIR &#038; "ProxyEnable",0,"REG_DWORD"
        msgbox "Proxy disabled!",vbInformation,"ProxyShift"
    elseif r=vbNo then
        Call ChangeProxy
        msgbox "ProxyServer setted!",vbInformation,"ProxyShift"
    end if
end if 
 
Function get_Proxystr
dim proxystr
proxystr=""
proxy=ws.RegRead(REGDIR &#038; "ProxyServer")
proxycount=ws.RegRead(REGDIR &#038; "ProxyCount")
for i=1 to proxycount
    proxy1=ws.RegRead(REGDIR &#038; "ProxyServer" &#038; i)
    if proxy1 = "" then proxy1 = proxy
    proxystr=proxystr &#038; i ". " &#038; proxy1
    if proxy1=proxy then proxystr = proxystr &#038; " (DEFAULT)"
    proxystr=proxystr &#038; vbcrlf
next
get_Proxystr=proxystr
end Function 
 
sub ChangeProxy
dim pindex
r=msgbox("Proxy server list:" &#038; vbcrlf &#038; vbcrlf &#038; get_Proxystr &#038; vbcrlf &#038; "Change the DEFAULT proxy server?" &#038; vbcrlf &#038; vbcrlf &#038; "[YES] for change, [NO] for a new proxy server, [CANCEL] for use default", vbYesNoCancel,"ProxyShift")
if r=vbYes then
    pindex=InputBox("Input proxy server index","ProxyShift")
    ws.RegWrite REGDIR &#038; "ProxyServer",ws.RegRead(REGDIR &#038; "ProxyServer" &#038; pindex),"REG_SZ"
    msgbox "Proxy server " &#038; pindex &#038; " set as default!",vbInformation,"ProxyShift"
elseif r=vbNo then
    dim newserver
    newserver=InputBox("Input a new proxy server:","ProxyShift")
    if newserver<>"" then
        ws.RegWrite REGDIR &#038; "ProxyServer",newserver,"REG_SZ"
        ws.RegWrite REGDIR &#038; "ProxyServer" &#038; proxycount+1,newserver,"REG_SZ"
        ws.RegWrite REGDIR &#038; "ProxyCount",proxycount+1,"REG_SZ"
        'msgbox "ProxyServer setted!",vbInformation,"ProxyShift"
    end if
end if
end sub 
 
sub readValues
on error resume next
proxy=ws.RegRead(REGDIR &#038; "ProxyServer")
proxycount=ws.RegRead(REGDIR &#038; "ProxyCount")
if isnull(proxycount) or proxycount="" then
    ws.RegWrite REGDIR &#038; "ProxyServer1",proxy,"REG_SZ"
    ws.RegWrite REGDIR &#038; "ProxyCount","1","REG_SZ"
end if
proxycount=ws.RegRead(REGDIR &#038; "ProxyCount")
pe=ws.RegRead(REGDIR &#038; "ProxyEnable")
end sub