WMI IE代理 切换或改变(Use WMI Change IE Proxy)

将下面的代码，保存为 vbs即可

if wscript.arguments.count = 0 then
geti = -1
else
geti = cint(wscript.arguments(0))
end if

call yourcode()


'把你弄到的代理都写在一个文本文件里（ip.txt），格式是一行一个： ip:端口
ips = createobject("scripting.filesystemobject").opentextfile("ip.txt", 1, true).readall
ips = split(ips, vbcrlf)


for ips_i = 0 to ubound(ips)
if ips_i > geti then
iptemp = split(ips(ips_i), ":")
changeproxy iptemp(0), iptemp(1)
set wshshell = createobject("wscript.shell")
wshshell.run("cscript " & wscript.scriptfullname & " " & ips_i)
wscript.quit
end if
next


sub yourcode()
'你的代码
end sub

'使用wmi切换ie代理(use wmi change ie proxy)

function changeproxy(ip, port)
'获取计算机名
'set onetwork = wscript.createobject("wscript.network")
'computername=onetwork.computername
on error resume next
set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
set objshare = objwmiservice.get("win32_proxy.servername='computername'")
set objinparam = objshare.methods_("setproxysetting").inparameters.spawninstance_()
objinparam.properties_.item("proxyportnumber") = port
objinparam.properties_.item("proxyserver") = ip
set objoutparams = objwmiservice.execmethod("win32_proxy.servername='computername'", "setproxysetting", objinparam)
end function