Access VBA 判断网络是否连通的多种办法(函数源码)(2)_access api-access vb api-access系统调用

Access VBA 判断网络是否连通的多种办法(函数源码)(2)

时间：2013-11-08 17:40 来源：ffice中国作者：网络阅读：次

Public Declare Function RasGetConnectStatus Lib “RasApi32.dll” Alias “RasGetConnectStatusA” (ByVal hRasCon As Long, lpStatus As Any) As Long

/＊常数和变量的设定＊/

Public Const RAS95_MaxEntryName = 256

Public Const RAS95_MaxDeviceType = 16

Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95

dwSize As Long

hRasCon As Long

szEntryName(RAS95_MaxEntryName) As Byte

szDeviceType(RAS95_MaxDeviceType) As Byte

szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

Public Type RASCONNSTATUS95

dwSize As Long

RasConnState As Long

dwError As Long

szDeviceType(RAS95_MaxDeviceType) As Byte

szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

/＊函数IsConnected返回连通的状态，如果为True则表示已连通＊/

Public Function IsConnected() As Boolean

　Dim TRasCon(255) As RASCONN95

　Dim lg As Long

　Dim lpcon As Long

　Dim RetVal As Long

　Dim Tstatus As RASCONNSTATUS95

　TRasCon(0).dwSize = 412

　lg = 256 ＊ TRasCon(0).dwSize

　RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)

　If RetVal <> 0 Then

　　MsgBox “错误”

(责任编辑：admin)

顶一下

(2)

100%

踩一下

(0)