以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  大家有没有遇到机器码经常自己变的情况  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89741)
--  作者：jnletao
--  发布时间：2016/8/29 10:24:00
--  大家有没有遇到机器码经常自己变的情况
我的程序是前年写的，机器码采用了这种方式

全局代码
\'机器码

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces

Dim NetMac = nics(0).GetPhysicalAddress.Tostring & HardDiskId  \'获取网卡MAC  HardDiskId 硬盘ID 

 




这个 NetMac 我用做了机器码，结果 每天开机，他的机器码都不一样，下图最近记录的变化情况，同一台计算机，硬件没变过。


此主题相关图片如下：qq截图20160829102225.png
按此在新窗口浏览图片
--  作者：大红袍
--  发布时间：2016/8/29 10:27:00
--  
 重装系统有可能机器码。尽量用硬盘号等硬件信息吧。
--  作者：大红袍
--  发布时间：2016/8/29 10:31:00
--  

执行看看，顺序有可能改变的

 

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
msgbox(nics.length)
For Each nic As object In nics
    msgbox(nic.name)
Next