用Visual Basic為軟件增加注冊功能
作者：東坡下載 來源：uzzf 發布時間：2010-10-14 14:06:24 點擊：
在尊重軟件著作權的時代，電子注冊版軟件的應用也越來越廣。它的出現使用戶對程序中未受限制的功能有了一定了解，起到了推廣和傳播作用，同時也很好地保護了制作人的切身利益。那么，我們如何制作一個電子注冊版軟件呢？
經過摸索，筆者利用VB也簡單地制作了一個電子注冊版軟件。
設計原理
利用API中的“GetVolumeInformation”函數提取使用者機器的硬盤序列號為特征碼，注冊時提交此碼，經過軟件著作權人加以運算，給出注冊碼，最后軟件使用人輸入注冊碼完成整個注冊過程（為使說明簡單，本例中以特征碼減101做為注冊碼）。
新建一模塊文件
新建一模塊文件，并將如下聲明的語句和常量添加到Module1.Bas模塊中：
| Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Global GetVal As Long |
編程時需注意的是要將聲明語句寫在同一行中。
窗體設置
在Form1上添加2個文本框，Name屬性分別設置為Text1、Text2；再添加1個按鈕，Name屬性設置為Command1。
添加代碼
將如下程序代碼添加到Form1的Form1_Load事件中：
| Private Sub Form_Load() Dim TempStr1 As String * 256 Dim TempStr2 As String * 256 Dim TempLon1 As Long Dim TempLon2 As Long ……… ‘讀取是否注冊的信息，如何控制這里不再說明 ……… Call GetVolumeInformation("C:\", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256) Text1.Text = GetVal ‘提取本機C盤的序列號至文本框一 End Sub |
將如下程序代碼添加到Command1的Command1_Click事件中：
| Private Sub Command1_Click() If Text2 〈〉 CStr(GetVal) Then MsgBox "注冊碼不正確，請認真檢查輸入是否正確。" Else MsgBox "你已經成功注冊，請重新啟動本軟件。" ……… （將正確注冊的信息寫入，使軟件功能以后不受限制。具體方法依個人愛好進行設置。） ……… End If End Sub |
至此，我們可以運行一下程序。你會發現我們已經簡單地實現了利用硬盤序列號制作電子注冊版軟件的功能。
上一篇:Visual Basic中輕松打造絢麗按鈕 下一篇: VB應用程序中實現“查找和替換”功能
[收藏此文章]
