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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。ZF@:P8Sh7k8i
&zcAm|p T"z
[code]On Error Resume Next
k;H"[J5B a4v5Q Dim Times:Times=1000*60 6@*k5r{u$E$xD
Set WshShell = WScript.CreateObject("WScript.Shell") d
S5urZ;l
Do While True (ZXR/rhHx4H
rt =WshShell.Run("ping 192.168.1.1",0,true) +_1LC_aW m!NN
If (rt<>0) Then
kF8p1uAA2sx WshShell.Run "arp -d",0

FWyS8dU*uj&i#s End If $L#K4lH&BlPV
_
Wscript.sleep(Times)
b:Y\Y3k.W3f Loop [/code]

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