国产大片一级操逼,精品久久久久久久99热,国内精品一区二区三区

當(dāng)前位置：主頁 > 技巧 > Access技巧 > API > 正文

Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦法(函數(shù)源碼)(2)

時間：2013-11-08 17:40 來源：ffice中國作者：網(wǎng)絡(luò) 閱讀：次

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

/＊常數(shù)和變量的設(shè)定＊/

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

/＊函數(shù)IsConnected返回連通的狀態(tài)，如果為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 “錯誤”

(責(zé)任編輯：admin)

頂一下

(2)

100%

踩一下

(0)

相關(guān)內(nèi)容