如何爲免費軟件添加註冊功能

   軟件開發者寫免費軟件根本無利可圖，咱們必須對免費軟件進行限制保護功能，咱們能夠寫一款電子註冊版軟件，能夠對軟件進行推廣和傳播做用，同時也很好地保護了製做人的切身利益。那麼，咱們如何製做一個電子註冊版軟件呢？ 

    使用平臺，net平臺，開發環境：

使用編程語言，visual basic

磨刀不誤砍柴工：

利用API中的「GetVolumeInformation」函數提取使用者機器的硬盤序列號爲特徵碼，註冊時提交此碼，通過軟件著做權人加以運算，給出註冊碼，最後軟件使用人輸入註冊碼完成整個註冊過程（爲使說明簡單，本例中以特徵碼減101作爲註冊碼）。 
　　新建一模塊文件 
　　新建一模塊文件，並將以下聲明的語句和常量添加到Module1.Bas模塊中： 
code：

編程時需注意的是要將聲明語句寫在同一行中。 
　　窗體設置 
　　在Form1上添加2個文本框，Name屬性分別設置爲Text一、Text2；再添加1個按鈕，Name屬性設置爲Command1。 
　　添加code
　　將以下程序代碼添加到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

　　最後，咱們能夠運行一下程序。你會發現咱們已經簡單地實現了利用硬盤序列號製做電子註冊版軟件的功能。

   固然，你還能夠對軟件添加javascript彈出廣告，獲取利潤。

adiOS