当前位置: 首页 > 图文教程 > 网络编程 > ASP > 10行代码让你告别Arp作恶导致的掉线

ASP
SQL数据操作基础(中级) 6
SQL数据操作基础(中级) 7
SQL数据操作基础(中级) 8
SQL数据操作基础(中级) 9
SQL数据操作基础(中级) 10
XML DOM介绍和例子(一)
XML DOM介绍和例子(二)
XML DOM介绍和例子(三)
ADO 光 标 基 础 (1)
ADO 光 标 基 础 (2)
SQL语言快速入门之三
ASP+学习笔记(一)
ASP+学习笔记(二)
ASP+学习笔记(三)
ASP+学习笔记(四)
ASP+学习笔记(五)
ASP+配置 — ASP+配置概念(一)
Microsoft 脚本编码器(4) --- 编码示例
VPN技术详解(上)
VPN技术详解(中)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 173 ::
收藏到网摘: n/a

一同学在宿舍是很多人一起上网,有不少人用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