不知道为什么我这个获取机器码，有时候会变

tianle123

有时候获取的机器码和上次获取的就不一样，请各位大佬帮忙修改一下，或者发一个新的也可以源码：

  

子程序名	返回值类型	公开	备 注
获取机器码	文本型		获取机器码
参数名	类 型	参考	可空	数组	备 注
revCpu	文本型
revDisk	文本型
revNet	文本型

变量名	类 型	静态	数组	备 注
Cpu	CPU信息
Disk	硬盘信息
Net	网卡信息		0
s1	整数型			-4
s2	整数型			-8
s3	整数型			-12
s4	整数型			-16
X
Cpuinf	文本型
Diskinf	文本型

置入代码 ({ 184, 0, 0, 0, 0, 49, 210, 15, 162, 137, 85, 252, 137, 69, 248 })
置入代码 ({ 184, 1, 0, 0, 0, 49, 201, 49, 210, 15, 162, 137, 85, 244, 137, 69, 240 })
Cpuinf ＝ 格式化文本 (“%X%X%X%X”, s1, s2, s3, s4)
取CPU信息 (Cpu)
取硬盘信息 (Disk, )
Net ＝ 取网卡信息列表 ()
计次循环首 (取数组成员数 (Net), X)
如果真 (Net [X].物理地址 ≠ “00-00-00-00-00-00”)
revNet ＝ revNet ＋ Net [X].物理地址 ＋ Net [X].网卡名称

计次循环尾 ()
revNet ＝ 取数据摘要 (到字节集 (revNet))
revCpu ＝ 取数据摘要 (到字节集 (Cpuinf ＋ Cpu.名称 ＋ Cpu.序列号))
revDisk ＝ 取数据摘要 (到字节集 (Disk.型号 ＋ Disk.版本号 ＋ Disk.序列号 ＋ Disk.版本号))
返回 (取文本左边 (取数据摘要 (到字节集 (revCpu ＋ revDisk ＋ revNet)), 16))

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

.版本 2<br /> .支持库 eAPI<br /> .支持库 dp1<br /> <br /> .子程序 获取机器码, 文本型, , 获取机器码<br /> .参数 revCpu, 文本型, 可空<br /> .参数 revDisk, 文本型, 可空<br /> .参数 revNet, 文本型, 可空<br /> .局部变量 Cpu, CPU信息<br /> .局部变量 Disk, 硬盘信息<br /> .局部变量 Net, 网卡信息, , "0"<br /> .局部变量 s1, 整数型, , , -4<br /> .局部变量 s2, 整数型, , , -8<br /> .局部变量 s3, 整数型, , , -12<br /> .局部变量 s4, 整数型, , , -16<br /> .局部变量 X<br /> .局部变量 Cpuinf, 文本型<br /> .局部变量 Diskinf, 文本型<br /> <br /> 置入代码 ({ 184, 0, 0, 0, 0, 49, 210, 15, 162, 137, 85, 252, 137, 69, 248 })<br /> 置入代码 ({ 184, 1, 0, 0, 0, 49, 201, 49, 210, 15, 162, 137, 85, 244, 137, 69, 240 })<br /> Cpuinf ＝ 格式化文本 (“%X%X%X%X”, s1, s2, s3, s4)<br /> 取CPU信息 (Cpu)<br /> 取硬盘信息 (Disk, )<br /> Net ＝ 取网卡信息列表 ()<br /> .计次循环首 (取数组成员数 (Net), X)<br />     .如果真 (Net [X].物理地址 ≠ “00-00-00-00-00-00”)<br />         revNet ＝ revNet ＋ Net [X].物理地址 ＋ Net [X].网卡名称<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> revNet ＝ 取数据摘要 (到字节集 (revNet))<br /> revCpu ＝ 取数据摘要 (到字节集 (Cpuinf ＋ Cpu.名称 ＋ Cpu.序列号))<br /> revDisk ＝ 取数据摘要 (到字节集 (Disk.型号 ＋ Disk.版本号 ＋ Disk.序列号 ＋ Disk.版本号))<br /> 返回 (取文本左边 (取数据摘要 (到字节集 (revCpu ＋ revDisk ＋ revNet)), 16))

