개발 참고자료

function long IsNetworkAlive(Ref Long lpdwFlags ) Library "SENSAPI.DLL"

Constant long NETWORK_ALIVE_AOL = 4
Constant long NETWORK_ALIVE_LAN = 1
Constant long NETWORK_ALIVE_WAN = 2

Long Ret
String sKind

If IsNetworkAlive(Ret) = 0 Then
MessageBox ("","The local system is not connected to a network!")
Else
Choose Case Ret
Case NETWORK_ALIVE_AOL
sKind = 'NETWORK_ALIVE_AOL'
Case NETWORK_ALIVE_LAN
sKind = 'NETWORK_ALIVE_LAN'
Case NETWORK_ALIVE_WAN
sKind = 'NETWORK_ALIVE_WAN'
End Choose
MessageBox ("", &
"The local system is connected to a " &
+ sKind + " network!" )
end if