小编Ada*_*dam的帖子

我这里有显示主机 IP 地址的代码，但它给了我一个错误。我怎样才能解决这个问题？

并摆脱Resolve 对于这种类型的东西来说已经过时了。

错误信息

Description
-----------------------------------------------------------------
  Public Shared Overloads Function Resolve(hostName As String)
  As IPHostEntry' is obsolete:

  Resolve is obsoleted for this type. Please use GetHostEntry instead.

  http://go.microsoft.com/fwlink/?linkid=14202'


Severity  Code     Project           Line  Suppression  State
-----------------------------------------------------------------
Warning   BC40000  UltimateDiskless  270                Active

File
-----
C:\Users\Jadam\Desktop\Ultimate Diskless\UltimateDiskless\UltimateDiskless\PacketScanner\frmMain.vb

代码

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim hosts() As IPAddress = Dns.Resolve(Dns.GetHostName()).AddressList <==**This One Has The error**

        Dim i As Integer

        If hosts.Length = 0 …