vb.net 第五节 获取本机UDP信息列表 GetUdpStatistics

Posted 2022-03-22 VB.Net

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

第五节 获取本机UDP信息列表 GetUdpStatistics

Imports System.Runtime.InteropServices

Public Class Form6
    'typedef struct _MIB_UDPSTATS 
    '  DWORD dwInDatagrams; 
    '  DWORD dwNoPorts; 
    '  DWORD dwInErrors; 
    '  DWORD dwOutDatagrams; 
    '  DWORD dwNumAddrs; 
    ' MIB_UDPSTATS, *PMIB_UDPSTATS;


    'Type MIB_UDPSTATS
    '    dwInDatagrams As Long   	'已收到数据报数目
    '    dwNoPorts As Long       	'因为端口号有误而丢弃的数据报数目
    '    dwInErrors As Long      	'已收到多少错误数据报，不包括dwNoPorts中统计的数目
    '    dwOutDatagrams As Long  	'已传输数据报数目
    '    dwNumAddrs As Long     	'UDP监听者表中接口数目
    'End Type

    'DWORD GetUdpStatistics(PMIB_UDPSTATS pStats);
    'Private Declare Function GetUdpStatistics Lib "iphlpapi.dll" (pStats As MIB_UDPSTATS) As Long

    <StructLayout(LayoutKind.Sequential)>
    Structure MIB_UDPSTATS
        Dim dwInDatagrams As Integer       '已收到数据报数目
        Dim dwNoPorts As Integer           '因为端口号有误而丢弃的数据报数目
        Dim dwInErrors As Integer          '已收到多少错误数据报，不包括dwNoPorts中统计的数目
        Dim dwOutDatagrams As Integer      '已传输数据报数目
        Dim dwNumAddrs As Integer      'UDP监听者表中接口数目
    End Structure

    Private Declare Function GetUdpStatistics Lib "iphlpapi.dll" (ByRef pStats As MIB_UDPSTATS) As Integer


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mUtps As MIB_UDPSTATS
        Dim returnValue As Integer
        returnValue = GetUdpStatistics(mUtps)

        '请自行增加代码

    End Sub
End Class

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

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