December 1, 2005 - WinTask - InetIsOffline

'
' InetIsOffline
'
' Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
'

Function InetIsOffline ()
  InetIsOffLine = External("url","InetIsOffline",0)
EndFunction

If InetIsOffLine() then
  Msgbox("We are not connected to the internet :-(",,"InetIsOffline")
else
  Msgbox("We are connected to the internet :-)",,"InetIsOffline")
Endif