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]]

"Flashster" <fl***********@hotmail.com> schrieb:

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

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
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Flashster]

Thanks
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:eR**************@TK2MSFTNGP15.phx.gbl...

"Flashster" <fl***********@hotmail.com> schrieb:

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

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
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>