Keskustelu: Koodit: VB.NET: Internet-liitynnän tyyppi

Module ConnectionTypeModule

    Class InetConnection
        'Class having internet connectivity information
        ' by using API function
        Private Declare Function InternetGetConnectedState Lib "winInet" _
        (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long
        '
        ' Internal property
        Private _strType As String
        Private _strHostname As String
        Private _strIPnumber As String
        '
        'Public property
        ReadOnly Property Type() As String
            Get
                Dim k, dwFlags As Long ' locals
                k = InternetGetConnectedState(dwFlags, 0&) ' function itself
                'results to internal property
                If k = 0 Then
                    _strType = "NotDefined"
                Else
                    If (dwFlags And &H1) = 1 Then _strType = "Modem"
                    If (dwFlags And &H2) = 2 Then _strType = "LAN"
                    If (dwFlags And &H7) = 0 Then _strType = "Offline"
                End If
                Return _strType
            End Get
        End Property
        '
        ReadOnly Property HostName() As String
            Get
                _strHostname = System.Net.Dns.GetHostName
                Return _strHostname
            End Get
        End Property
        '
        ReadOnly Property IPnumber() As String
            'IP at LAN
            Get
                _strIPnumber = System.Net.Dns.GetHostByName(HostName).AddressList(0).ToString
                Return _strIPnumber
            End Get
        End Property
        '
        'Creation of the object
        Sub New()

        End Sub
    End Class

End Module