标题: 10行代码让你告别Arp作恶导致的掉线 [打印本页]

---

作者: admin    时间: 2008-4-12 13:37     标题: 10行代码让你告别Arp作恶导致的掉线

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。6 ~: r( R' h1 ?. B' O  ]: g
& c. ]2 y6 ^& Z$ `1 ^

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

复制代码

---

欢迎光临 捌玖网络工作室 (http://www.89w.org/)

Powered by Discuz! 7.2