VB text显示Mac地址代码

原创 小姚  2021-06-22 10:09  阅读 98 次

VB text中显示Mac地址代码

Private Sub Command1_Click()
Text1.Text = Replace(MACAddress, ":", "-")
End Sub
 
Private Function MACAddress() As String
Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress " & "FROM Win32_NetworkAdapter " & "WHERE " & "((MACAddress Is Not NULL) " & "AND (Manufacturer <> " & "'Microsoft'))")
For Each obj In objs
MACAddress = obj.MACAddress
Exit For
Next obj
End Function

VB text显示Mac地址代码-小姚工作室

本文地址:https://www.xiaoyaogzs.com/3747.html
关注我们:请关注一下我们的微信公众号:扫描二维码小姚工作室的公众号,公众号:小姚户外
版权声明:本文为原创文章,版权归 小姚 所有,欢迎分享本文,转载请保留出处!
NEXT:已经是最新一篇了

发表评论


表情

  1. Ourboke联盟
    Ourboke联盟 @回复

    最近挺忙的啊 许久都没更新