亲宝软件园·资讯

展开

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

人气:0
想了解WMI IE代理 切换或改变(Use WMI Change IE Proxy)的相关内容吗,在本文为您仔细讲解WMI IE代理的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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

加载全部内容

相关教程
猜你喜欢
用户评论