Is Connected to Internet?

On way, from Hans Herber:

Option Explicit

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean

Function IsConnected() As Boolean
Dim lStat As Long
IsConnected = (InternetGetConnectedState(lStat, 0&) <> 0)
End Function

Sub InternetConnection()
Dim bln As Boolean
bln = IsConnected
If bln Then
MsgBox "Yes, internet connection exists."
Else
MsgBox "No, internet connection does not exist."
End If
End Sub

Hi Tom,
Thanks a lot for the code. However, since i would be distributing this to some of my team mates, i was wondering if we can make this independent of any dll.

I assume that the above code will not run in case the person does not have the dll installed.
Let me know if i misunderstood u.
Thanks

Wininet is supported on Intel machines and is included in the library of Internet Explorer versions, see further explanations here:
http://www.vbip.com/wininet/wininet_version.asp
http://builder.com.com/5100-6373-1045308.html

There are a lot of browsers and systems out there, so you can try pinging an internet address instead of testing internet connection, and condition for the error, based on the premise of code such as at this link:
http://www.mrexcel.com/board2/viewtopic.php?t=142849

The dll is part of Internet Extensions for Win32 and avail on all Win OS so you should be ok if they run windows.

Hi Tom and Ivan,
Thanks a lot...as usual u guys were awesome!