How to check whether you are connected with internet

Home » Internet » How to check whether you are connected with internet

How to check whether you are connected with internet

Posted on September 2, 2009

On your projects, you might require to know whether you are connected with Internet. So that you can decide to connect the internet or not. There are few ways to check whether you are connected to internet or now. Here is one of the way.

This piece of VB 6 code will help you to accomplish that.

Instructions:

Create a new Project
Add a new Module to it

Now, add the following code to that module:

Option Explicit
 
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
 
Sub Main()
  If AmIOnline Then
    Call MsgBox("You are connected with internet.", vbInformation, App.Title)
  Else
    Call MsgBox("You are not connected with internet.", vbInformation, App.Title)
  End If
End Sub
 
Private Function AmIOnline() As Boolean
  AmIOnline = InternetGetConnectedState(0&, 0&)
End Function