中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

將下面的代碼，保存為 vbs即可

代碼如下:

If WScript.Arguments.Count = 0 Then

GetI = -1

Else

GetI = CInt(WScript.Arguments(0))

End If

Call YourCode()

'把你弄到的代理都寫在一個(gè)文本文件里（IP.txt），格式是一行一個(gè)： 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)

'獲取計(jì)算機(jī)名

'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