※==================================================================
※本连载文章说明:
※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、运行时截图:
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/UruseiBest/archive/2006/12/20/1450386.aspx