IsConnectedToInternet – Check whether there is an Internet connection

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _    lpSFlags As Long, ByVal dwReserved As Long) As LongConst INTERNET_CONNECTION_MODEM = 1Const INTERNET_CONNECTION_LAN = 2Const INTERNET_CONNECTION_PROXY = 4Const 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 connectionFunction 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 = flagsEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: