Binaryworld - IsConnectedToInternet - Check whether there is an Internet connection ... [ VB -> Internet ]

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
  lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

' return True if there is an active Internect connection
'
' optionally returns the connection mode through
' its argument (see INTERNET_CONNECTION_* constants)
' 1=modem, 2=Lan, 4=proxy
' 8=modem busy with a non-internet connection

Function IsConnectedToInternet(Optional connectMode As Integer) As Boolean
  Dim flags As Long
  ' this ASPI function does it all
  IsConnectedToInternet = InternetGetConnectedState(flags, 0)
  ' return the flag through the optional argument
  connectMode = flags
End Function