[سعود]

التعديل على كودك الاخير

PHP كود :

Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim index As Integer = ListBox1.Items.IndexOf(t.RemoteEndPoint.Port)
            If index = -1 Then
                ListBox1.Items.Add(t.RemoteEndPoint.Port)
            End If
        Next