تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل كود بحث بسيط
#1
مرحبا

انا عملت مشروع وفي المشروع 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
الرد
تم الشكر بواسطة:
#2
مرحباً اخى 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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: جاسم عبد , جاسم عبد
#3
(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 واذا يوجد رقم يختلف عنها يضهر رساله تنبيه فقط



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




مرحباً اخى  dasktop
سبب الخطاء هو تغييرك فى الكود بدون ادراك كيفية التغيير
ثانياً بخصوص ان الكود يقوم بالبحث فى listbox 
لم يتم ذكره او توضيحه من الاساس فى الموضوع

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: dasktop , princelovelorn
#5
(05-10-18, 12:21 AM)elgokr كتب :
(30-09-18, 09:09 AM)dasktop كتب : اخي ضهر لي الخطا التالي +   الكود المطلوب هو ان يبحث في listbox عن اي رقم يختلف عن الارقام التالية 80 , 443, 135 واذا يوجد رقم يختلف عنها يضهر رساله تنبيه فقط




مرحباً اخى  dasktop
سبب الخطاء هو تغييرك فى الكود بدون ادراك كيفية التغيير
ثانياً بخصوص ان الكود يقوم بالبحث فى listbox 
لم يتم ذكره او توضيحه من الاساس فى الموضوع

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
لكم جزيل الشكر على المعلومات المفيده
الرد
تم الشكر بواسطة: elgokr , princelovelorn , princelovelorn
#6
الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: princelovelorn , princelovelorn


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] احتاج كود بسيط لتشفير ملف exe dametucorazon 6 237 30-01-19, 11:14 AM
آخر رد: dametucorazon
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 232 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  طلب تعديل كود استعلام new_programer 2 94 25-01-19, 11:44 PM
آخر رد: حريف برمجة
  تعديل مثال العملاء الغير مسددين القسط new_programer 7 294 25-01-19, 08:40 PM
آخر رد: new_programer
  [سؤال] طلب شروحات او دروس تعليمية لتصميم مشروع بسيط جدا للمبتدئين hyboss 1 90 21-01-19, 03:31 PM
آخر رد: elgokr
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 328 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 263 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  تعديل كود ابو مالك المنصوري 0 87 12-01-19, 11:57 PM
آخر رد: ابو مالك المنصوري
  تعديل كود ابو مالك المنصوري 0 83 12-01-19, 11:55 PM
آخر رد: ابو مالك المنصوري
  [VB.NET] تعديل بسيط في كود بحث trakktour 5 194 19-12-18, 12:53 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم