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

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

以下为引用的内容：On Error Resume Next  Dim Times:Times=1000*60   Set WshShell = WScript.CreateObject("WScript.Shell")   Do While True      rt =WshShell.Run("ping 192.168.1.1",0,true)       If (rt<>0) Then         WshShell.Run "arp -d",0       End If      Wscript.sleep(Times)   Loop 

……