'
' InetIsOffline
'
' Author: Joe Strazzere
'
' 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
