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

admin

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
; _, H/ R1 T5 U2 c4 E0 r% b$ a& h& D; y. F3 V& Q: \

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

复制代码