Board logo

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
  @/ O" d4 n, n' [+ p
' E$ w: n8 F( ?% _
  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://89w.org/) Powered by Discuz! 7.2