Dim myname1 As String = My.Computer.Name
Dim myip1() = System.Net.Dns.GetHostAddresses(myname1)
Dim MyIP2 As New ArrayList
Dim MyIp3 As String
For i = 0 To myip1.Count - 1
If myip1(i).AddressFamily = AddressFamily.InterNetwork Then
MyIP2.Add(myip1(i).ToString)
End If
Next
MyIp3 = MyIP2(0)
For i2 = 0 To MyIP2.Count - 1
If MyIP2(i2).ToString Like "某网卡的 IP地址" Then
MyIp3 = MyIP2(i2)
End If
Next
listen1 = New TcpListener(Net.IPAddress.Parse(MyIp3), 端口号)
listen1.Start(10)
Thared1 = New System.Threading.Thread(AddressOf RunServer)
Thared1.Start()