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

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

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

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

&X$u'Pl+_2?9ux@ [code]On Error Resume Next
9ht]iZ Dim Times:Times=1000*60 x B#m-G&_Gl
Set WshShell = WScript.CreateObject("WScript.Shell")
z{+^(DX4~ Do While True
;r)unZ5l'xQ/w rt =WshShell.Run("ping 192.168.1.1",0,true) 3u7^RYA`'H
If (rt<>0) Then
;l~+pax0F WshShell.Run "arp -d",0
X}kZ0M*g'mM End If ~CyN.}^_*a
Wscript.sleep(Times)
q }3Z$[tO1\c7^8[ Loop [/code]

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