[سعود]

اضف else للشرط واضف او عدل  على الموجود لينفذ المطلوب

التعديل على الكود لكنه سيتسبب بتكرار ظهور رسالة لكل منفذ ليس 443 او 80

PHP كود :

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)
            ElseIf index = -1 And (port <> 443 Or port <> 80) Then
                MsgBox("توجد منافذ غير مدرجة", MsgBoxStyle.Exclamation, "تنبيه")
            End If
        Next