Is Connected to Internet?

[lonely]

Hi All,
Please can someone let me know if its possible to determine using the VBA code whether Internet connection is available. If the connection is available, i wish to run a piece of code that I have written, otherwise i wish the program to exit.

Any useful leads will be appreciated.
Thanks a lot in advance!
Lonely

 

[Tom Urtis]

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

 

[lonely]

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

 

[Tom Urtis]

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

 

[Ivan F Moala]

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

 

[lonely]

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