[أبو ناصر]

السلام عليكم و رحمة الله 
يمكن استعمال الامر netstat - ano الخاص بالدوس من خلال الفيجوال بيسيك و ذلك بانشاء ملف تايكست تخزن فيه كافة الاتصالات الجارية في الجهاز و البورتات المستعملة
 و استدعاؤه من خلال الفيجوال بيسيك و عرضه في RichTextBox1 . 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Process.Start("cmd", "/c netstat -ano > connections.txt")
       Dim objreader As New System.IO.StreamReader("connections.txt")
       RichTextBox1.Text = objreader.ReadToEnd
       objreader.Close()
   End Sub