bnny

  

子程序名	返回值类型	公开	备 注
获取机器码	文本型		获取机器码
参数名	类 型	参考	可空	数组	备 注
revCpu	文本型
revDisk	文本型

变量名	类 型	静态	数组	备 注
Cpu	CPU信息
Disk	硬盘信息
s1	整数型			-4
s2	整数型			-8
s3	整数型			-12
s4	整数型			-16
X
Cpuinf	文本型
Diskinf	文本型

置入代码 ({ 184, 0, 0, 0, 0, 49, 210, 15, 162, 137, 85, 252, 137, 69, 248 })
置入代码 ({ 184, 1, 0, 0, 0, 49, 201, 49, 210, 15, 162, 137, 85, 244, 137, 69, 240 })
Cpuinf ＝ 格式化文本 (“%X%X%X%X”, s1, s2, s3, s4)
取CPU信息 (Cpu)
取硬盘信息 (Disk, )
revCpu ＝ 取数据摘要 (到字节集 (Cpuinf ＋ Cpu.名称 ＋ Cpu.序列号))
revDisk ＝ 取数据摘要 (到字节集 (Disk.型号 ＋ Disk.版本号 ＋ Disk.序列号 ＋ Disk.版本号))
返回 (取文本左边 (取数据摘要 (到字节集 (revCpu ＋ revDisk)), 16))

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

.版本 2<br /> .支持库 eAPI<br /> .支持库 dp1<br /> <br /> .子程序 获取机器码, 文本型, , 获取机器码<br /> .参数 revCpu, 文本型, 可空<br /> .参数 revDisk, 文本型, 可空<br /> .局部变量 Cpu, CPU信息<br /> .局部变量 Disk, 硬盘信息<br /> .局部变量 s1, 整数型, , , -4<br /> .局部变量 s2, 整数型, , , -8<br /> .局部变量 s3, 整数型, , , -12<br /> .局部变量 s4, 整数型, , , -16<br /> .局部变量 X<br /> .局部变量 Cpuinf, 文本型<br /> .局部变量 Diskinf, 文本型<br /> <br /> 置入代码 ({ 184, 0, 0, 0, 0, 49, 210, 15, 162, 137, 85, 252, 137, 69, 248 })<br /> 置入代码 ({ 184, 1, 0, 0, 0, 49, 201, 49, 210, 15, 162, 137, 85, 244, 137, 69, 240 })<br /> Cpuinf ＝ 格式化文本 (“%X%X%X%X”, s1, s2, s3, s4)<br /> 取CPU信息 (Cpu)<br /> 取硬盘信息 (Disk, )<br /> revCpu ＝ 取数据摘要 (到字节集 (Cpuinf ＋ Cpu.名称 ＋ Cpu.序列号))<br /> revDisk ＝ 取数据摘要 (到字节集 (Disk.型号 ＋ Disk.版本号 ＋ Disk.序列号 ＋ Disk.版本号))<br /> 返回 (取文本左边 (取数据摘要 (到字节集 (revCpu ＋ revDisk)), 16))

bnny

肯定是mac的问题，有时候多了一个网卡和少了一个网卡都会影响

外星人群控

有时会MAC地区还取不到

文西哥

MAC导致的

tianle123

bnny 发表于 2022-10-16 00:54
肯定是mac的问题，有时候多了一个网卡和少了一个网卡都会影响

那怎么搞

tianle123

文西哥 发表于 2022-10-16 09:03
MAC导致的

那该怎么搞

tianle123

外星人群控 发表于 2022-10-16 08:44
有时会MAC地区还取不到

那该怎么搞

一线之隔

求一个取电脑硬件唯一信息的方法
https://bbs.125.la/forum.php?mod=viewthread&tid=14747802
(出处: 精易论坛)

bnny

tianle123 发表于 2022-10-16 09:43
那怎么搞

你把取mac那行去掉就行