利用VBS發送郵件挑選速度快的肉雞做VPN 的vbs代碼

2020-03-24 17:05:56

字體：大中小

來源：轉載

供稿：網友

一．挑選速度快的肉雞做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了。)。
html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：VBS教程：函數-DateDiff 函數

下一篇：網絡接口利用率監控VBS腳本代碼（Windows）