[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

[elgokr]

مرحباً اخى dasktop

فقط كل ما عليك جعل كود الزر بهذا الشكل

كود :

       Dim port_ As String() = TextBox1.Text.Split(",")
       For ii As Integer = 0 To port_.Count - 1
           If TextBox2.Text.Contains(port_(ii)) = True Then
               MsgBox("البورت المراد البحث عنه موجود بالفعل وهو " & port_(ii))
           Else
               MsgBox("لم يتم الحصول على اى بورت من المدخل")
           End If
       Next

تحياتى لك

وتمنياتى لك التوفيق

[dasktop]

(29-09-18, 02:21 PM)elgokr كتب :

مرحباً اخى dasktop

فقط كل ما عليك جعل كود الزر بهذا الشكل

كود :

       Dim port_ As String() = TextBox1.Text.Split(",")
       For ii As Integer = 0 To port_.Count - 1
           If TextBox2.Text.Contains(port_(ii)) = True Then
               MsgBox("البورت المراد البحث عنه موجود بالفعل وهو " & port_(ii))
           Else
               MsgBox("لم يتم الحصول على اى بورت من المدخل")
           End If
       Next

تحياتى لك

وتمنياتى لك التوفيق

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

[elgokr]

(30-09-18, 09:09 AM)dasktop كتب : اخي ضهر لي الخطا التالي +   الكود المطلوب هو ان يبحث في listbox عن اي رقم يختلف عن الارقام التالية 80 , 443, 135 واذا يوجد رقم يختلف عنها يضهر رساله تنبيه فقط

مرحباً اخى  dasktop

سبب الخطاء هو تغييرك فى الكود بدون ادراك كيفية التغيير

ثانياً بخصوص ان الكود يقوم بالبحث فى listbox 

لم يتم ذكره او توضيحه من الاساس فى الموضوع

وتم عمل الكود بردى السابق طبقاً لمحتوى الموضوع الخاص بك

حتى لا اقوم بالتعدل على الكود

او كتابة كود يقوم بعمل المطلوب راجع هذا الفيديو

https://www.youtube.com/watch?v=IXTw7s8XuRA

ستوضح لك الفكرة كاملاً فقط كل ما عليك بدل سطر التظليل استبدله بكود الرسالة المطلوب عرضها

تحياتى لك

وتمنياتى لك التوفيق

[dasktop]

(05-10-18, 12:21 AM)elgokr كتب :

(30-09-18, 09:09 AM)dasktop كتب : اخي ضهر لي الخطا التالي +   الكود المطلوب هو ان يبحث في listbox عن اي رقم يختلف عن الارقام التالية 80 , 443, 135 واذا يوجد رقم يختلف عنها يضهر رساله تنبيه فقط

مرحباً اخى  dasktop

سبب الخطاء هو تغييرك فى الكود بدون ادراك كيفية التغيير

ثانياً بخصوص ان الكود يقوم بالبحث فى listbox 

لم يتم ذكره او توضيحه من الاساس فى الموضوع

وتم عمل الكود بردى السابق طبقاً لمحتوى الموضوع الخاص بك

حتى لا اقوم بالتعدل على الكود

او كتابة كود يقوم بعمل المطلوب راجع هذا الفيديو

https://www.youtube.com/watch?v=IXTw7s8XuRA

ستوضح لك الفكرة كاملاً فقط كل ما عليك بدل سطر التظليل استبدله بكود الرسالة المطلوب عرضها

تحياتى لك

وتمنياتى لك التوفيق

لكم جزيل الشكر على المعلومات المفيده

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق