当前位置: 源码素材网 » VB教程 » 详情页

VB 调用函数获取MAC地址(网卡序列号)

  •   时间:2018-11-13
  • 概述:MAC 网卡序列号

VB 调用函数获取MAC地址,就是大家熟悉的网卡序列号。这几天编写一个VB环境的网络小程序,要用到获取用户电脑网卡的MAC地址,考虑到以后也要用到,就写成了一个自定义函数,大家也可用哈,函数代码:

Function GetMAC()
strComputer = "."
Set objWMIS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") '创建WMI对象
Set adj = objWMIS.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where (IPEnabled=TRUE)")
    For Each obj1 In adj
      GetMAC = GetMAC & obj1.MACAddress & vbCrLf '获取MAC地址
    Next
End Function

可以这样使用这个函数,调用十分方便:

将调用的过程写进一个按钮事件中,当用户点击了按钮即可调用函数,将MAC显示在窗体上:

Private Sub Command1_Click()
Picture1.Cls
x = GetMAC() '调用函数获取MAC地址
Picture1.Print x '输出
End Sub

    相关声明:

      若“VB 调用函数获取MAC地址(网卡序列号)”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。