[dasktop]

مرحبا

انا عملت مشروع وفي المشروع 1 textbox وزر وعند الضغط على الزر تضهر قائمة البورتات المفتوحه

واستخدمت الكود التالي للبورتات وناجح

كود :

       On Error Resume Next
       Process.Start("cmd", "/c netstat -ano > connections.txt")
       Dim objreader As New System.IO.StreamReader("connections.txt")
       TextBox2.Text = objreader.ReadToEnd
       objreader.Close()

والبورتات الطبيعية هي 443 و80 و135 والمطلوب كود يبحث واي بورت يختلف عن البورتات السابقة يضهر رسالة تنبيه

انا استخدمت كود البحث التالي وهو المراد التعديل عليه حتى يكون اي بورت يختلف عن 443 و80 و135 يضهر رسالة تنبيه

كود :

If TextBox1.Text.Contains(TextBox2.Text) Then
   
   MsgBox("يوجد بورت غريب رقمه" & textbox2.text)

Else
   MsgBox("يوجد بورت غريب ")
End If