Access VBA 判断网络是否连通的多种办法(函数源码)(3)
时间：2013-11-08 17:40 来源：ffice中国 作者：网络 阅读：次
Exit Function
End If
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0)
.hRasCon,Tstatus)
If Tstatus.RasConnState = ＆H2000 Then
IsConnected = TRUE
Else
IsConnected = FALSE
End If
End Function
----------------------------------------------------
这个函数判断挺好,但在网络不通时连接比较慢
API 函数声明
Public Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwflags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
If InternetCheckConnection("http://www.baidu.com/", 1, 0) = 0 Then
MsgBox "网络不正常"
Else
MsgBox "网络正常"
End If
End Sub
---------------------------------------
这个函数比较快,但有时判断不准确
Private Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To 256) As Byte
szSystemStatus(0 To 128) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
(责任编辑：admin)
顶一下
(2)
100%
踩一下
(0)
0%
相关内容
- ·API函数详细解释
- ·Access从剪切版里复制和粘贴数据
- ·Access利用api实现打开/关闭光驱
- ·应用程序开机自动启动（注册表操作技巧
- ·Access VBA 判断网络是否连通的多种办
- ·什么是ADP,了解ADP的优缺点
- ·优秀产品大全--通用票据打印软件(新)
- ·[技巧分享]多条Shell语句执行导致判断
- ·在access中可以调用API函数GetFileInfo
- ·Access API集中营--增加临时使用的字体
- ·API ShellExecute 功能说明及应用示例
- ·在VB中使用API函数(什么是API? )
- ·API实现完美的图片出现效果（转）
- ·API 设置调整系统当前时间
- ·如何检测以及设置键盘状态
- ·不关闭当前数据库COPY当前数据库
最新内容
推荐内容