Hi,
My application is using VB6. I want to check if
the PC is connect to internet.

My code is:

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags
as Long, byval dwReserved as Long) as Boolean
Dim ll as long
Dim ret as Boolean
ret = InternetGetConnectedState(ll, 0)
Msgbox INTERNET_CONNECTION_LAN


ret is always False.
and more I want to see what value INTERNET_CONNECTION_LAN is.

Msgbox INTERNET_CONNECTION_LAN
display nothing. Then I try this

Public Declare Function InternetAttemptConnect _
Lib "wininet" (ByVal dwReserved As Integer) As Integer
dim ss
ss=InternetAttemptConnect(0),

it return nothing too. If I need include some others?


Thanks
zys