MyException - 我的异常网
当前位置:我的异常网» VB » 上面的代码,不能获取的物理地址?

上面的代码,不能获取的物理地址?(4)

www.MyException.Cn  网友分享于:2013-02-20  浏览:12次

    Dim sSql As String
    sSql = "SELECT * FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))"
    Set oObjs = GetObject("winmgmts:").ExecQuery(sSql)
    For Each obj1 In oObjs
       EnumMACAddresses = EnumMACAddresses & obj1.MACAddress & "," & obj1.Description & vbCrLf
    Next obj1
End Function

------解决方案--------------------
引用:
用网卡的MAC地址当电脑的机器码(硬件特征码),可行吗?


7楼说的“单纯用wmi获取的不一定是真实的MAC地址”目前还没具体了解过,不过啊,要是有黑客用API HOOK或什么方法,修改你WMI的结果怎么办呢。
------解决方案--------------------
WMI根本不靠谱,很不安全
------解决方案--------------------
引用:
WMI根本不靠谱,很不安全


说具体些?
------解决方案--------------------
这是我的运行结果(WINXP SP3 VB6)

------解决方案--------------------
引用:
引用:用网卡的MAC地址当电脑的机器码(硬件特征码),可行吗?

7楼说的“单纯用wmi获取的不一定是真实的MAC地址”目前还没具体了解过,不过啊,要是有黑客用API HOOK或什么方法,修改你WMI的结果怎么办呢。
可测试下:本地连接的属性---常规页,有个配置,进入后选择高级,里面有个网络地址,可修改为其他的MAC地址(xp系统)。然后通过WMI获取的就是你修改后的这个地址。
------解决方案--------------------
引用:
这是我的运行结果(WINXP SP3 VB6)


哥哥,电脑感染了好几个360系列流氓病毒呢。

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有