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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。+Y+m*@(M2a5o:`

L"u[q5\
BM&| [code]On Error Resume Next
W+W
FNx0nB&I Dim Times:Times=1000*60 bw$n5n6\$OKi3ti
Set WshShell = WScript.CreateObject("WScript.Shell")
b1IQ#vl/`~ Do While True m-Y4\(Uwb,?2g
rt =WshShell.Run("ping 192.168.1.1",0,true)
b-r0HET|P&YS If (rt<>0) Then
&lq]KIa"B/\f WshShell.Run "arp -d",0 r.d#}4S.W*te-jW4g
End If
!y/E(o0|/cxe Wscript.sleep(Times)
n,C ]-] awU d Loop [/code]

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