[مدري]

السلام عليكم
اود طريقه لعمل سكان للبورتات المفتوحه و تكون سريعه
حصلت على اكواد لكنها بطيئه

[الشاكي لله]

سكان للبورتات المفتوحة على الجهاز الحالي؟

لو على البورتات المفتوحة على الايبي العالمي (الروتر) ؟

[MSDOS]

لقيت لك هذا الكود جربه

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim properties = Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
    Dim connections = properties.GetActiveTcpConnections().[Select](Function(o) o.LocalEndPoint.Port)
    Dim tcpListeners = properties.GetActiveTcpListeners().[Select](Function(o) o.Port)
    Dim udpListeners = properties.GetActiveUdpListeners().[Select](Function(o) o.Port)

    Dim used = connections.Union(tcpListeners).Union(udpListeners).Distinct()
    ListBox1.Items.Clear()
    For Each port In used
        ListBox1.Items.Add(port)
    Next

End Sub

[مدري]

الشاكي لله كتب :سكان للبورتات المفتوحة على الجهاز الحالي؟

لو على البورتات المفتوحة على الايبي العالمي (الروتر) ؟

نعم على الجهاز 127.0.01

[مدري]

MSDOS كتب :لقيت لك هذا الكود جربه

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim properties = Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
    Dim connections = properties.GetActiveTcpConnections().[Select](Function(o) o.LocalEndPoint.Port)
    Dim tcpListeners = properties.GetActiveTcpListeners().[Select](Function(o) o.Port)
    Dim udpListeners = properties.GetActiveUdpListeners().[Select](Function(o) o.Port)

    Dim used = connections.Union(tcpListeners).Union(udpListeners).Distinct()
    ListBox1.Items.Clear()
    For Each port In used
        ListBox1.Items.Add(port)
    Next

End Sub

نعم هذا هو شكرا لك

[مدري]

عندي سؤال كيف اسوي اشتراط لتخطي البورتات المفتوحه