通過易語言支持庫?、VB、CMD，匯編等方法獲取CPU的序列號，從而轉化為特征字，方便我們硬件的綁定注冊使用。

511遇見易語言軟件本地注冊驗證

?易語言有一個數據類型就是CPU，我們可以直接調用它的序列號

.版本 2 .支持庫 eAPI.局部變量 CPU信息, CPU信息取CPU信息 (CPU信息) 編輯框1.內容 ＝ CPU信息.序列號

使用CMD來獲取CPU序列號

.版本 2.子程序 CPU_取序列號_cmd, 文本型, 公開, 使用CMD來獲取CPU序列號 .局部變量 a, 文本型a ＝ 刪全部空 (取DOS返回 (“wmic CPU get ProcessorID”)) a ＝ 子文本替換 (a, #換行符, “#”, , , 真) a ＝ 文本_取出中間文本 (a, “#”, “#”, , ) 返回 (a)

易語言執行 VBScript調用

.版本 2.子程序 VB_取硬件信息, 文本型, 公開 .參數 類型, 文本型, 可空, 默認 #磁盤序列號 .局部變量 VBScript, 對象.如果 (是否為空 (類型))類型 ＝ #磁盤序列號 .否則.如果真 (類型 ≠ #MAC 且 類型 ≠ #CPUID 且 類型 ≠ #磁盤序列號 且 類型 ≠ #聲卡 且 類型 ≠ #顯卡 且 類型 ≠ #BIOS)類型 ＝ #磁盤序列號.如果真結束.如果結束VBScript.創建 (“ScriptControl”, ) VBScript.寫屬性 (“Language”, “VBScript”) VBScript.數值方法 (“ExecuteStatement”, #GetTrait) 返回 (刪首尾空 (VBScript.通用方法 (“Run”, “GetTrait”, 類型).取文本 ()))

?系統使用匯編方式獲取CPUID

.版本 2.子程序 CPU_取序列號_匯編, 文本型, 公開, 系統使用匯編方式獲取CPUID .局部變量 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))

調用源碼：

.版本 2 .支持庫 eAPI .支持庫 spec.程序集 窗口程序集_啟動窗口.子程序 _按鈕1_被單擊, , , 易-CPU序列號 .局部變量 CPU信息, CPU信息取CPU信息 (CPU信息) 編輯框1.內容 ＝ CPU信息.序列號.子程序 _按鈕2_被單擊, , , CMD_CPU序列號編輯框2.內容 ＝ CPU_取序列號_cmd ().子程序 _按鈕3_被單擊, , , VB_CPU序列號編輯框3.內容 ＝ CPU_取序列號_VB ().子程序 _按鈕4_被單擊, , , 匯編_CPU序列號編輯框4.內容 ＝ CPU_取序列號_匯編 ().子程序 _按鈕5_被單擊, , , 綜合—CPU特征字編輯框5.內容 ＝ 到文本 (CPU_取特征所有 ()) 調試輸出 (取文本長度 (編輯框5.內容))

參考源碼：1、511遇見易語言軟件注冊本地驗證-2-取CPU序列號特征字

? ? ? ? ? ? ? ? ?2、511遇見易語言軟件注冊教程

總結

以上是生活随笔為你收集整理的易语言取CPU序列号特征字的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。