會(huì)員登錄 - 用戶注冊(cè) - 網(wǎng)站地圖 Office中國(guó)(office-cn.net),專(zhuān)業(yè)Office論壇
當(dāng)前位置:主頁(yè) > 技巧 > Access技巧 > API > 正文

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

時(shí)間:2013-11-08 17:40 來(lái)源:ffice中國(guó) 作者:網(wǎng)絡(luò) 閱讀:
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Integer, lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHostname As String) As Long
Private Const WS_VERSION_REQD = &H101
 
Public Function IsConnectedState() As Boolean
    Dim udtWSAD As WSADATA
    Call WSAStartup(WS_VERSION_REQD, udtWSAD)
    IsConnectedState = CBool(gethostbyname("www.baidu.com"))
    Call WSACleanup
End Function
 

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

頂一下
(2)
100%
踩一下
(0)
0%
上一篇:什么是ADP,了解ADP的優(yōu)缺點(diǎn)
下一篇:應(yīng)用程序開(kāi)機(jī)自動(dòng)啟動(dòng)(注冊(cè)表操作技巧)
相關(guān)內(nèi)容
最新內(nèi)容
推薦內(nèi)容
熱點(diǎn)內(nèi)容
發(fā)表評(píng)論
請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī),嚴(yán)禁發(fā)布色情、暴力、反動(dòng)的言論。
評(píng)價(jià):
最新評(píng)論 進(jìn)入詳細(xì)評(píng)論頁(yè)>>