Luokka, joka kertoo ineternet liityntätavan
LAN/Modeemi/Offline,
Koneen nimen verkossa,ja
paikallisen IP osoitteen.
Moduuliin
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 ModuleKäyttötapa
Dim Liityntä As New InetConnection TextBox1.Text = Liityntä.Type TextBox2.Text = Liityntä.HostName TextBox3.Text = Liityntä.IPnumber
Ihan fiksu. Tosin ei taida olla takeita siitä että nettiliittymä toimii ensimmäisen verkkokortin kautta, jos kortteja on useampia. Uusissa emoissakin on paikat useammalle kuin yhdelle liittymälle. Kirjoitteletko tnb kommentit ihan oikeasti englanniksi vai mistäs tuon tempaisit?
Kiitokset kuitenkin hyvästä samplesta.
Aihe on jo aika vanha, joten et voi enää vastata siihen.