Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦法(函數(shù)源碼)(3)
時(shí)間：2013-11-08 17:40 來(lái)源：ffice中國(guó) 作者：網(wǎng)絡(luò) 閱讀：次
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
----------------------------------------------------
這個(gè)函數(shù)判斷挺好,但在網(wǎng)絡(luò)不通時(shí)連接比較慢
API 函數(shù)聲明
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 "網(wǎng)絡(luò)不正常"
Else
MsgBox "網(wǎng)絡(luò)正常"
End If
End Sub
---------------------------------------
這個(gè)函數(shù)比較快,但有時(shí)判斷不準(zhǔn)確
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
(責(zé)任編輯：admin)
頂一下
(2)
100%
踩一下
(0)
0%
相關(guān)內(nèi)容
- ·API函數(shù)詳細(xì)解釋
- ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
- ·Access利用api實(shí)現(xiàn)打開(kāi)/關(guān)閉光驅(qū)
- ·應(yīng)用程序開(kāi)機(jī)自動(dòng)啟動(dòng)（注冊(cè)表操作技巧
- ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
- ·什么是ADP,了解ADP的優(yōu)缺點(diǎn)
- ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
- ·[技巧分享]多條Shell語(yǔ)句執(zhí)行導(dǎo)致判斷
- ·在access中可以調(diào)用API函數(shù)GetFileInfo
- ·Access API集中營(yíng)--增加臨時(shí)使用的字體
- ·API ShellExecute 功能說(shuō)明及應(yīng)用示例
- ·在VB中使用API函數(shù)(什么是API? )
- ·API實(shí)現(xiàn)完美的圖片出現(xiàn)效果（轉(zhuǎn)）
- ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時(shí)間
- ·如何檢測(cè)以及設(shè)置鍵盤(pán)狀態(tài)
- ·不關(guān)閉當(dāng)前數(shù)據(jù)庫(kù)COPY當(dāng)前數(shù)據(jù)庫(kù)
最新內(nèi)容
- ·API函數(shù)詳細(xì)解釋
- ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
- ·Access利用api實(shí)現(xiàn)打開(kāi)/關(guān)閉光驅(qū)
- ·應(yīng)用程序開(kāi)機(jī)自動(dòng)啟動(dòng)（注冊(cè)表操作技巧）
- ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦法(函
- ·什么是ADP,了解ADP的優(yōu)缺點(diǎn)
- ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
- ·[技巧分享]多條Shell語(yǔ)句執(zhí)行導(dǎo)致判斷出錯(cuò)
- ·在access中可以調(diào)用API函數(shù)GetFileInformat
- ·Access API集中營(yíng)--增加臨時(shí)使用的字體
推薦內(nèi)容