获取本地网卡MAC、厂商、GUID、网卡链路速率等信息

qq43142691

前些天因为想弄个抓包功能，需要用到这个提取网卡GUID和网卡设备名，在提问区问了几天都没人理我，无奈之下只能各种搜索也没找到结果，无意中找到自己电脑以前在论坛下载的第一个其他源码里面就有这个功能，但是已经忘记是哪里的了（大佬见谅），提取这个功能做成了模块，方便使用。
求助帖期间有个人加我，很热情的帮我弄，研究了半天也没个结果，然后还要我支付30软妹给他做辛苦费，无语啊，没办成事还想要软妹，这跟强有啥区别。

附件我没设置收费的
获取网卡信息HB.zip (4.04 KB, 下载次数: 45)

2024-12-12 20:26 上传

点击文件名下载附件
下载积分: 精币 -2 枚

SskBad

支持一下

yuzhong

111111111111111111111111111111111111111111

爱着天的云

不错值得赞一个

kang10086

6666666666666666666

aiaixiaoye8

看看了需要这个啊。

kyo9766

学习一下看看 新的获取方式，感谢分享

qq43142691

调用模块为  枚举对象类模块1.0  打包好了。源码也放进来了。我没有设置下载收费，如果要收费，不关我事哦。
获取网卡信息HB.zip (10.4 KB, 下载次数: 5)

2025-1-10 18:58 上传

点击文件名下载附件
下载积分: 精币 -2 枚

需要创建一个类

  

数据类型名	公开	备 注
类_网卡信息HB
成员名	类 型	传址	数组	备 注
设备名	文本型			网卡设备名
Mac地址	文本型			MAC地址
制造商	文本型			制造商
网卡链路速度	长整数型			网卡速度
GUID	文本型			网卡GUID
上次重置时间	文本型			上次网卡重置时间

.版本 2<br /> <br /> .数据类型 类_网卡信息HB, 公开<br />     .成员 设备名, 文本型, , , 网卡设备名<br />     .成员 Mac地址, 文本型, , , MAC地址<br />     .成员 制造商, 文本型, , , 制造商<br />     .成员 网卡链路速度, 长整数型, , , 网卡速度<br />     .成员 GUID, 文本型, , , 网卡GUID<br />     .成员 上次重置时间, 文本型, , , 上次网卡重置时间

下面是主代码

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
网卡信息数组	类_网卡信息HB		0
i	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
网卡信息HB (网卡信息数组)
计次循环首 (取数组成员数 (网卡信息数组), i)
调试输出 (网卡信息数组 [i].设备名)
调试输出 (网卡信息数组 [i].Mac地址)
调试输出 (网卡信息数组 [i].制造商)
调试输出 (网卡信息数组 [i].GUID)
调试输出 (到文本 (网卡信息数组 [i].网卡链路速度 ÷ 1000 ÷ 1000) ＋ “Mbps”)
' 调试输出 (网卡信息数组 [i].上次重置时间)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
网卡信息HB	整数型		返回 设备名、MAC、厂商、GUID、上次重置时间，失败返回-1
参数名	类 型	参考	可空	数组	备 注
接收变量数组	类_网卡信息HB				请提供变量接收

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
WbemServices	对象
wbemObjectSet	对象
SWbemObject	对象
Object	对象
nCount	整数型
tmpInfo	类_网卡信息HB
对象服务名	文本型			服务名，cha询本地可设置为“.”
对象所属	文本型			一般为root\CIMV2、root\WMI
对象WSQL命令	文本型			和数据库的SQL语句相似
枚举器	枚举对象
接口	变体型
i	整数型

objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )  ' 创建WMI对象
对象服务名 ＝ “.”
对象所属 ＝ “root\CIMV2”
对象WSQL命令 ＝ “Select * from Win32_NetworkAdapter Where Speed != null”  ' cha询网卡信息并且网卡速度不等于空
WbemServices ＝ objWbemLocator.对象型方法 (“ConnectServer”, 对象服务名, 对象所属, , , , , , )  ' 连接服务器
wbemObjectSet ＝ WbemServices.对象型方法 (“ExecQuery”, 对象WSQL命令, , , )  ' cha询
枚举器.取枚举接口 (wbemObjectSet)
如果 (wbemObjectSet.是否为空 () ＝ 假)
清除数组 (接收变量数组)
计次循环首 (wbemObjectSet.读数值属性 (“Count”, ), i)
枚举器.枚举 (接口)
SWbemObject ＝ 接口.取对象 (i － 1)
Object ＝ SWbemObject.读对象型属性 (“Properties_”, )
tmpInfo.Mac地址 ＝ Object.对象型方法 (“Item”, “macaddress”).读属性 (“Value”, ).取文本 ()
tmpInfo.设备名 ＝ Object.对象型方法 (“Item”, “Name”).读属性 (“Value”, ).取文本 ()  ' Object.对象型方法 (“Item”, “NetConnectionID”).读属性 (“Value”, ).取文本 ()
tmpInfo.网卡链路速度 ＝ Object.对象型方法 (“Item”, “speed”).读属性 (“Value”, ).取数值 ()
tmpInfo.制造商 ＝ Object.对象型方法 (“Item”, “Manufacturer”).读属性 (“Value”, ).取文本 ()
tmpInfo.GUID ＝ Object.对象型方法 (“Item”, “GUID”).读属性 (“Value”, ).取文本 ()
tmpInfo.上次重置时间 ＝ Object.对象型方法 (“Item”, “TimeOfLastReset”).读属性 (“Value”, ).取文本 ()
加入成员 (接收变量数组, tmpInfo)
计次循环尾 ()
返回 (nCount)
返回 (-1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> .局部变量 网卡信息数组, 类_网卡信息HB, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> 网卡信息HB (网卡信息数组)<br /> .计次循环首 (取数组成员数 (网卡信息数组), i)<br />     调试输出 (网卡信息数组 <i>.设备名)<br />     调试输出 (网卡信息数组 <i>.Mac地址)<br />     调试输出 (网卡信息数组 <i>.制造商)<br />     调试输出 (网卡信息数组 <i>.GUID)<br />     调试输出 (到文本 (网卡信息数组 <i>.网卡链路速度 ÷ 1000 ÷ 1000) ＋ “Mbps”)<br />     ' 调试输出 (网卡信息数组 <i>.上次重置时间)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 网卡信息HB, 整数型, 公开, 返回 设备名、MAC、厂商、GUID、上次重置时间，失败返回-1<br /> .参数 接收变量数组, 类_网卡信息HB, 参考 数组, 请提供变量接收<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 WbemServices, 对象<br /> .局部变量 wbemObjectSet, 对象<br /> .局部变量 SWbemObject, 对象<br /> .局部变量 Object, 对象<br /> .局部变量 nCount, 整数型<br /> .局部变量 tmpInfo, 类_网卡信息HB<br /> .局部变量 对象服务名, 文本型, , , 服务名，cha询本地可设置为“.”<br /> .局部变量 对象所属, 文本型, , , 一般为root\CIMV2、root\WMI<br /> .局部变量 对象WSQL命令, 文本型, , , 和数据库的SQL语句相似<br /> .局部变量 枚举器, 枚举对象<br /> .局部变量 接口, 变体型<br /> .局部变量 i, 整数型<br /> <br /> objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )  ' 创建WMI对象<br /> 对象服务名 ＝ “.”<br /> 对象所属 ＝ “root\CIMV2”<br /> 对象WSQL命令 ＝ “Select * from Win32_NetworkAdapter Where Speed != null”  ' cha询网卡信息并且网卡速度不等于空<br /> WbemServices ＝ objWbemLocator.对象型方法 (“ConnectServer”, 对象服务名, 对象所属, , , , , , )  ' 连接服务器<br /> wbemObjectSet ＝ WbemServices.对象型方法 (“ExecQuery”, 对象WSQL命令, , , )  ' cha询<br /> 枚举器.取枚举接口 (wbemObjectSet)<br /> .如果 (wbemObjectSet.是否为空 () ＝ 假)<br />     清除数组 (接收变量数组)<br />     .计次循环首 (wbemObjectSet.读数值属性 (“Count”, ), i)<br />         枚举器.枚举 (接口)<br />         SWbemObject ＝ 接口.取对象 (i － 1)<br />         Object ＝ SWbemObject.读对象型属性 (“Properties_”, )<br />         tmpInfo.Mac地址 ＝ Object.对象型方法 (“Item”, “macaddress”).读属性 (“Value”, ).取文本 ()<br />         tmpInfo.设备名 ＝ Object.对象型方法 (“Item”, “Name”).读属性 (“Value”, ).取文本 ()  ' Object.对象型方法 (“Item”, “NetConnectionID”).读属性 (“Value”, ).取文本 ()<br />         tmpInfo.网卡链路速度 ＝ Object.对象型方法 (“Item”, “speed”).读属性 (“Value”, ).取数值 ()<br />         tmpInfo.制造商 ＝ Object.对象型方法 (“Item”, “Manufacturer”).读属性 (“Value”, ).取文本 ()<br />         tmpInfo.GUID ＝ Object.对象型方法 (“Item”, “GUID”).读属性 (“Value”, ).取文本 ()<br />         tmpInfo.上次重置时间 ＝ Object.对象型方法 (“Item”, “TimeOfLastReset”).读属性 (“Value”, ).取文本 ()<br />         加入成员 (接收变量数组, tmpInfo)<br />     .计次循环尾 ()<br />     返回 (nCount)<br /> .否则<br />     返回 (-1)<br /> .如果结束

伝天

额虚化系列的

flfkhn2

不能将“整数型 数组”数据转换到“ 数组”数据，参数设置为什么类型才是对的呢