Question

有人知道如何在VB.NET中获取通过LAN网络连接的机器的ipV4吗？并通过文本框输出它看起来像一个控制台窗口？我有3个文本框，如果是hostname / ws输入则为1，第二个应显示已抓取的IP地址，第3个用作控制台窗口以输出CMD文本

我目前的代码是：

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim textvar As String = txtWS.Text
        Dim Command As String
        Try
            Command = "Ping" & " " & txtWS.Text
            Shell("cmd.exe /k" & Command, 1, True)

            'Get IP Address of the Host
            Dim Hostname As IPHostEntry = Dns.GetHostEntry(txtWS.Text)
            Dim ip As IPAddress() = Hostname.AddressList

            txtIP.Text = ip(0).ToString
        Catch ex As Exception
            MsgBox("Unable to Ping Hostname or Workstation! Please try again, or try via IP Address." & vbCrLf & "Error: " & ex.Message, MsgBoxStyle.Critical)

        End Try
    End Sub

这非常适合ping，但并不总是返回正确的IP地址我需要将其指定为IPv4每次我想在我的应用程序内的文本框中输出控制台文本而不是我见过的cmd窗口像这样的一些问题，但没有回答包含这两个功能的问题

如何从主机名/工作中找到IPV4名称ijn VB.net

0 个答案: