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

ASP
出现404页面错误的自动发送邮件的代码
ASP视频教程:建立显示已经添加的新闻页面
ASP视频教程:使用Eweb编辑器丰富新闻内容的格式
ASP视频教程:建立修改新闻页面
ASP视频教程:制作删除新闻的功能
ASP视频教程:建立产品类别表和添加类别页面
ASP视频教程:建立管理产品的页面
ASP视频教程:制作其它栏目管理页面
ASP实例教程:隐藏下载地址和防盗
ASP教程:虚拟目录下不能上传图片
ASP视频教程:制作网站前台顶部导航页面
ASP视频教程:制作前台导航菜单
ASP视频教程:对前台导航菜单进行调整美化
ASP视频教程:制作新闻中心显示页面
ASP视频教程:制作新闻详细内容显示页面
ASP视频教程:制作前台产品显示页面(按产品类别显示)
ASP视频教程:制作前台产品显示页面(横向重复显示图片)
ASP视频教程:制作在线订购页面
ASP视频教程:制作关于我们和联系我们页面
ASP视频教程:后台功能的一些完善

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


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