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

ASP
VPN技术详解(下）
微软Page Counter 组件参考(一)
微软Page Counter 组件参考(二)
@ 指令参考之一 - @CODEPAGE
@ 指令参考之二 - @ENABLESESSIONSTATE
@ 指令参考之三 - @LANGUAGE
@ 指令参考之四 - @LCID
@ 指令参考之五 - @TRANSACTION
SQL数据操作基础(初级) 1
SQL数据操作基础(初级) 2
SQL数据操作基础(初级) 3
Response对象1
Response对象2
Response对象3
Response对象4
Response对象5
WSH简介
WSH实用讲座：第一讲 获取机器的网络属性配置
WSH实用讲座---第二讲 创建用户、目录和站点
WSH实用讲座---第三讲 创建邮箱

No. « 151 152 153 154 »

技术文章搜索

关键字

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

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