VS提示说代码过期了,该如何写呢

VS提示说代码过期了,该怎么写呢?

         Dim addr As IPAddress
                If Dns.GetHostByName(Dns.GetHostName()).AddressList.Count &gt; 1 Then    '对应双IP的状况，加上此判断 

                    addr = New IPAddress(Dns.GetHostByName(Dns.GetHostName()).AddressList(0).Address)
                    If addr.ToString.StartsWith("192") Then
                    Else
                        addr = New IPAddress(Dns.GetHostByName(Dns.GetHostName()).AddressList(1).Address)
                    End If
                Else
                    addr = New IPAddress(Dns.GetHostByName(Dns.GetHostName()).AddressList(0).Address)
                End If

 Dim iplocalendpoint As IPEndPoint = New IPEndPoint(addr, 5656)
                tcpl = New TcpListener(iplocalendpoint)
                tcpl.Start()
                While listernerRun
                    Dim s As Socket = tcpl.AcceptSocket
                    Dim remote As String = s.RemoteEndPoint.ToString
                    Dim stream(512) As Byte
                    Dim i As Integer = s.Receive(stream)
                    Dim msg As String = "&lt;" + remote + "&gt;" + Encoding.UTF8.GetString(stream)
                    Dim arg As AddMessageEventarge = New AddMessageEventarge()
                    arg.mess = msg
                    RaiseEvent OnAddMessage(Me, arg)
                End While

以上在vs2010提示代码已过期

本来过期是还是可以用的, 但不知道为什么今天在另外一台电脑不可以用了,经排查是这段代码的原因

注释了就好了.因为这个机器的第一个网卡刚好是我需要监听的网卡,所以暂时没问题,但我想把程序设成比较通用啊,该怎么设才能准确定位到我想要的网卡监听呢?

Visual?Studio 网卡 VB
[解决办法]
取IP，我一直在用过期的方法，新方法取的不是在用的网卡，老方法才管用
[解决办法]
你说的是“过时”，ms会推荐用新的方法来代替，但过时的方法一样可以使用，只是不建议用
[解决办法]
2595300900@qq.com

让我见识一下你的错误呢。

发了之后在这个帖子引用，这个QQ我不常登陆的
[解决办法]

引用:

新方法是什么啊??

System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString
[解决办法]
Dim IP = System.Net.Dns.GetHostByName(Dns.GetHostName()).AddressList.GetValue(0).ToString

VS提示说代码过期了,该如何写呢

热点推荐