p30_code
جمعه 26 خرداد 1396, 13:53 عصر
با سلام خدمت دوستان
توضیحات در مورد خط به خط این کد رو میخواهم
با اجرا شدن برنامه مشکل ندارم
Public Class Frm_TCP_Conn
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim activeConnection() As System.Net.NetworkInformation.TcpConnectionInforma tion = System.Net.NetworkInformation.IPGlobalProperties.G etIPGlobalProperties.GetActiveTcpConnections
Dim portList As New ArrayList
For i = 0 To activeConnection.Length - 1
Lst_TCP_Conn.Items.Add(activeConnection(i).LocalEn dPoint.Address.ToString & ":" & activeConnection(i).LocalEndPoint.Port & " -> " & activeConnection(i).RemoteEndPoint.Address.ToStrin g & ":" & activeConnection(i).RemoteEndPoint.Port)
Next
End Sub
End Class
توضیحات در مورد خط به خط این کد رو میخواهم
با اجرا شدن برنامه مشکل ندارم
Public Class Frm_TCP_Conn
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim activeConnection() As System.Net.NetworkInformation.TcpConnectionInforma tion = System.Net.NetworkInformation.IPGlobalProperties.G etIPGlobalProperties.GetActiveTcpConnections
Dim portList As New ArrayList
For i = 0 To activeConnection.Length - 1
Lst_TCP_Conn.Items.Add(activeConnection(i).LocalEn dPoint.Address.ToString & ":" & activeConnection(i).LocalEndPoint.Port & " -> " & activeConnection(i).RemoteEndPoint.Address.ToStrin g & ":" & activeConnection(i).RemoteEndPoint.Port)
Next
End Sub
End Class