منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تطوير بسيط للكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تطوير بسيط للكود (/showthread.php?tid=26793)

تطوير بسيط للكود - dasktop - 04-10-18

مرحبا

انا عملت مشروع ممتاز وهو عبارة عن اضهار البورتات المفتوحه بلجهاز والكود ناجحه

صورة المشروع




البورتات هي اللتي في منتصف القائمة وتحت كلمة Foreign Address


وبتحديد هي اللتي بعد ال :                                

مثال 192.168.226.1:139

ال 139 هو بورت مفتوح



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



كود :
       On Error Resume Next
       Process.Start("cmd", "/c netstat -a > net.txt")
       Dim objreader As New System.IO.StreamReader("net.txt")
       TextBox1.Text = objreader.ReadToEnd
       objreader.Close()





واستخدمت كود البحث التالي للبحث التلقائي عن بورتات محدده 




هاذا كود البحث ويعمل وناجح


كود :
           Dim a As String
       Dim b As String
       a = 1900
       If a = 1900 Then
           MsgBox("yas connect 1900")
       Else
           MsgBox("not 1900")
       End If

       b = InStr(TextBox1.Text, a)
       If b Then

           TextBox1.Focus()

           TextBox1.SelectionStart = b - 1

           TextBox1.SelectionLength = Len(a)
       End If



المطلوب تطوير كود البحث حتى يبحث عن الارقام اللتي بعد ال :
                             

مثال 192.168.226.1:139

ال 139 هو بورت مفتوح ويكون الكود اذا وجد ارقام بعد ال : تختلف عن الارقام التالية (80.443.135.1900.21) يضهر رسالة تنبية فقط

RE: تطوير بسيط للكود - elgokr - 05-10-18

مرحباً اخى الفاضل
ما الفرق بين موضعك هنا الحالى
والموضوع السابق لك بهذا المشاركة
http://vb4arb.com/vb/showthread.php?tid=26698

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


RE: تطوير بسيط للكود - dasktop - 05-10-18

(05-10-18, 12:16 AM)elgokr كتب :
مرحباً اخى الفاضل
ما الفرق بين موضعك هنا الحالى
والموضوع السابق لك بهذا المشاركة

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

اهلا وسهلا

الفرق فقط وضحت الفكره بشكل اسهل مطلوب تعديل للكود حتى يبحث عن الارقام اللتي بعد ال :

واذا كانت تختلف عن الارقام السابقة يضهر رسالة تنبيه فقط

RE: تطوير بسيط للكود - elgokr - 05-10-18

فلماذا لم يتم التوضيح الفكرة داخل الموضوع نفسه
فى تحرير المشاركة الاولى او اضافة رد بها

دون الحاجة الى تكرار الموضوع بدون داع
اتمنى الانتباه حتى لا يتم تكرار المخالفة

اتمنى مراجعة الموضوع الاخر فتم الرد به وتم وضع ما تريده

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