.版本 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”, ).取文本 ())