将下面的代码，保存为 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:\.rootCIMV2") 
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

SendKeys clip.exe 发送中文的代码
SetWshShell=CreateObject("WScript.Shell")code="让SendKeys可以发送中文"WshShell.Run"cmd.exe/cecho"&code&"|clip.exe",vbHideapp=WshShell.Run("notepad")WScript.Sleep1000WshShell.AppActivateappWshSh

利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件
OptionExplicitOnErrorResumeNext'生成列表的文件类型ConstsListFileType="wmv,rm,wma"'文件所在的相对路径ConstsShowPath="."'排序类型的常量定义ConstiOrderFieldFileName=0ConstiOrde

XorEncode的vbs实现代码
IfNotWScript.Arguments.Count=1ThenWScript.Echo"请将要转换的vbs文件托拽到我身上！":WScript.QuitSetfso=CreateObject("Scripting.FileSystemObject")Setself=fso.OpenTextFile(WScript.ScriptFul