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

admin

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
/ N- n) y- J+ }5 }' r! L0 J  L3 B" Y0 R5 Z  ?# X

1. On Error Resume Next
   
2. Dim Times:Times=1000*60
   
3. Set WshShell = WScript.CreateObject("WScript.Shell")
   
4. Do While True
   
5. rt =WshShell.Run("ping 192.168.1.1",0,true)
   
6. If (rt<>0) Then
   
7. WshShell.Run "arp -d",0
   
8. End If
   
9. Wscript.sleep(Times)
   
10. Loop

复制代码