'================================================================
'= インターネット接続状況の取得(�U)

'=    (InetIsOffline.bas)
'================================================================

' システムがインターネットに接続しているかどうかを判断
Declare Function Api_InetIsOffline& Lib "url" Alias "InetIsOffline" (ByVal dwFlags&)

If Api_InetIsOffline(0) = 0 Then
    Print "現在オンライン状態です！"
Else
    Print "現在オフライン状態です！"
End If

Stop
End