Ip Adresini Öğrenme

Bu örnekte Bilgisayarımızın Ağa ve İnternete bağlandığı IP adresini öğreneceğiz. Aşağıdaki şekil de örneğimizi inceleyebilirsiniz.

Şekil 1

Forma yazılacak kodlar:

Imports System

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GetIPAddress()
    End Sub

Public Sub GetIPAddress()

        Dim myIPAddress, x As Net.IPAddress
        Dim myIPHostEntry As New Net.IPHostEntry()
        myIPHostEntry = Net.Dns.GetHostByName(Net.Dns.GetHostName())
        For Each x In myIPHostEntry.AddressList
        TextBox2.Text = x.ToString
        Next

End Class

Bir sonraki makalemizde Hardisk Seri No sunu  ve Modelini öğrenmeyi göreceğiz. Görüşmek dileğiyle...Bahadirsa