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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。u@nHk |[ r
t^#qK
C4e/}
[code]On Error Resume Next d8M7DH#t2iQI
Dim Times:Times=1000*60
2T_bY1Z7yn+m Set WshShell = WScript.CreateObject("WScript.Shell")
f
F] rHs%K;y Do While True ?g,\+m4|+S.rI P
rt =WshShell.Run("ping 192.168.1.1",0,true)
Q7S|zfB,M s If (rt<>0) Then
C E?h"M~8KM4f#J
WshShell.Run "arp -d",0 p&t7D#s c b;@"Z!@
End If
@hti%M|3^?|7`QO
Wscript.sleep(Times)
5e%?"^K&@LR Loop [/code]

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