admin用VB爲軟件增加注冊功能
在尊重軟件著作權的時代，電子注冊軟件的應用越來越廣泛。它的出現讓用戶對節目中不受限的功能有了一定的了解，起到了推廣和傳播的作用，同時也保護了制作者的切身利益。那麽，我們如何制作一個電子注冊軟件呢？
經過摸索，作者還簡單地用VB做了一個電子注冊軟件。
設計原理
API中的“GetVolumeInformation”函數用於提取用戶機器的硬磐序列號作爲特征碼。注冊時提交這個代碼，軟件著作權人計算後給出注冊碼。最後，軟件用戶輸入注冊碼，完成整個注冊過程(爲了說明簡單，本例中注冊碼爲特征碼減101)。
創建新的模塊文件
創建新的模塊文件，竝將以下語句和常量添加到模塊1中。Bas模塊:
聲明函數GetVolumeInformation Lib" kernel 32"別名" GetVolumeInformation A"
(ByVal lpRootPathName爲字符串，ByVal lpVolumeNameBuffer爲字符串，ByVal
nVolumeNameSize爲Long，lpVolumeSerialNumber爲Long，lpMaximumComponentLength爲
Long，lpFileSystemFlags爲Long，ByVal lpFileSystemNameBuffer爲String，ByVal
nFileSystemNameSize一樣長)一樣長
全侷GetVal As Long
編程時，將聲明語句寫在同一行是很重要的。
表單設置
在Form1上添加兩個文本框，Name屬性設置爲Text1和Text2分別是；再添加一個按鈕，Name屬性設置爲Command1。
添加代碼
將以下程序代碼添加到Form1的Form1 _ load事件中:
private subform _ load()
Dim TempStr1作爲字符串* 256
Dim TempStr2作爲字符串* 256
Dim TempLon1一樣長
長
，N2
0條評論