最稳的取机器码方式主板uuid-blosuid - 精易论坛

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

变量名	类型	静态	数组	备注
size	整数型
data	字节集
i	整数型
Length	整数型
uuid	文本型
between	字节集
time_low	整数型
n	整数型
withlow	字节集

' 备注：取主板部分参考论坛帖子，稍微修改
' wmic path Win32_ComputerSystemProduct get uuid /value 与另一种模式效果一致
' // no 取主板uuid
size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)
data ＝取空白字节集 (size)

如果真 (size ＜ 1)

返回 (“”)
GetSystemFirmwareTable (1381190978, 0, data, size)

如果真 (size ＜ 1)

返回 (“”)
i ＝ 9 ' 前面8个字节忽略，储存其他信息

判断循环首 (真)

' type 类型 1 系统信息

如果真 (data [i] ＝ 1)

跳出循环 ()

Length ＝ data [i ＋ 1]

i ＝ i ＋ Length

' 调试输出 (编码_utf8到gb2312 (指针到文本 (buffer ＋ i)))

' 长度信息后为字符串找到字符串信息结束标记就是下一个type 结构的起始位置

判断循环首 (data [i] ≠ 0 或 data [i ＋ 1] ≠ 0)

i ＝ i ＋ 1

判断循环尾 ()

i ＝ i ＋ 2

判断循环尾 ()
i ＝ i ＋ 8
time_low ＝取字节集数据 (data, #整数型, i)
uuid ＝进制_十到十六 (time_low, 真)
' 中间部分需要交换下
between ＝取字节集中间 (data, i, 4)
' 第二部分＝字节集_交换 (第二部分)
withlow ＝ between

计次循环首 (4 ÷ 2, n)

withlow [n × 2 － 1] ＝ between [n × 2]

withlow [n × 2] ＝ between [n × 2 － 1]

计次循环尾 ()
between ＝ withlow

计次循环首 (4, n) ' 中间四位

uuid ＝ uuid ＋进制_十到十六 (between [n], ) ' 直接用精益模块就行

计次循环尾 ()
i ＝ i ＋ 4

计次循环首 (8, ) ' 最后八位

uuid ＝ uuid ＋进制_十到十六 (data [i], )

i ＝ i ＋ 1

计次循环尾 ()
' // no 取主板型号
uuid ＝ uuid ＋取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )
' // no 生成机器码
uuid ＝校验_取md5_文本 (uuid, , , )
返回 (uuid)

.版本 2<br />
<br />
.子程序 取机器码bp, 文本型, 公开<br />
.局部变量 size, 整数型<br />
.局部变量 data, 字节集<br />
.局部变量 i, 整数型<br />
.局部变量 Length, 整数型<br />
.局部变量 uuid, 文本型<br />
.局部变量 between, 字节集<br />
.局部变量 time_low, 整数型<br />
.局部变量 n, 整数型<br />
.局部变量 withlow, 字节集<br />
<br />
<br />
<br />
<br />
' 备注：取主板部分参考论坛帖子，稍微修改<br />
<br />
' wmic path Win32_ComputerSystemProduct get uuid /value 与另一种模式效果一致<br />
<br />
' // no 取主板uuid<br />
<br />
size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)<br />
data ＝ 取空白字节集 (size)<br />
.如果真 (size ＜ 1)<br />
    返回 (“”)<br />
.如果真结束<br />
GetSystemFirmwareTable (1381190978, 0, data, size)<br />
.如果真 (size ＜ 1)<br />
    返回 (“”)<br />
.如果真结束<br />
i ＝ 9  ' 前面8个字节忽略，储存其他信息<br />
.判断循环首 (真)<br />
    ' type 类型 1 系统信息<br />
<br />
    .如果真 (data <i> ＝ 1)<br />
        跳出循环 ()<br />
    .如果真结束<br />
<br />
    Length ＝ data [i ＋ 1]<br />
    i ＝ i ＋ Length<br />
    ' 调试输出 (编码_utf8到gb2312 (指针到文本 (buffer ＋ i)))<br />
    ' 长度信息后为字符串 找到字符串信息结束标记 就是下一个type 结构的起始位置<br />
    .判断循环首 (data <i> ≠ 0 或 data [i ＋ 1] ≠ 0)<br />
        i ＝ i ＋ 1<br />
    .判断循环尾 ()<br />
    i ＝ i ＋ 2<br />
.判断循环尾 ()<br />
i ＝ i ＋ 8<br />
time_low ＝ 取字节集数据 (data, #整数型, i)<br />
<br />
uuid ＝ 进制_十到十六 (time_low, 真)<br />
' 中间部分需要交换下<br />
between ＝ 取字节集中间 (data, i, 4)<br />
' 第二部分 ＝ 字节集_交换 (第二部分)<br />
withlow ＝ between<br />
.计次循环首 (4 ÷ 2, n)<br />
    withlow [n × 2 － 1] ＝ between [n × 2]<br />
    withlow [n × 2] ＝ between [n × 2 － 1]<br />
.计次循环尾 ()<br />
between ＝ withlow<br />
<br />
.计次循环首 (4, n)  ' 中间四位<br />
    uuid ＝ uuid ＋ 进制_十到十六 (between [n], )  ' 直接用精益模块就行<br />
.计次循环尾 ()<br />
i ＝ i ＋ 4<br />
.计次循环首 (8, )  ' 最后八位<br />
    uuid ＝ uuid ＋ 进制_十到十六 (data <i>, )<br />
    i ＝ i ＋ 1<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
' // no 取主板型号<br />
<br />
uuid ＝ uuid ＋ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )<br />
<br />
<br />
' // no 生成机器码<br />
uuid ＝ 校验_取md5_文本 (uuid, , , )<br />
<br />
<br />
<br />
<br />
返回 (uuid)