'================================================================
'= ネットワークの接続と種類

'=    (IsNetworkAlive.bas)
'================================================================
#include "Windows.bi"

' ローカルシステムがネットワークおよびネットワークに接続しているかどうかを決定
Declare Function Api_IsNetworkAlive& Lib "Sensapi" Alias "IsNetworkAlive" (ByRef lpdwFlags&)

#define NETWORK_ALIVE_AOL &H4           'AOL接続(Windows9x)
#define NETWORK_ALIVE_LAN &H1           'LAN(Local Area Network)接続
#define NETWORK_ALIVE_WAN &H2           'WAN(Wide Area Network)接続

Var Shared Text1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Flg As Long

    If Api_IsNetworkAlive(Flg) = 0 Then

        Text1.SetWindowText "ローカルシステムはネットワークに接続していません！"
    Else
        If Flg = NETWORK_ALIVE_AOL Then

            Text1.SetWindowText "ローカルシステムは「AOL」ネットワークに接続しています！"
        Else If Flg = NETWORK_ALIVE_LAN Then

            Text1.SetWindowText "ローカルシステムは「LAN」ネットワークに接続しています！"
        Else If Flg = NETWORK_ALIVE_WAN Then

            Text1.SetWindowText "ローカルシステムは「WAN」ネットワークに接続しています！"
        End If
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End