حرفه ای: گرفتن آی پی

Public Class Frm_TCP_Co
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim activeCoection() As System.Net.NetworkInformation.TcpCoectionInforma  tion = System.Net.NetworkInformation.IPGlobalProperties.G  etIPGlobalProperties.GetActiveTcpCoections
Dim portList As New ArrayList
For i = 0 To activeCoection.Length - 1
Lst_TCP_Co.Items.Add(activeCoection(i).LocalEn  dPoint.Address.ToString & ":" & activeCoection(i).LocalEndPoint.Port & " -> " & activeCoection(i).RemoteEndPoint.Address.ToStrin  g & ":" & activeCoection(i).RemoteEndPoint.Port)
Next
End Sub