VB6代码判断网络是否连接

2013/12/16·更新于 2024/11/4

 1Private Const FLAG_ICC_FORCE_CONNECTION = &H1
 2Private Declare  Function InternetCheckConnection Lib "wininet.dll" Alias  "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As  Long, ByVal dwReserved As Long) As Long
 3'本代码使用Basic语言,转载请注明出处
 4Private Sub Command1_Click()
 5If InternetCheckConnection("http://www.hkfx.net", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
 6MsgBox "未连接", vbInformation
 7Else
 8MsgBox "已连接", vbInformation
 9End If
10End Sub