29-05-14, 03:38 PM
مساعده فى الكود اخوانى الكرام
انا بضيف فى listbox1
الايبهات وبخلى يعمل سكان ع البورت المفتوح انا اريد عند اكتشاف بورت مفتوح يدخل ع الاى بى االثانى ولو الاى بى الثانى اكتشف بورت مفتوح يخش ع الاى بى الثالث وهكذا مش عايز يخرجلى كل البورتات لكل اى اى بى انا اريد عند اكتشاف منفذ مفتوح من مجموعة البورتات المضافه يتنقل للاى بى الثانى
ع سبيل المثال listbox1
هحط ايبهات الشبكه بتاعة المحل بتاعى
كدا
192.168.1.10
192.168.1.11
192.168.1.12
192.168.1.13
اريد عند اكتشاف بورت مفتوح يتنقل للاى بى الثانى البرنامج حمايه هو فى مميزات كتير هرفع المشروع هنا باذن الله بعد ما اخلصو ارجوكم اللى يدخل ياريت يسعدنى فى الكود هذا
PHP كود :
Private Function TCP_Port_Open(ByVal ip As String, ByVal port As Integer) As Boolean
Dim TcpPortscan As New TcpClient
Try
'Try to connect
TcpPortscan.Connect(ip, port)
' we are still here :) so this port is asumed open
Return True
Catch ex As Exception
Return False
Finally
TcpPortscan.Close()
End Try
End Function
PHP كود :
اFor a = 0 To TextBox1.Lines.Length - 1
Dim Port As Integer = TextBox1.Lines(a) & (vbCrLf)
For x = 0 To ListBox1.Items.Count - 1
Dim ip As String = ListBox1.Items.Item(x)
ListBox1.SetSelected(x, True)
Threading.Thread.Sleep(1)
'Call the function
Dim PortOpen As Boolean = TCP_Port_Open(ip, Port)
Next
Next
الايبهات وبخلى يعمل سكان ع البورت المفتوح انا اريد عند اكتشاف بورت مفتوح يدخل ع الاى بى االثانى ولو الاى بى الثانى اكتشف بورت مفتوح يخش ع الاى بى الثالث وهكذا مش عايز يخرجلى كل البورتات لكل اى اى بى انا اريد عند اكتشاف منفذ مفتوح من مجموعة البورتات المضافه يتنقل للاى بى الثانى
ع سبيل المثال listbox1
هحط ايبهات الشبكه بتاعة المحل بتاعى
كدا
192.168.1.10
192.168.1.11
192.168.1.12
192.168.1.13
اريد عند اكتشاف بورت مفتوح يتنقل للاى بى الثانى البرنامج حمايه هو فى مميزات كتير هرفع المشروع هنا باذن الله بعد ما اخلصو ارجوكم اللى يدخل ياريت يسعدنى فى الكود هذا