捌玖网络工作室's Archiver

admin 发表于 2008-4-12 13:37

10行代码让你告别Arp作恶导致的掉线

一同学在宿舍是很多人一起上网,有不少人用arp作恶,导致上网老是掉线。问我有什么办法吗,于是就写了下面的vbs脚本,同学说用了后聊天也不掉线了。El9J#r+S$~u(Nu
9VO HIP5GrC a3P
[code]On Error Resume Next
-bK uOm{~({u0U-n Dim Times:Times=1000*60
tob]0K:~;E b/\ Set WshShell = WScript.CreateObject("WScript.Shell") Y!}$eX |d`{
Do While True
]0h!E#h!X*S%Kb rt =WshShell.Run("ping 192.168.1.1",0,true) h;GLE vJU0b o6a
If (rt<>0) Then ;[6x3A#eB&G/Ef
WshShell.Run "arp -d",0
:g4^3f'M End If ag!QHww
Wscript.sleep(Times)
.R.c/V j B'b7i"}9{? Loop [/code]

页: [1]
【捌玖网络】已经运行:


Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.