利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

OnErrorResumeNext
''codebyNetPatch
Setarg=Wscript.Arguments
''声明外部参数
IfArg.count=0thenWscript.quit
''若没有参数则退出脚本
Num=0

SzBuf=InputBox("请输入要找的Ping时间值：","输入","200")
''调用弹出消息输入框来获取要查找的时间
SetFso=CreateObject("Scripting.FileSystemObject")
''声明FSO组件
SetGofile=Fso.OpenTextFile(Arg(0),1,False,-2)
''打开拖进来的文件
DoWhileGofile.Atendofline<>True

Ip=Gofile.Readline

''读取一行

SetoShell=WScript.CreateObject("WScript.Shell")

''声明WSH组件

SetoExec=oShell.Exec("ping-n1"&Ip&"")

''执行PING命令，然后把结果附值到oExec

SetFile=fso.OpenTextFile(arg(0)&".txt",8,True)

DoWhileNotoExec.StdOut.AtEndOfStream

strOut=oExec.StdOut.ReadLine()

IfoExec.StdOut.line>4thenexitdo

''用循环读取指定行数

Loop

If
Cint(GET_Time(StrOut))<Cint(SzBuf)Then

File.WritelineIp&chr(9)&"Ping时间值为："&GET_Time(StrOut)&"秒"

''找到小于指定时间的机器，并写入新建立的文本

Num=Num+1

''找到后，记数(后面统计用)

Endif
Loop
File.Close
Gofile.Close
SetFso=Nothing

ifnum=0then

wscript.echo"郁闷！一个也没找到@_@"
else

wscript.echo"恭喜！找到"&num&"个"
endif

''用正则查找指定的PING时间值
FunctionGET_Time(ss)

Setre=NewRegExp

re.Pattern="(.+from)(\d+.\d+.\d+.\d+):bytes=32time=(\d+)ms(.+)"

re.Global=True

re.IgnoreCase=True

re.MultiLine=True

GET_Time=re.Replace(ss,"$3")
endFunction