[dasktop]

مرحبا

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

صورة المشروع




البورتات هي اللتي في منتصف القائمة وتحت كلمة 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) يضهر رسالة تنبية فقط

[elgokr]

مرحباً اخى الفاضل

ما الفرق بين موضعك هنا الحالى

والموضوع السابق لك بهذا المشاركة

http://vb4arb.com/vb/showthread.php?tid=26698

تحياتى لك

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

[dasktop]

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

مرحباً اخى الفاضل

ما الفرق بين موضعك هنا الحالى

والموضوع السابق لك بهذا المشاركة

http://vb4arb.com/vb/showthread.php?tid=26698

تحياتى لك

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

اهلا وسهلا

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

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

[elgokr]

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

فى تحرير المشاركة الاولى او اضافة رد بها

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

اتمنى الانتباه حتى لا يتم تكرار المخالفة

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

تحياتى لك

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