WMIIE代理怎么实现切换或改变-创新互联

这篇文章主要介绍“WMI IE代理怎么实现切换或改变”的相关知识，小编通过实际案例向大家展示操作过程，操作方法简单快捷，实用性强，希望这篇“WMI IE代理怎么实现切换或改变”文章能帮助大家解决问题。

创新互联是一家集网站建设,武强企业网站建设,武强品牌网站建设,网站定制,武强网站建设报价,网络营销,网络优化,武强网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

将下面的代码，保存为 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

关于“WMI IE代理怎么实现切换或改变”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识，可以关注创新互联行业资讯频道，小编每天都会为大家更新不同的知识点。

名称栏目：WMIIE代理怎么实现切换或改变-创新互联
转载来源：http://cxhlcq.com/article/dcpgpc.html