WMI IE代理 切换或改变(Use WMI Change IE Proxy)
程序员文章站
2022-04-29 09:13:02
将下面的代码,保存为 vbs即可复制代码 代码如下:if wscript.arguments.count = 0 then geti = -1 else geti = ci...
将下面的代码,保存为 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
复制代码 代码如下:
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