怎么取电脑唯一的机器码，求个稳定的

查过

怎么取电脑唯一的机器码，求个稳定的
有些物理机读取的机器码都一样，求个稳定的源码

黑咖啡

CPU序列号

查过

黑咖啡 发表于 2025-6-20 14:48
CPU序列号

物理机也是用的本机cpu呀

洋Hay

机器码.e (956.94 KB, 下载次数: 67)

2025-6-20 15:05 上传

点击文件名下载附件
部分网吧机器是虚拟, 这种会出现机器码一样. 我是直接无视, 客户要求的话, 个人处理方法. 硬件码后加无效的字符串, 看起来不一样应付过去.

萧楚楠

那你试试这个模块，包好使的

lisher

最稳的取机器码方式主板uuid-blosuid
https://bbs.125.la/forum.php?mod=viewthread&tid=14734731
(出处: 精易论坛)

二虎电脑

这个看你怎么想来，如果取稳定值就考虑mac码或者CPUID都是可以的，
我还尝试过一种新的办法就是运行程序后，自己在注册表某个位置手动写一个机器码，也比较稳定。

2224848

  

子程序名	返回值类型	公开	备 注
取简单机器码	文本型

变量名	类 型	静态	数组	备 注
CPU序列号	文本型
硬盘序列号	文本型
机器码	文本型

取CPU信息 (CPU信息)
CPU序列号 ＝ CPU信息.序列号
如果真 (CPU序列号 ＝ "" 或 CPU序列号 ＝ "0000000000000000")
CPU序列号 ＝ "CPU" ＋ 到文本 (取启动时间 ())

取硬盘信息 (硬盘信息)
如果真 (取数组成员数 (硬盘信息) > 0)
硬盘序列号 ＝ 硬盘信息 [1].序列号
如果真 (硬盘序列号 ＝ "" 或 硬盘序列号 ＝ "00000000")
硬盘序列号 ＝ "DISK" ＋ 到文本 (取启动时间 ())

机器码 ＝ 取数据摘要 (到字节集 (CPU序列号 ＋ 硬盘序列号))
返回 (机器码)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 取简单机器码, 文本型<br /> .局部变量 CPU序列号, 文本型<br /> .局部变量 硬盘序列号, 文本型<br /> .局部变量 机器码, 文本型<br /> <br /> 取CPU信息 (CPU信息)<br /> CPU序列号 ＝ CPU信息.序列号<br /> .如果真 (CPU序列号 ＝ "" 或 CPU序列号 ＝ "0000000000000000")<br />     CPU序列号 ＝ "CPU" ＋ 到文本 (取启动时间 ())<br /> .如果真结束<br /> <br /> 取硬盘信息 (硬盘信息)<br /> .如果真 (取数组成员数 (硬盘信息) > 0)<br />     硬盘序列号 ＝ 硬盘信息 [1].序列号<br /> .如果真结束<br /> .如果真 (硬盘序列号 ＝ "" 或 硬盘序列号 ＝ "00000000")<br />     硬盘序列号 ＝ "DISK" ＋ 到文本 (取启动时间 ())<br /> .如果真结束<br /> <br /> 机器码 ＝ 取数据摘要 (到字节集 (CPU序列号 ＋ 硬盘序列号))<br /> 返回 (机器码)

2224848

  

子程序名	返回值类型	公开	备 注
取机器码	文本型

变量名	类 型	静态	数组	备 注
CPU序列号	文本型
硬盘序列号	文本型
主板序列号	文本型
机器码	文本型

' 获取CPU序列号
CPU序列号 ＝ 取CPU序列号 ()
如果真 (CPU序列号 ＝ "")
CPU序列号 ＝ "UnknownCPU"

' 获取硬盘序列号
硬盘序列号 ＝ 取硬盘序列号 ()
如果真 (硬盘序列号 ＝ "")
硬盘序列号 ＝ "UnknownDisk"

' 获取主板序列号
主板序列号 ＝ 取主板序列号 ()
如果真 (主板序列号 ＝ "")
主板序列号 ＝ "UnknownMB"

' 组合生成唯一机器码
机器码 ＝ 取数据摘要 (到字节集 (CPU序列号 ＋ 硬盘序列号 ＋ 主板序列号))
返回 (机器码)

子程序名	返回值类型	公开	备 注
取CPU序列号	文本型

变量名	类 型	静态	数组	备 注
CPU信息	CPU信息
序列号	文本型

