检查网络连接状态，高手赐教

Question

Private Sub Timer1_Timer()If InternetCheckConnection("http://www.baidu.com", 1, 0) = 1 Then
     Text5.Text = "Internet已连接"
     
  
    Else
        Text5.Text = "Internet已断开"
       
    End If
End Sub这个检查网络连接怎么错误啊
那个高手指点一下，或者给个简单的代码啊

Answer 1

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long， ByVal dwReserved As Long) As Long把这个加上，放在窗体代码的最上面，注意写到1行里面。

Answer 2

我这可以啊
Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load()
    Timer1.Interval = 4000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()If InternetCheckConnection("http://www.baidu.com", 1, 0) = 1 Then
Text5.Text = "Internet已连接"
Else
Text5.Text = "Internet已断开"End If
End Sub