If WScript.
arguments.Count = 0 Then
GetI = -1
Else
GetI = CInt(WScript.
arguments(0))
End If
Call YourCode()
'把你弄到的代理都写在一个文本文件里(IP.txt),格式是一行一个: ip:端口
IPS = CreateObject("Scripting.File
SystemObject").O
PEnTextFile("IP.txt", 1, True).ReadAll
IPS = Spl
IT(IPS, vbCrLf)
For IPS_I = 0 To
ubound(IPS)
If IPS_I > GetI Then
IPTemp = Split(IPS(IPS_I), ":")
Change
Proxy IPTemp(0), IPTemp(1)
Set WshShell = CreateObject("wscript.shell")
WshShell.run("cscript " &
amp; 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