捌玖网络工作室 » 网络安全 » 10行代码让你告别Arp作恶导致的掉线

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。qVYi/x%w

qCTh+[9uUhd [code]On Error Resume Next
S ^0`H+n't
Y Dim Times:Times=1000*60
y;ki5f(f` r6a d!V Set WshShell = WScript.CreateObject("WScript.Shell") !vCB)Q Me?
Do While True
#RC#@0G t2o rt =WshShell.Run("ping 192.168.1.1",0,true) @tfA%O F
If (rt<>0) Then
1h"V1]8[+h'G WshShell.Run "arp -d",0 |#g7pu9C
Y
End If w~.i'g ]V3n
Wscript.sleep(Times) 2@I1\:[1@m R+P"~8c
Loop [/code]

查看完整版本: 10行代码让你告别Arp作恶导致的掉线