Access爱好者--
所属分类: 网络相关 作者: 李寻欢 更新日期:2003-11-19 13:37:22 阅读次数:259

另类检测联网状态


该程序的局限性:通过代理服务器上网无效;新浪及深圳之窗同时关门大吉或同时更改域名本程序无效(不过你可通过更改ping的对象来避免)。
返回ping结果我的机器设定为3秒,如果提示文件不存在,那就要再延长时间,改成4或5秒:就是改这一句:Me.TimerInterval = 3000

1、先在C盘建立一个名为InternetTest.bat的文件,文件内容为:
ping www.sina.com.cn > c:\sina.txt
ping www.szptt.net.cn > c:\szptt.txt

2、在用来检测联网状态的窗体里里放入以下代码:

Private Sub Form_Load()
Dim a
'用DOS批命令把PING结果保存在相关TXT文件里
a = Shell("c:\InternetTest.bat", vbHide)

'3秒后执行判断,因为PING一个地址大概需要这么长时间,如果不等待,将会出错
Me.TimerInterval = 3000
End Sub

Private Sub Form_Timer()
Dim SinaTest, SzpttTest As String * 7
'打开相关TXT文件
Open "c:\sina.txt" For Input As #1
Open "c:\szptt.txt" For Input As #2
'TXT文件的头7个字符读到相关变量中
If Not EOF(1) Then
SinaTest = Input(7, #1)
End If
If Not EOF(2) Then
SzpttTest = Input(7, #2)
End If
'关闭打开的TXT文件
Close #1
Close #2
'删除相关的TXT文件
Kill "c:\sina.txt"
Kill "c:\szptt.txt"
'判断是否联网
If SinaTest = "Unknown" And SzpttTest = "Unknown" Then
MsgBox "你没有联上互联网"
Else
MsgBox "你已经上网"
End If
'关闭计时器
Me.TimerInterval = 0
End Sub



--------------------------------------------------------------------------------
相关文章

大型数据库设计原则 2003-12-15 12:49:18
ROSE技术白皮书 2003-12-15 12:34:14
了解 Microsoft Access 安全性 2003-11-13 11:21:08
不当编写SQL语句导致系统不安全 2003-11-13 10:55:26
如何诊断/修复损坏的 Jet 4.0 数据库 2003-10-14 8:31:26
启动控制面板命令大全 2003-10-10 10:21:08
数据库应用程序需注意的问题 2003-10-6 11:11:06


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链