Problem checking for internet connection

[Flashster]

This check seems to be 'true' even when I'm not connected to the internet.
My network card is disabled also. Could someone tell me what I'm doing
wrong?

--
Declare Function InternetCheckConnection Lib "wininet.dll" Alias
"InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long,
ByVal dwReserved As Long) As Long



Private Sub btn_chk_int_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_chk_int.Click

Const FLAG_ICC_FORCE_CONNECTION = False

If InternetCheckConnection("http://www.yahoo.com",
FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then

MsgBox("Connection to http://www.yahoo.com ---failed---!",
vbInformation)

Else

MsgBox("Connection to http://www.yahoo.com succeeded!",
vbInformation)

End If

End Sub



--

 

[Herfried K. Wagner [MVP]]

This check seems to be 'true' even when I'm not connected to the internet.
My network card is disabled also. Could someone tell me what I'm doing
wrong?

Your declaration is wrong. Use this one instead:

\\\
Private Declare Auto Function InternetCheckConnection Lib "wininet.dll" ( _
ByVal lpszUrl As String, _
ByVal dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean

Private Const FLAG_ICC_FORCE_CONNECTION As Int32 = &H1
///

 

[Flashster]

Thanks

Your declaration is wrong. Use this one instead:

\\\
Private Declare Auto Function InternetCheckConnection Lib "wininet.dll"
( _
ByVal lpszUrl As String, _
ByVal dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean

Private Const FLAG_ICC_FORCE_CONNECTION As Int32 = &H1
///