VisualBasic bestehene Netzwerkverbindungen anzeigen

[mabstrei]

Hi,

weis zufällig jemand wie ich in VB eine list of system.net.networkinformation.tcpinformation
bekomme für jede im moment bestehende verbindung

in der console ausgegeben sollt s ungefärh wie netstat -n aussehen quasi so:

Aktive Verbindungen

Proto Lokale Adresse Remoteadresse Status
TCP 10.0.206.13:1624 10.0.104.2:445 HERGESTELLT
TCP 10.0.206.13:1633 10.0.104.24:445 HERGESTELLT
TCP 10.0.206.13:1686 10.0.104.38:139 HERGESTELLT
TCP 10.0.206.13:1690 10.0.105.200:8080 WARTEND
TCP 10.0.206.13:1693 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1715 10.0.105.200:8080 WARTEND
TCP 10.0.206.13:1716 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1717 10.0.105.200:8080 WARTEND
TCP 10.0.206.13:1718 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1720 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1721 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1723 10.0.105.200:8080 HERGESTELLT
TCP 10.0.206.13:1724 10.0.105.200:8080 HERGESTELLT

 

[AndrewPoison]

Obs einen direkten Weg gibt, kann ich dir nicht sagen, aber wie wärs wenn du einfach das Ergebnis von Netstat auf deine Anwendung pipen und dann parsen lässt? Das ganze halt im Sekundentakt oder wie es dir eben gefällt.

 

[mabstrei]

dass kann ich nicht machen ich will mir nen kleines tool schreiben dass mir wenn eine verbindung zu einem bestimmten rechner besteht eine bestimmte aktion ausführt z. B. alle fenster minimieren

das teil soll jetz mal in der conole laufen später dann als forms und da kann ich das mit dem pipen nicht mehr machen

 

[AndrewPoison]

Kenn mich mit VB nicht aus, aber unter Delphi kann ich auch Anwendungen pipen, wenn meine Anwendung als Forms-Anwendung läuft. Dazu kann ich etwa eine Textbox oder eben eine Stringliste als Konsolenoutput verwenden.

 

[Housechen]

Google?

 

[mabstrei]

scherzkecks denkst ich hab noch nicht gegoogeld da finde ich auch nix was in die richtung geht

 

[Housechen]

Der war aber nicht lustig.
http://www.google.de/search?hl=de&q=VB.net+netstat&btnG=Google-Suche&meta=

 

[Drakonomikon]

Vielleicht sowas?

Dim N As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces
 
For Each NetItem As NetworkInterface In N
    If NetItem.NetworkInterfaceType = NetworkInterfaceType.[URL="http://msdn.microsoft.com/en-us/library/system.net.networkinformation.networkinterfacetype.aspx"]IrgendeinMember[/URL] Then 
         'Irgendwas
    End If
Next

EDIT: system.net.networkinformation.tcpinformation? was soll das sein? Wenn es sowas gibt mach es doch nach gleichem Schema wie oben angegeben.