大家有没有遇到机器码经常自己变的情况 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 大家有没有遇到机器码经常自己变的情况

共有2119人关注过本帖树形打印复制链接主题：大家有没有遇到机器码经常自己变的情况

jnletao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：941 积分：7786 威望：0 精华：0 注册：2013/7/7 13:37:00

大家有没有遇到机器码经常自己变的情况 发帖心情

Post By：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 我用做了机器码，结果每天开机，他的机器码都不一样，下图最近记录的变化情况，同一台计算机，硬件没变过。

dvubb 此主题相关图片如下：qq截图20160829102225.png

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/29 10:27:00 [只看该作者]

重装系统有可能机器码。尽量用硬盘号等硬件信息吧。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：大家有没有遇到机器码经常自己变的情况