منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برنامج كشف كافة اتصالات جهازك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم إخوتي إني ارغب بإنشاء برنامج يقوم بعرض كافة الاتصالات الجارية في الجهاز مع عرض  ip  والبورت  طبعا أعلم ان هناك برامج جاهزة مثل Process Hacker   ولكن ارجو المساعدة في شرح كيفية برمجة أوامر هكذا برامج ولكم جزيل الشكر والإمتنان 
السلام عليكم و رحمة الله 
يمكن استعمال الامر 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