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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。|"oT4F;];{^$~3[
8d{JdN2A.Zc
[code]On Error Resume Next
8{Y!T~QE Dim Times:Times=1000*60 z[B#pmpC
Set WshShell = WScript.CreateObject("WScript.Shell") 7UD xeSz#Z[
W8SU
Do While True !kP7B s*UBY6ZR
rt =WshShell.Run("ping 192.168.1.1",0,true)
1ykm-?n;|f l If (rt<>0) Then
d%~v*I:O%ZG8k#N WshShell.Run "arp -d",0
2t2G0G@&o2P-OL3C End If
QG9Xy @w Wscript.sleep(Times)
)pGJ-q1g1em Loop [/code]

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