04-10-18, 10:29 PM
مرحبا
انا عملت مشروع ممتاز وهو عبارة عن اضهار البورتات المفتوحه بلجهاز والكود ناجحه
صورة المشروع
البورتات هي اللتي في منتصف القائمة وتحت كلمة Foreign Address
وبتحديد هي اللتي بعد ال :
مثال 192.168.226.1:139
ال 139 هو بورت مفتوح
واستخدمت الكود التالي لمعرفة البورتات ويعمل وناجح
واستخدمت كود البحث التالي للبحث التلقائي عن بورتات محدده
هاذا كود البحث ويعمل وناجح
المطلوب تطوير كود البحث حتى يبحث عن الارقام اللتي بعد ال :
مثال 192.168.226.1:139
ال 139 هو بورت مفتوح ويكون الكود اذا وجد ارقام بعد ال : تختلف عن الارقام التالية (80.443.135.1900.21) يضهر رسالة تنبية فقط
انا عملت مشروع ممتاز وهو عبارة عن اضهار البورتات المفتوحه بلجهاز والكود ناجحه
صورة المشروع
البورتات هي اللتي في منتصف القائمة وتحت كلمة 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) يضهر رسالة تنبية فقط