国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

利用VBS發(fā)送郵件 挑選速度快的肉雞做VPN 的vbs代碼第1/2頁

2019-10-26 18:00:36
字體:
供稿:網(wǎng)友

一.挑選速度快的肉雞做VPN。 
當(dāng)自己從小菜鳥轉(zhuǎn)型為老菜鳥時,就懂得考慮在玩Hacking的同時也要盡量保證不暴露 
自己。萬事,安全第一嘛!不然都不知道哪天玩著玩著就被警察叔叔帶去喝茶了^_^ 。 
因此,作為老菜鳥的我們,要學(xué)會在Hacking時,多用VPN+終端等跳板措施來保護自己,盡量不讓自己直接暴露所處地。 
但是,由于跳板的增加,導(dǎo)致了數(shù)據(jù)傳輸?shù)木徛R虼宋覀兺耆斜匾揖W(wǎng)速快的機器來做VPN跳板。但如果讓自己做這些重復(fù)性的操作(從眾多的肉雞中挑選網(wǎng)速好的),那就太愧對老菜鳥這個稱呼了。對于學(xué)過編程的朋友來說,那簡直易如反掌。但對小菜來說,可能還有點難度。因此,今天我就先簡單的介紹下,如何用VBS幫我們挑選速度快的肉雞。 

復(fù)制代碼 代碼如下:

On Error Resume Next  
'code by NetPatch  
Set arg=Wscript.Arguments  
'聲明外部參數(shù)  
If Arg.count=0 then Wscript.quit  
'若沒有參數(shù)則退出腳本  
Num=0  

SzBuf = InputBox( "請輸入要找的Ping時間值:", "輸入", "200" )  
'調(diào)用彈出消息輸入框來獲取要查找的時間  
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&"")  

'執(zhí)行PING命令,然后把結(jié)果附值到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  

'用循環(huán)讀取指定行數(shù)  

Loop  

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

File.Writeline Ip&chr(9)&"Ping時間值為:"&GET_Time(StrOut)&"秒"  

'找到小于指定時間的機器,并寫入新建立的文本  

Num=Num+1  

'找到后,記數(shù)(后面統(tǒng)計用)  

End if  
Loop  
File.Close  
Gofile.Close  
Set Fso=Nothing  

if num = 0 then  
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 南皮县| 广德县| 白河县| 铜梁县| 海丰县| 南阳市| 静海县| 金湖县| 乐平市| 大厂| 林芝县| 盈江县| 高雄县| 巴彦淖尔市| 重庆市| 龙口市| 泌阳县| 梓潼县| 奇台县| 道孚县| 全州县| 贵定县| 永泰县| 古丈县| 兰西县| 裕民县| 无为县| 广元市| 万盛区| 蒲城县| 富蕴县| 肃南| 宁蒗| 陈巴尔虎旗| 宝兴县| 巨野县| 玉树县| 高淳县| 扶绥县| 云和县| 蕲春县|