在vb中使用Iphlpapi.dll获取网络信息 第二章 第十四节 返回本机网络接口数量

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

第十四节 返回本机网络接口数量

1、函数：

Private Declare Function GetNumberOfInterfaces Lib "iphlpapi.dll" (pdwNumIf As Long) As Long

参数说明：

pdwNumIf：[输出] 指向一个接收本机接口数量的变量。

备注：返回的接口数包括loopback接口。这个数目比GetAdaptersInfo和GetInterfaceInfo函数返回的适配器数目要多一，因为那两个函数不返回loopback接口的信息。

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

 

2、使用到的类型：

无

 

3、使用到的常量：

无

 

4、主要代码分析：

①定义一个Long型变量，然后直接调用函数GetNumberOfInterfaces即可：

Dim dwNumIf As Long

r = GetNumberOfInterfaces(dwNumIf)

Print "本机接口数量", dwNumIf

 

5、运行时截图：