[ابراهيم مراد]

مساعده فى الكود اخوانى الكرام

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
الايبهات وبخلى يعمل سكان ع البورت المفتوح انا اريد عند اكتشاف بورت مفتوح يدخل ع الاى بى االثانى ولو الاى بى الثانى اكتشف بورت مفتوح يخش ع الاى بى الثالث وهكذا مش عايز يخرجلى كل البورتات لكل اى اى بى انا اريد عند اكتشاف منفذ مفتوح من مجموعة البورتات المضافه يتنقل للاى بى الثانى
ع سبيل المثال listbox1
هحط ايبهات الشبكه بتاعة المحل بتاعى
كدا
192.168.1.10
192.168.1.11
192.168.1.12
192.168.1.13
اريد عند اكتشاف بورت مفتوح يتنقل للاى بى الثانى البرنامج حمايه هو فى مميزات كتير هرفع المشروع هنا باذن الله بعد ما اخلصو ارجوكم اللى يدخل ياريت يسعدنى فى الكود هذا