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

VB.Net

已于 2022-04-19 21:29:45 修改

阅读量196

点赞数

分类专栏： [vb]Iphlpapi 文章标签： Iphlpapi

于 2022-03-20 17:28:36 首次发布

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

本文链接：https://blog.csdn.net/UruseiBest/article/details/123617145

版权

[vb]Iphlpapi 专栏收录该内容

52 篇文章 4 订阅

订阅专栏

第五节获取本机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 教程目录