Francis,
try these API calls. I played with this for a while myself until I found
this combination that seems to give a reliable result.
Option Explicit
Option Private Module
Private Declare Function InternetGetConnectedState Lib "wininet" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Long
Private Declare Function InternetCheckConnection Lib "wininet.dll" _
Alias "InternetCheckConnectionA" (ByVal sUrl As String, _
ByVal lFlags As Long, ByVal lReserved As Long) As Long
Sub Test
If IsNetConnected = FALSE then Exit Sub
'do something internet related
End Sub
Public Function IsNetConnected() As Boolean
Dim lReturn As Long
IsNetConnected = InternetGetConnectedState(lReturn, 0)
'pick an IP or net address to go in the function call
If IsNetConnected = False Then _
IsNetConnected = InternetCheckConnection("
http://www.yahoo.com", 1, 0)
If IsNetConnected = False Then _
Call MsgBox("You do not appear to have an active internet connection at
this time" _
& vbcrlf & vbcrlf & "Please connect to the internet then retry this
command", _
vbOKOnly + vbInformation, msgTitle)
End Function
HTH,
Robin Hammond
www.enhanceddatasystems.com
Francis Ang said:
Using VBA codes I can now determine whether Microsoft Outlook or Outlook
Express is installed on a PC with the help from Michel Pierron. Can using
VBA codes determine whether a PC is connected to the internet or intranet?
Any help is very much appreciated.
