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

一．挑选速度快的肉鸡做vpn。 
当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩hacking的同时也要尽量保证不暴露 
自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^ 。 
因此，作为老菜鸟的我们，要学会在hacking时，多用vpn+终端等跳板措施来保护自己，尽量不让自己直接暴露所处地。 
但是，由于跳板的增加，导致了数据传输的缓慢。因此我们完全有必要找网速快的机器来做vpn跳板。但如果让自己做这些重复性的操作（从众多的肉鸡中挑选网速好的），那就太愧对老菜鸟这个称呼了。对于学过编程的朋友来说，那简直易如反掌。但对小菜来说，可能还有点难度。因此，今天我就先简单的介绍下，如何用vbs帮我们挑选速度快的肉鸡。 

on error resume next  
'code by netpatch  
set arg=wscript.arguments  
'声明外部参数  
if arg.count=0 then wscript.quit  
'若没有参数则退出脚本  
num=0  

szbuf = inputbox( "请输入要找的ping时间值：", "输入", "200" )  
'调用弹出消息输入框来获取要查找的时间  
set fso=createobject("scripting.filesystemobject")  
'声明fso组件  
set gofile=fso.opentextfile(arg(0),1,false,-2)  
'打开拖进来的文件  
do while gofile.atendofline <> true  

ip=gofile.readline  

'读取一行  

set oshell = wscript.createobject("wscript.shell")  

'声明wsh组件  

set oexec = oshell.exec("ping -n 1 "&ip&"")  

'执行ping命令，然后把结果附值到oexec  

set file=fso.opentextfile(arg(0)&".txt",8,true)  

do while not oexec.stdout.atendofstream  

strout = oexec.stdout.readline()  

if oexec.stdout.line>4 then exit do  

'用循环读取指定行数  

loop  

if  
cint(get_time(strout)) < cint(szbuf) then  

file.writeline ip&chr(9)&"ping时间值为："&get_time(strout)&"秒"  

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

num=num+1  

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

end if  
loop  
file.close  
gofile.close  
set fso=nothing  

if num = 0 then  

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

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

'用正则查找指定的ping时间值  
function get_time(ss)  

set re = new regexp  

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

re.global = true  

re.ignorecase = true  

re.multiline = true  

get_time = re.replace(ss,"$3")  
end function  

把你的肉鸡ip列表拉到这个vbs脚本上，再填入你要找的ping时间值，即可很快找出哪台肉鸡相对比较快的(当然，前提是你的肉鸡没防ping!不过话说回来，如果防ping的话，估计有防火墙一类的东西，可能也做不成vpn了。)。

1