'
' IsNetworkAlive
'
' Author: Joe Strazzere
'
' IsNetworkAlive Lib "SENSAPI.DLL"
' (ByRef lpdwFlags As Long) As Long
'
dim memprt as unsigned
memptr=allocate(4)
a = External("SENSAPI","IsNetworkAlive",memptr)
Select case a
Case 1
msgbox("Connected to a Lan",,"IsNetworkAlive")
Case 2
msgbox("Connected to a Wan",,"IsNetworkAlive")
Case 4
msgbox("Connected to AOL",,"IsNetworkAlive")
Case Else
msgbox("Not Connected to a Network",,"IsNetworkAlive")
EndSelect
