會員登錄 - 用戶注冊 - 網(wǎng)站地圖 Office中國(office-cn.net),專業(yè)Office論壇
當(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)
0%
上一篇:什么是ADP,了解ADP的優(yōu)缺點
下一篇:應(yīng)用程序開機(jī)自動啟動(注冊表操作技巧)
相關(guān)內(nèi)容
最新內(nèi)容
推薦內(nèi)容
熱點內(nèi)容
發(fā)表評論
請自覺遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī),嚴(yán)禁發(fā)布色情、暴力、反動的言論。
評價:
最新評論 進(jìn)入詳細(xì)評論頁>>