c 易语言 cpu序列号,易语言汇编取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

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)