'İlk önce form'a 1 buton (Command1) 1'deListview(Listview1) 'ekliyoruz 'declare kısmına Private Const ERROR_SUCCESS = 0& Private Type PMIB_UDPSTATS dwInDatagrams As Long dwNoPorts As Long dwInErrors As Long dwOutDatagrams As Long dwNumAddrs As Long End Type Private Declare Function GetUdpStatistics Lib "iphlpapi" _ As Long 'ön tanımlarımızı yaptık şimdide Listview'a şekil veriyoruz 'form load kısmına Private Sub Form_Load Command1. Caption = "Durumu göster" With ListView1. View = lvwReport. ColumnHeaders. Add, , "Parametreler" . ColumnHeaders. Add, , "Değer" . ListItems. Add, , "Gelen data" . ListItems. Add, , "Giden data" . ListItems. Add, , "Port yok" . ListItems. Add, , "Alınan hatalar" End With Me. Caption = "UDP Durumu!" End Sub 'Böylelikle gelen değerler neriye gidecek belirlendi. 'Şimdi'de değerlerin okunacağı kısmı yazıyoruz. Sub GetUdpStats Dim UDP As PMIB_UDPSTATS, i As Integer If GetUdpStatistics = ERROR_SUCCESS Then With ListView1. ListItems. Item(1). SubItems(1) = UDP. dwInDatagrams. Item(2). SubItems(1) = UDP. dwOutDatagrams. Item(3). SubItems(1) = UDP. dwNoPorts. Item(4). SubItems(1) = UDP. dwInErrors For i = 1 To. Count. Item . ListSubItems(1). ForeColor = vbRed Next i End With Else MsgBox "UDP durumu okunamıyor" Exit Sub End If End Sub 've bu değerleri çağıracak olan butonumuzun özelliği Private Sub Command1_Click GetUdpStats End Sub 'Bitti Burda anlatılan sadece UDP durumunu gösterir. Alında UDP protokolü önemsiz bilgilerin taşınmasında kullanılır Önemli bilgiler TCP yani kontrollü protokol ile yapılır. Bir dahaki makalede buluşmak üzere hoşçakalın. BAŞARMANIN YARISI INANMAKTIR!!!