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

ASP
ASP,FSO遍历目录及目录下文件
fso的一些特殊功能
利用FSO取得图像文件信息
二级域名原理以及程序
用FSO获得图片文件的信息(大小,宽,高)
IE功能汇总
ASP常用的函数
Oracle常用功能集锦
一个简单的HTML病毒分析
如何使用FSO搜索硬盘文件
使用函数自动生成n层目录
FSO操作示例(给初学者)
同文件夹内文本搜索器(vbs)
一个实用的FSO-实时统计在线人数
如何获知页面上的图象的实际尺寸?
在ASP中使用FSO组件生成HTML页面
用asp实现的代码批量修改程序,fso相关
fso实例
硬盘文件搜索代码(ASP类)
遍历目录以及目录下文件的函数

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


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