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

ASP
如何编写适合FireFox的对话框?
关于处理GET方式提交的含有特殊字符的参数
对URL地址进行编码 优化2
在线管理数据库 类
用Asp备份与恢复SQL Server 数据库
计算两个时间之差的函数
asp实现sql的备份与恢复
SQL Server 存储过程的分页
sql 存储过程分页
邹建的分页存储过程改了一下
关于使用存储过程创建分页
SQL SERVER编写存储过程小工具
各种存储过程使用指南
SQL Server--怎样用ADO在SQL SERVER中建库,建表
几例在ASP存储过程的使用方法
用ASP+XML打造留言本
让 Asp 与 XML 交互
msxml3.dll 错误 ''800c0005''解决方案
MSXML4.0 版中的新增功能
关于ASP生成伪参数技巧

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 144 ::
收藏到网摘: 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