在vb中使用Iphlpapi.dll获取网络信息 第二章 第五节 获取本机UDP信息列表

※==================================================================
※本连载文章说明：
※1、连载首发于《软件报》（http://www.sweek.com）2006年21期（2006年5月22日）；
※2、此次网上连载采用的是原稿件结构，内容与《软件报》发表略有不同；
※3、谢绝除《软件报》及其相关刊物之外的传统媒体部分或全部转载；
※4、谢绝任何收费媒体、网络转载；
※5、原作者：uruseibest ，blog：http://blog.csdn.net/uruseibest；
※6、如有其它疑问，请联系作者；
※7、如有转载，必须连同本说明一并发表，否则将追究转载者责任。
※======================================================================

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

1、函数：

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

参数说明：

pStats：[输出]指向一个接收到本机UDP统计表的MIB_UDPSTATS类型

返回值：成功，返回0；失败，返回错误代码。

 

2、使用到的类型：

①MIB_UDPSTATS 包含UDP (User Datagram Protocol) 运行信息

Type MIB_UDPSTATS

    dwInDatagrams As Long   '已收到数据报数目

    dwNoPorts As Long       '因为端口号有误而丢弃的数据报数目

    dwInErrors As Long        '已收到多少错误数据报，不包括dwNoPorts中统计的数目

    dwOutDatagrams As Long  '已传输数据报数目

    dwNumAddrs As Long     'UDP监听者表中接口数目

End Type

3、使用到的常量：

无

 

4、主要代码分析：

①定义一个MIB_UDPSTATS类型的变量，然后直接使用GetUdpStatistics函数即可：

Dim Mudp As MIB_UDPSTATS

r = GetUdpStatistics(Mudp)

 

5、运行时截图：