| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。