vb.net 第二十节 测定到指定目的地往返时间和跳跃数

Posted 2022-03-29 VB.Net

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
 

Public Class Form21
    'BOOL GetRTTAndHopCount(_In_  IPAddr DestIpAddress, _Out_ PULONG HopCount,  _In_  ULong  MaxHops,  _Out_ PULONG RTT);


    'Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" (ByVal DestIpAddress As Long, HopCount As Long, MaxHops As Long, RTT As Long) As Long
    'Private Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Long

    Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" (ByVal DestIpAddress As Integer, ByRef HopCount As Integer, ByVal MaxHops As Integer, ByRef RTT As Integer) As Integer
    Private Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim returnValue As Integer
        Dim DestIpAddress As Integer
        Dim HopCount As Integer
        Dim MaxHops As Integer
        Dim RTT As Integer

        DestIpAddress = inet_addr("14.215.177.39")    '这里是探测www.baidu.com
        MaxHops = 50

        returnValue = GetRTTAndHopCount(DestIpAddress, HopCount, MaxHops, RTT)

        TextBox1.Text = "目的地IP：" & IntToIP(DestIpAddress) & vbCrLf
        TextBox1.Text &= "跳跃数目：" & HopCount & vbCrLf
        TextBox1.Text &= "往返时间：" & RTT & "ms"

    End Sub

    Private Function IntToIP(ByVal intAddr As Integer) As String
        Dim bteIp() As Byte
        bteIp = BitConverter.GetBytes(intAddr)
        Dim ip As String = ""
        For i As Integer = 0 To bteIp.Length - 1
            ip &= bteIp(i).ToString & "."
        Next

        Return ip.Substring(0, ip.Length - 1)
    End Function
End Class

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录