'İlk once 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" _
(pStats As PMIB_UDPSTATS) As Long
'on tanımlarımızı yaptık şimdide Listview'a şekil veriyoruz
'------------------form load kısmına-----------------
Private Sub Form_Load()

Command1.Caption = "Durumu goster"

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
'Boylelikle 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(UDP) = 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(i).ListSubItems(1).ForeColor = vbRed
Next i

End With

Else

MsgBox "UDP durumu okunamıyor"
Exit Sub

End If

End Sub
've bu değerleri cağıracak olan butonumuzun ozelliği
Private Sub Command1_Click()
GetUdpStats
End Sub
'--------------------------Bitti----------------------
Burda anlatılan sadece UDP durumunu gosterir.Alında UDP protokolu onemsiz bilgilerin taşınmasında kullanılır(Genellikle)Onemli bilgiler TCP yani kontrollu protokol ile yapılır.Bir dahaki makalede buluşmak uzere hoşcakalın.
BAŞARMANIN YARISI INANMAKTIR!!!//:Baksana59
__________________