Hi,

Is it possible in XL to check if i'm connected to the internet?

Thanks

John

John wrote:
> Hi,
>
> Is it possible in XL to check if i'm connected to the internet?
>
> Thanks
>
> John

You will need to the Wiindows API to determine if your connection is
live, not just that you have a
physical connection to the internet. Place this code in a Standard VBA
Module. The Function portions test if your connection is live, and the
Sub will display the results with a MessageBox.

'Note: WinINet dial-up functions do not support double-dial
connections,
'SmartCard authentication, or connections that require registry-based
certification.

'Flags for GetInternetState, these are returned
Public Const INTERNET_CONNECTION_MODEM As Long = &H1
Public Const INTERNET_CONNECTION_LAN As Long = &H2
Public Const INTERNET_CONNECTION_PROXY As Long = &H4
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

Public Declare Function GetInternetState _
Lib "Wininet.dll" _
Alias "InternetGetConnectedState" _
(ByVal lpdwFlags As Long, _
ByVal Reserved As Long) As Long


Public Function IsInternetLive() As Boolean

Dim Flags As Long
Dim Ret

Ret = GetInternetState(Flags, 0&)
IsInternetLive = Ret And Not (Flags And
INTERNET_CONNECTION_OFFLINE)

End Function

Sub CheckInternetConnection()

If IsInternetLive Then
MsgBox "You are connected to the Internet."
Else
MsgBox "You are not connected to the Internet."
End If

End Sub

Sincerely,
Leith Ross

Thanks Leith, perfect solution

John

"Leith Ross" wrote:

>
> John wrote:
> > Hi,
> >
> > Is it possible in XL to check if i'm connected to the internet?
> >
> > Thanks
> >
> > John
>
> You will need to the Wiindows API to determine if your connection is
> live, not just that you have a
> physical connection to the internet. Place this code in a Standard VBA
> Module. The Function portions test if your connection is live, and the
> Sub will display the results with a MessageBox.
>
> 'Note: WinINet dial-up functions do not support double-dial
> connections,
> 'SmartCard authentication, or connections that require registry-based
> certification.
>
> 'Flags for GetInternetState, these are returned
> Public Const INTERNET_CONNECTION_MODEM As Long = &H1
> Public Const INTERNET_CONNECTION_LAN As Long = &H2
> Public Const INTERNET_CONNECTION_PROXY As Long = &H4
> Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
> Public Const INTERNET_RAS_INSTALLED As Long = &H10
> Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
> Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
>
> Public Declare Function GetInternetState _
> Lib "Wininet.dll" _
> Alias "InternetGetConnectedState" _
> (ByVal lpdwFlags As Long, _
> ByVal Reserved As Long) As Long
>
>
> Public Function IsInternetLive() As Boolean
>
> Dim Flags As Long
> Dim Ret
>
> Ret = GetInternetState(Flags, 0&)
> IsInternetLive = Ret And Not (Flags And
> INTERNET_CONNECTION_OFFLINE)
>
> End Function
>
> Sub CheckInternetConnection()
>
> If IsInternetLive Then
> MsgBox "You are connected to the Internet."
> Else
> MsgBox "You are not connected to the Internet."
> End If
>
> End Sub
>
> Sincerely,
> Leith Ross
>
>

Whilst there is a range of API function to tell you various info about
state, if you need to cater for all the possible ways users may connect, the
only reliable way is try a known site.
How you do that is up to you: Ping, HTTPRequest, WebQuery etc.

NickHK

"John" <(E-Mail Removed)> wrote in message
news:42A021B7-5B1F-41E2-B43A-(E-Mail Removed)...
> Hi,
>
> Is it possible in XL to check if i'm connected to the internet?
>
> Thanks
>
> John
>