Status aller TCP-Ports abfragen
Zum Code
Vermutlich kennt jeder das kleine Programm netstat, welches Windows beiliegt. Dieses listet alle Ports und ihren Status auf. Über API-Funktionen kann man dies auch unter VB machen, ohne jedoch auf das Programm netstat zurückgreifen zu müssen. Bedauerlicherweise beschränkt sich die API auf TCP-Ports.

Folgende Informationen werden aufgelistet: Lokale IP-Adresse der Verbindung, lokaler Port, IP-Adresse der Gegenstelle, Port der Gegenstelle, TCP-Status.

History
15.03.2003 Hinzugefügt

Autor: Dominik Auras <Dominik_auf_vbinside.de> 

Code aus Form1.frm
Private Sub Command1_Click()
    ListConnections
End Sub
Private Sub Form_Load()
    With ListView1
      .View = lvwReport
      
      Set clmX = .ColumnHeaders.Add(, , "Local Address")
      Set clmX = .ColumnHeaders.Add(, , "Local Port")
      Set clmX = .ColumnHeaders.Add(, , "Remote Address")
      Set clmX = .ColumnHeaders.Add(, , "Remote Port")
      Set clmX = .ColumnHeaders.Add(, , "State")
    End With
End Sub