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)