易语言汇编取CPU序列号

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 a, 整数型

a ＝ 取启动时间 ()
输出调试文本 (汇编_取CPU序列号 ())
输出调试文本 (“用时：” ＋ 到文本 (取启动时间 () － a))
a ＝ 取启动时间 ()
输出调试文本 (系统_取CPU序列号 ())
输出调试文本 (“用时：” ＋ 到文本 (取启动时间 () － a))
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 汇编_取CPU序列号, 文本型
.局部变量 s1, 整数型, , , -4
.局部变量 s2, 整数型, , , -8

置入代码 ({ 184, 1, 0, 0, 0 })  ' mov eax,01h
置入代码 ({ 49, 201 })  ' xor ecx,ecx
置入代码 ({ 49, 210 })  ' xor edx,edx
置入代码 ({ 15, 162 })  ' cpuid
置入代码 ({ 137, 85, 252 })  ' mov dword [ebp-4],edx
置入代码 ({ 137, 69, 248 })  ' mov dword [ebp-8],eax
返回 (取八位十六进制 (s1) ＋ 取八位十六进制 (s2))

.子程序 取八位十六进制, 文本型
.参数 a, 整数型
.局部变量 s, 文本型

s ＝ 取十六进制文本 (a)
s ＝ 取重复文本 (8 － 取文本长度 (s), “0”) ＋ s
返回 (s)

.子程序 系统_取CPU序列号, 文本型
.局部变量 VBScript, 对象

VBScript.创建 (“ScriptControl”, )
VBScript.写属性 (“Language”, “VBScript”)
VBScript.数值方法 (“ExecuteStatement”, #取CPU序列号)
返回 (VBScript.通用方法 (“Run”, “Getcpuid”, ).取文本 ())

@s562218