C# Signature:

[DllImport("wininet.dll", SetLastError=true)]
static extern int InternetAttemptConnect(int dwReserved);

VB Signature:

Public Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Long = 0) As Long

Notes:

If the computer is already connected, the function may hang.

Tips & Tricks:

Please add some!

Sample Code:

  ' This function tries to connect to the internet. If it works, it returns True,
  ' and False if it doesn't.
  ' This code is for VB 2002 or newer. For VB 6, replace "Integer" with "Long".

  Private Declare Function InternetAttemptConnect Lib "wininet" (Optional ByVal dwReserved As Integer = 0) As Integer

  Public Function ConnectToInternet() As Boolean
    If InternetAttemptConnect(0) = 0 Then
      Return True
    Else
      Return False
    End If
  End Function

Alternative Managed API:

Do you know one? Please contribute it!