[dasktop]

(06-05-22, 05:51 PM)سعود كتب :

(06-05-22, 05:06 AM)dasktop كتب : نجح الكود كل الشكر لك استاذ سعود

سااسميك دكتور الفيوجال بيسك

العفو اخي الكريم

اخي سعود انا حدثت كودك التالي 

PHP كود :

   On Error Resume Next
        Dim ip As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
        Dim p As TcpConnectionInformation() = ip.GetActiveTcpConnections
        For Each t In p
            Dim port As String = t.RemoteEndPoint.Port
            Dim index As Integer = ListBox1.Items.IndexOf(port)
            If index = -1 And (port = 443 Or port = 80) Then
                ListBox1.Items.Add(port)
            Else
                If index = -1 And (port <> 443 Or port <> 80 ) Then
                    ListBox1.SetSelected(index)
                    MsgBox("توجد منافذ غير مدرجة", MsgBoxStyle.Exclamation, "تنبيه")

                End If
            End If
        Next 


بااضافة                     ListBox1.SelectedItem(index) اذا في منفذ يختلف عن 443 و80 يحدد عليه 

ولم يحدد لماذا