取CPU信息 (CPU信息)
序列号 ＝ CPU信息.序列号
' 处理无效序列号
如果真 (序列号 ＝ "0000000000000000" 或 序列号 ＝ "")
序列号 ＝ "CPU" ＋ 到文本 (取启动时间 ())

返回 (序列号)

子程序名	返回值类型	公开	备 注
取硬盘序列号	文本型

变量名	类 型	静态	数组	备 注
硬盘信息	硬盘信息		0
序列号	文本型
i	整数型

取硬盘信息 (硬盘信息)
如果真 (取数组成员数 (硬盘信息) > 0)
序列号 ＝ 硬盘信息 [1].序列号

' 处理无效序列号
如果真 (序列号 ＝ "" 或 序列号 ＝ "00000000")
序列号 ＝ "DISK" ＋ 到文本 (取启动时间 ())

返回 (序列号)

子程序名	返回值类型	公开	备 注
取主板序列号	文本型

变量名	类 型	静态	数组	备 注
主板信息	主板信息
序列号	文本型

取主板信息 (主板信息)
序列号 ＝ 主板信息.序列号
' 处理无效序列号
如果真 (序列号 ＝ "" 或 序列号 ＝ "None" 或 序列号 ＝ "To be filled by O.E.M.")
序列号 ＝ "MB" ＋ 到文本 (取启动时间 ())

返回 (序列号)

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .子程序 取机器码, 文本型<br /> .局部变量 CPU序列号, 文本型<br /> .局部变量 硬盘序列号, 文本型<br /> .局部变量 主板序列号, 文本型<br /> .局部变量 机器码, 文本型<br /> <br /> ' 获取CPU序列号<br /> CPU序列号 ＝ 取CPU序列号()<br /> .如果真 (CPU序列号 ＝ "")<br />     CPU序列号 ＝ "UnknownCPU"<br /> .如果真结束<br /> <br /> ' 获取硬盘序列号<br /> 硬盘序列号 ＝ 取硬盘序列号()<br /> .如果真 (硬盘序列号 ＝ "")<br />     硬盘序列号 ＝ "UnknownDisk"<br /> .如果真结束<br /> <br /> ' 获取主板序列号<br /> 主板序列号 ＝ 取主板序列号()<br /> .如果真 (主板序列号 ＝ "")<br />     主板序列号 ＝ "UnknownMB"<br /> .如果真结束<br /> <br /> ' 组合生成唯一机器码<br /> 机器码 ＝ 取数据摘要 (到字节集 (CPU序列号 ＋ 硬盘序列号 ＋ 主板序列号))<br /> 返回 (机器码)<br /> <br /> .子程序 取CPU序列号, 文本型<br /> .局部变量 CPU信息, CPU信息<br /> .局部变量 序列号, 文本型<br /> <br /> 取CPU信息 (CPU信息)<br /> 序列号 ＝ CPU信息.序列号<br /> <br /> ' 处理无效序列号<br /> .如果真 (序列号 ＝ "0000000000000000" 或 序列号 ＝ "")<br />     序列号 ＝ "CPU" ＋ 到文本 (取启动时间 ())<br /> .如果真结束<br /> <br /> 返回 (序列号)<br /> <br /> .子程序 取硬盘序列号, 文本型<br /> .局部变量 硬盘信息, 硬盘信息, , "0"<br /> .局部变量 序列号, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 取硬盘信息 (硬盘信息)<br /> .如果真 (取数组成员数 (硬盘信息) > 0)<br />     序列号 ＝ 硬盘信息 [1].序列号<br /> .如果真结束<br /> <br /> ' 处理无效序列号<br /> .如果真 (序列号 ＝ "" 或 序列号 ＝ "00000000")<br />     序列号 ＝ "DISK" ＋ 到文本 (取启动时间 ())<br /> .如果真结束<br /> <br /> 返回 (序列号)<br /> <br /> .子程序 取主板序列号, 文本型<br /> .局部变量 主板信息, 主板信息<br /> .局部变量 序列号, 文本型<br /> <br /> 取主板信息 (主板信息)<br /> 序列号 ＝ 主板信息.序列号<br /> <br /> ' 处理无效序列号<br /> .如果真 (序列号 ＝ "" 或 序列号 ＝ "None" 或 序列号 ＝ "To be filled by O.E.M.")<br />     序列号 ＝ "MB" ＋ 到文本 (取启动时间 ())<br /> .如果真结束<br /> <br /> 返回 (序列号)

123qweui

66666666666666666666666666