通過易語言支援庫、vb、cmd，彙編等方法獲取cpu的序列號，從而轉化為特徵字，方便我們硬體的繫結註冊使用。
511遇見易語言軟體本地註冊驗證
易語言有乙個資料型別就是cpu，我們可以直接呼叫它的序列號
.版本 2
.支援庫 eapi
.區域性變數 cpu資訊, cpu資訊
取cpu資訊 (cpu資訊)
編輯框1.內容 ＝ cpu資訊.序列號
.版本 2
.子程式 cpu_取序列號_cmd, 文字型, 公開, 使用cmd來獲取cpu序列號
.區域性變數 a, 文字型
a ＝ 刪全部空 (取dos返回 (「wmic cpu get processorid」))
a ＝ 子文字替換 (a, #換行符, 「#」, , , 真)
a ＝ 文字_取出中間文字 (a, 「#」, 「#」, , )
返回 (a)
.版本 2
.子程式 vb_取硬體資訊, 文字型, 公開
.引數 型別, 文字型, 可空, 預設 #磁碟序列號
.區域性變數 vbscript, 物件
.如果 (是否為空 (型別))
型別 ＝ #磁碟序列號
.否則 .如果真 (型別 ≠ #mac 且 型別 ≠ #cpuid 且 型別 ≠ #磁碟序列號 且 型別 ≠ #音效卡 且 型別 ≠ #顯示卡 且 型別 ≠ #bios)
型別 ＝ #磁碟序列號
.如果真結束
.如果結束
vbscript.建立 (「scriptcontrol」, )
vbscript.寫屬性 (「language」, 「vbscript」)
vbscript.數值方法 (「executestatement」, #gettrait)
返回 (刪首尾空 (vbscript.通用方法 (「run」, 「gettrait」, 型別).取文字 ()))
.版本 2
.子程式 cpu_取序列號_彙編, 文字型, 公開, 系統使用彙編方式獲取cpuid
.區域性變數 s1, 整數型, , , -4
.區域性變數 s2, 整數型, , , -8
置入** () ' mov eax,01h
置入** () ' xor ecx,ecx
置入** () ' xor edx,edx
置入** () ' cpuid
置入** () ' mov dword [ebp-4],edx
置入** () ' 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.內容))
易語言獲取硬碟特徵字序列號加密特徵字
在進行軟體本地或者網路註冊時，需要獲取執行軟體的硬碟特徵，序列號，等等，便於我們加密，當我們的電腦有多塊硬碟時，我們就要考慮到取全部的硬碟序列號，然後把序列號轉化為數字，這裡我們分別獲取，然後再獲取所有的，然後輸出,其中硬體特徵就是所有硬碟加密返回的，作為機器碼用來繫結判斷使用。511遇見易語言軟體...
獲取CPU序列號，硬碟序列號，網絡卡mac位址
獲取cpu序列號，硬碟序列號，網絡卡mac位址 private string getmoc 獲取硬碟序列號 managementclass mchd new managementclass win32 logicaldisk managementobjectcollection mochd mchd...
關於取硬碟序列號
測試環境 win7 64位 參考 方法1，結果 5vp9mz60 managementclass mc new managementclass win32 physicalmedia 網上有提到，用win32 diskdrive，但是用win32 diskdrive獲得的硬碟資訊中並不包含seria...