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

查过

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

豆豆灰常开心

在注册表里加暗标，我用过贼好

云少i

取CPU序列号（）

紫苏7798

  

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

返回 (取数据摘要 (到字节集 (取本机网卡物理地址 ())))

i支持库列表	支持库注释
dp1	数据操作支持库一
eAPI	应用接口支持库

.版本 2<br /> .支持库 dp1<br /> .支持库 eAPI<br /> <br /> .子程序 取机器码, 文本型<br /> <br /> 返回 (取数据摘要 (到字节集 (取本机网卡物理地址 ())))

杰西卡技术传媒

取唯一机器码

cunanhai

把不经常换的硬件都取一遍 再加密 我就不信还有相同的

熬夜

只读一个参数 可定不行的吧 多个参数通过算法出来一个新的

wtflxk

取MAC地址 或 硬盘SN  CPU的还是算了吧 这玩意不是唯一的

学易未精

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
硬盘信息	硬盘信息
硬盘特征	文本型
取出机器码	文本型
主板型号	文本型

取硬盘信息 (硬盘信息, #接口常量 .磁盘0)
主板型号 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )
硬盘特征 ＝ 系统_取CPU序列号 () ＋ 到文本 (硬盘信息.型号) ＋ 到文本 (硬盘信息.容量) ＋ 到文本 (硬盘信息.序列号) ＋ 到文本 (系统_取硬盘特征字 (, , ) ＋ 到文本 (主板型号))
取出机器码 ＝ 到大写 (取数据摘要 (到字节集 (硬盘特征)))
调试输出 (取出机器码)

i支持库列表	支持库注释
eAPI	应用接口支持库
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 硬盘信息, 硬盘信息<br /> .局部变量 硬盘特征, 文本型<br /> .局部变量 取出机器码, 文本型<br /> .局部变量 主板型号, 文本型<br /> <br /> 取硬盘信息 (硬盘信息, #接口常量.磁盘0)<br /> 主板型号 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )<br /> 硬盘特征 ＝ 系统_取CPU序列号 () ＋ 到文本 (硬盘信息.型号) ＋ 到文本 (硬盘信息.容量) ＋ 到文本 (硬盘信息.序列号) ＋ 到文本 (系统_取硬盘特征字 (, , ) ＋ 到文本 (主板型号))<br /> 取出机器码 ＝ 到大写 (取数据摘要 (到字节集 (硬盘特征)))<br /> 调试输出 (取出机器码)

E小菜鸟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
Cpu	CPU信息
Disk	硬盘信息
bios	BIOS信息
电脑序列号	文本型

取CPU信息 (Cpu)
取硬盘信息 (Disk, 0)
取BIOS信息 (bios)
如果真 (Disk.序列号 ＝ “”)
取硬盘信息 (Disk, 1)
如果真 (Disk.序列号 ＝ “”)
Disk.序列号 ＝ “AAAAAAAA”

如果真 (Cpu.序列号 ＝ “”)
Cpu.序列号 ＝ “BBBBBBBB”
如果真 (bios.序列号 ＝ “”)
bios.序列号 ＝ “DDDDDDDD”

电脑序列号 ＝ 到大写 (取数据摘要 (到字节集 (Cpu.名称 ＋ Cpu.序列号 ＋ Disk.型号 ＋ Disk.序列号 ＋ Disk.版本号 ＋ bios.序列号)))
编辑框1.内容 ＝ 电脑序列号

i支持库列表	支持库注释
eAPI	应用接口支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 eAPI<br /> .支持库 dp1<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 Cpu, CPU信息<br /> .局部变量 Disk, 硬盘信息<br /> .局部变量 bios, BIOS信息<br /> .局部变量 电脑序列号, 文本型<br /> <br /> 取CPU信息 (Cpu)<br /> 取硬盘信息 (Disk, 0)<br /> 取BIOS信息 (bios)<br /> .如果真 (Disk.序列号 ＝ “”)<br />     取硬盘信息 (Disk, 1)<br />     .如果真 (Disk.序列号 ＝ “”)<br />         Disk.序列号 ＝ “AAAAAAAA”<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (Cpu.序列号 ＝ “”)<br />     Cpu.序列号 ＝ “BBBBBBBB”<br /> .如果真结束<br /> .如果真 (bios.序列号 ＝ “”)<br />     bios.序列号 ＝ “DDDDDDDD”<br /> .如果真结束<br /> <br /> 电脑序列号 ＝ 到大写 (取数据摘要 (到字节集 (Cpu.名称 ＋ Cpu.序列号 ＋ Disk.型号 ＋ Disk.序列号 ＋ Disk.版本号 ＋ bios.序列号)))<br /> <br /> 编辑框1.内容 ＝ 电脑序列号

希望可以帮助到你  精益模块