取主板UUID 修改版 使其与 dos返回的的cha询 WMIC的一直

shituo

原贴 https://bbs.125.la/forum.php?mod=viewthread&tid=14662568&extra= 原作者为：@11665583  @11665583

  

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

变量名	类 型	静态	数组	备 注
size	整数型
data	字节集
i	整数型
Length	整数型
uid	文本型
第二部分	字节集
time_low	整数型
n	整数型

' 调试输出 (到文本 (取字节集中间 (data, 64, 50)))  ' bios安装日期
' 调试输出 (到文本 (取字节集中间 (data, 226, 50)))  ' 主板厂商
' 调试输出 (到文本 (取字节集中间 (data, 256, 50)))  ' 主板型号
' 返回 (寻找字节集 (data, 到字节集 (“VMware”), ) ＞ 0)  ' 检测是否虚拟机
' 还有一些内存和CPU的信息就不列举了
size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)
data ＝ 取空白字节集 (size)
GetSystemFirmwareTable (1381190978, 0, data, size)
i ＝ 9  ' 跳过前8个字节
判断循环首 (真)
' type 类型 1 系统信息
' 调试输出 (data [i])
如果真 (data [i] ＝ 1)
跳出循环 ()
' 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)
uid ＝ 十到十六_汇编 (time_low)
' 中间部分需要交换下
第二部分 ＝ 取字节集中间 (data, i, 4)
第二部分 ＝ 字节集_交换 (第二部分)
计次循环首 (4, n)  ' 中间四位
uid ＝ uid ＋ 十到十六_汇编2 (第二部分 [n])
计次循环尾 ()
i ＝ i ＋ 4
计次循环首 (8, )  ' 最后八位
uid ＝ uid ＋ 十到十六_汇编2 (data [i])
i ＝ i ＋ 1
计次循环尾 ()
返回 (uid)

.版本 2<br /> <br /> .子程序 取主板UUid, 文本型, 公开<br /> .局部变量 size, 整数型<br /> .局部变量 data, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 Length, 整数型<br /> .局部变量 uid, 文本型<br /> .局部变量 第二部分, 字节集<br /> .局部变量 time_low, 整数型<br /> .局部变量 n, 整数型<br /> <br /> ' 调试输出 (到文本 (取字节集中间 (data, 64, 50)))  ' bios安装日期<br /> ' 调试输出 (到文本 (取字节集中间 (data, 226, 50)))  ' 主板厂商<br /> ' 调试输出 (到文本 (取字节集中间 (data, 256, 50)))  ' 主板型号<br /> ' 返回 (寻找字节集 (data, 到字节集 (“VMware”), ) ＞ 0)  ' 检测是否虚拟机<br /> <br /> ' 还有一些内存和CPU的信息就不列举了<br /> <br /> size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)<br /> data ＝ 取空白字节集 (size)<br /> GetSystemFirmwareTable (1381190978, 0, data, size)<br /> i ＝ 9  ' 跳过前8个字节<br /> .判断循环首 (真)<br />     ' type 类型 1 系统信息<br />     ' 调试输出 (data <i>)<br />     .如果真 (data <i> ＝ 1)<br />         跳出循环 ()<br />     .如果真结束<br />     ' type+1 字节后为长度信息<br />     ' 调试输出 (data [i ＋ 1])<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 /> uid ＝ 十到十六_汇编 (time_low)<br /> ' 中间部分需要交换下<br /> 第二部分 ＝ 取字节集中间 (data, i, 4)<br /> 第二部分 ＝ 字节集_交换 (第二部分)<br /> .计次循环首 (4, n)  ' 中间四位<br />     uid ＝ uid ＋ 十到十六_汇编2 (第二部分 [n])<br /> .计次循环尾 ()<br /> i ＝ i ＋ 4<br /> .计次循环首 (8, )  ' 最后八位<br />     uid ＝ uid ＋ 十到十六_汇编2 (data <i>)<br />     i ＝ i ＋ 1<br /> .计次循环尾 ()<br /> 返回 (uid)

dhrjgzs

瞅瞅看瞅瞅看

和弦

取出来的结果跟DOS取的完全不一样

388266

瞅瞅看瞅瞅看

mier001

主板的UUID唯一吗？重装过系统是否会变？

ghost12

很好很强悍，坚持下去哦~

wdjyltzh01

好东西 感谢分享

ysjadnt

缺少“字节集_交换”

ysjadnt

谢谢分享，支持楼主

六弦334

谢谢分享，支持楼主