• Home
 · 
• Internet/HTML
 · 
• check internet connection

check internet connection

checks the internet connection

Assumes
I have tested this code on windows 2000 and XP. Dont know whether it works for windows 9x.

Rate check internet connection

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

Private Const FLAG_ICC_FORCE_CONNECTION = 1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Boolean
Private Sub Command1_Click()
Dim abc As String
 abc = InternetCheckConnection("http://www.microsoft.com", FLAG_ICC_FORCE_CONNECTION, 0)
 If abc = "True" Then
  MsgBox "Connected to the internet."
 Else
  MsgBox "Not connected to the internet."
 End If
End Sub