29-09-18, 10:59 AM
مرحبا
انا عملت مشروع وفي المشروع 1 textbox وزر وعند الضغط على الزر تضهر قائمة البورتات المفتوحه
واستخدمت الكود التالي للبورتات وناجح
والبورتات الطبيعية هي 443 و80 و135 والمطلوب كود يبحث واي بورت يختلف عن البورتات السابقة يضهر رسالة تنبيه
انا استخدمت كود البحث التالي وهو المراد التعديل عليه حتى يكون اي بورت يختلف عن 443 و80 و135 يضهر رسالة تنبيه
انا عملت مشروع وفي المشروع 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