WMI IE代理 切换或改变(Use WMI Change IE Proxy)
导读：收集整理的这篇文章主要介绍了WMI IE代理 切换或改变(Use WMI Change IE Proxy ，觉得挺不错的，现在分享给大家，也给大家做个参考。 将下面的代码，保存为 vbs...
收集整理的这篇文章主要介绍了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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： WMI IE代理 切换或改变(Use WMI Change IE Proxy)
本文地址： https://pptw.com/jishu/609737.html