在進行軟體本地或者網路註冊時，需要獲取執行軟體的硬碟特徵，序列號，等等，便於我們加密，當我們的電腦有多塊硬碟時，我們就要考慮到取全部的硬碟序列號，然後把序列號轉化為數字，這裡我們分別獲取，然後再獲取所有的，然後輸出,其中硬體特徵就是所有硬碟加密返回的，作為機器碼用來繫結判斷使用。
511遇見易語言軟體本地註冊驗證
返回硬體特徵
.版本 2
.子程式 , 文字型, 公開
.引數 硬體序列號, 文字型, , cpu,硬碟，網絡卡預設返回12
.區域性變數 n
.區域性變數 返回結果, 文字型
.區域性變數 單個字元, 文字型
n ＝ 0
返回結果 ＝ 「」
.計次迴圈首 (取文字長度 (硬體序列號), n)
單個字元 ＝ 「」
單個字元 ＝ 取文字右邊 (取文字左邊 (硬體序列號, n), 1)
返回結果 ＝ 返回結果 ＋ 到文字 (取** (單個字元, 1))
.計次迴圈尾 ()
返回結果 ＝ 數值到格式文字 (到長整數 (取文字左邊 (返回結果, 11)) ＋ 到長整數 (取文字右邊 (返回結果, 11)), 0, 假)
返回 (返回結果)
.版本 2
.支援庫 eapi
.子程式 硬碟_取特徵所有, 長整數型, 公開, 取回電腦所有硬碟的特徵數字
.區域性變數 硬碟資訊, 硬碟資訊
.區域性變數 驅動器數量
.區域性變數 驅動器列表, 文字型, , "0"
.區域性變數 n
.區域性變數 序列號, 文字型
.區域性變數 a, 長整數型
驅動器列表 ＝ 取驅動器列表 (1)
驅動器數量 ＝ 取陣列成員數 (驅動器列表)
.計次迴圈首 (驅動器數量, n)
取硬碟資訊 (硬碟資訊, n － 1)
序列號 ＝ 硬碟資訊.序列號
a ＝ a ＋ 到長整數 ( (序列號))
.計次迴圈尾 ()
返回 (a)
.版本 2
.支援庫 eapi
.支援庫 spec
.支援庫 dp1
.子程式 _按鈕1_被單擊, , , 取硬碟特徵字
編輯框1.內容 ＝ 到文字 (取硬碟特徵字 ())
.子程式 _按鈕2_被單擊, , , 取硬碟序列號
取硬碟資訊 (硬碟資訊, 3)
編輯框2.內容 ＝ 硬碟資訊.序列號
.子程式 _按鈕3_被單擊, , , 取所有硬碟序列號
.區域性變數 n, 整數型
驅動器列表 ＝ 取驅動器列表 (1)
驅動器數量 ＝ 取陣列成員數 (驅動器列表)
編輯框3.內容 ＝ 「」
.計次迴圈首 (驅動器數量, n)
取硬碟資訊 (硬碟資訊, n － 1)
編輯框3.加入文字 (硬碟資訊.序列號 ＋ #換行符)
.計次迴圈尾 ()
.子程式 _按鈕4_被單擊, , , 取**
除錯輸出 (取** (「a」, 1))
.子程式 _按鈕5_被單擊, , , 返回硬體特徵
編輯框4.內容 ＝ 到大寫 (取資料摘要 (到位元組集 (硬碟_取特徵所有 ())))
除錯輸出 (取文字長度 (編輯框4.內容))
易語言取CPU序列號特徵字
通過易語言支援庫 vb cmd，彙編等方法獲取cpu的序列號，從而轉化為特徵字，方便我們硬體的繫結註冊使用。511遇見易語言軟體本地註冊驗證 易語言有乙個資料型別就是cpu，我們可以直接呼叫它的序列號 版本 2 支援庫 eapi 區域性變數 cpu資訊,cpu資訊 取cpu資訊 cpu資訊 編輯框1...
獲取硬碟序列號（VC）
說明 經過上百臺計算機測試，ide和sata硬碟可以獲取序列號 scsi硬碟沒有測試環境，無法測試成功與否。請有條件的朋友幫忙測試下，給個訊息，謝謝。虛擬機器上測試不了，不用測試了。ide測試出來全部是0000等數字。網路流傳的版本不少，下下來測試修改了下。include include inclu...
獲取硬碟物理序列號
獲取硬碟物理序列號 最近才做完了這個獲取 ide 硬碟物理序列號的程式。宣告一下，這個程式是我根據 lynn mcguire 的那個 diskid32 的源 做了些自以為是的改動得到的，只能在 nt 平台下獲得第一塊 ide 硬碟的物理序列號。同時，這個程式用到了不少未公開的 windows 的結構...