Internet Connection Detect....

[devGOD]

anyone know how to detect if an Internet Connection is still present or has been dropped? Other than seeing if a webpage loads.

i want to be able to insert a code into the Form Load and have it monitor the net connection and pause my app if connection is lost.

[McGenius]

Here is a quick from allapi.com:

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 Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    If InternetCheckConnection("http://www.allapi.net/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "Connection to [url]http://www.allapi.net/[/url] failed!", vbInformation
    Else
        MsgBox "Connection to [url]http://www.allapi.net/[/url] succeeded!", vbInformation
    End If
End Sub

[da_haCKEr]

Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    'InetIsOffline returns 0 if you're connected
    MsgBox "Are you connected to the internet? " + CStr(CBool(Not (InetIsOffline(0)))), vbInformation
End Sub