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)
0%
相關(guān)內(nèi)容
- ·API函數(shù)詳細(xì)解釋
- ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
- ·Access利用api實現(xiàn)打開/關(guān)閉光驅(qū)
- ·應(yīng)用程序開機(jī)自動啟動(注冊表操作技巧
- ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
- ·什么是ADP,了解ADP的優(yōu)缺點
- ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
- ·[技巧分享]多條Shell語句執(zhí)行導(dǎo)致判斷
- ·在access中可以調(diào)用API函數(shù)GetFileInfo
- ·Access API集中營--增加臨時使用的字體
- ·API ShellExecute 功能說明及應(yīng)用示例
- ·在VB中使用API函數(shù)(什么是API? )
- ·API實現(xiàn)完美的圖片出現(xiàn)效果(轉(zhuǎn))
- ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時間
- ·如何檢測以及設(shè)置鍵盤狀態(tài)
- ·不關(guān)閉當(dāng)前數(shù)據(jù)庫COPY當(dāng)前數(shù)據(jù)庫