" Umut, hiç görmeyen birine gökkuşağını anlatmak kadar zor ve imkansız... "

Categories

-

Vb.Net kullanarak mac adresi bilgilerini görüntüleme

Mektup gönderirken alicinin ev adresini bilmeniz gerekir. Postaci, adres sayesinde mektubun nereye gidecegini bilir. Adresin essiz olmasi gerekir, ayni adreste iki ev bulunmamalidir. Internet adresleri de posta hizmetine benzer biçimde çalisiyor. Cihazlariniz mektup göndermek yerine "veri paketleri" gönderiyor. Paketlerin nereye gidecegini ise IP ve MAC adresleri belirliyor.

MAC adresi, aga bagli bir cihazin kendi üzerinde bulunan, üreticiler tarafindan atanan taniticidir. MAC adresleri, çogu zaman üç farkli biçimde yazilirlar. Bu biçimler, asagidaki gibi görünür:

  • 68:7F:74:12:34:56
  • 68-7F-74-12-34-56
  • 687.F74.123.456

Adresin ilk alti hanesi üreticiyi temsil eder; son alti hanesi ise kart için essiz bir tanitici numarasidir. MAC adresi, cihazin hangi aga bagli olduguyla ilgili bir bilgi içermez.

IP adresi, TCP/IP protokolü yardimiyla veriyi bir agdan digerine tasimakta kullanilir. MAC adresi ise veriyi agdaki dogru cihaza tasimakta kullanilir.

Vb.Net kullanarak bilgisayarimda bulunan ethernet kartinin veya wireless aygitimizin mac adres bigilerini inceleyecek olursak, Imports System.Net.NetworkInformation sinif kutuphanesini projemize dahil etmemiz gerekiyor.

Imports System.Net.NetworkInformation
Public Class Form1

    Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces

    Sub BilgilerimiGetir()
        For i = 0 To nics.LongCount - 1
            ListBox1.Items.Add("Markasi :" & " " & nics(i).Description.ToString())
        Next
        'ListBox1.Items.Add(nics(5).GetPhysicalAddress)

        For i = 0 To nics.LongCount - 1
            ListBox2.Items.Add("Mac Adresi :" & " " & nics(i).GetPhysicalAddress.ToString())
        Next

        For i = 0 To nics.LongCount - 1
            ListBox3.Items.Add("Tür :" & " " & nics(i).NetworkInterfaceType.ToString())
        Next

        For i = 0 To nics.LongCount - 1
            ListBox4.Items.Add("Ismi :" & " " & nics(i).Name.ToString())
        Next

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        BilgilerimiGetir()
    End Sub
End Class

Uygulama dosyasini buradan indirebilirsiniz.

  • 0
  • 4218
  • 0

- BUNLARIDA GÖZDEN GEÇİREBİLİRSİNİZ -

HENÜZ YORUM YAPILMAMIŞ !

Yorum yazın

HAKKIMDA

KONULARI TAKİP EDİN

SOSYAL AĞLAR

  • Mesajınızı Gonderin