思路是:
公司主營業務:網站建設、網站制作、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳,提高企業的競爭能力。創新互聯公司是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰,讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創新互聯公司推出武穴免費做網站回饋大家。
讀取電腦硬件的信息,用隨機數加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數據,數據比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統一,不統一的就是使用期軟件.
也可以省了第一注冊信息,直接發硬件信息給你生成序列號,其他的相同.
Private Sub 提交_Click()
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from user"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me!密碼 確認密碼 Then
MsgBox "兩次輸入的密碼不一致,請重新輸入", vbExclamation, "Error"
Exit Sub
Else
stemp = "insert into user"
stemp = stemp "(用戶名,密碼,身份證號)"
stemp = stemp " values('" Me!用戶名 "','" Me!密碼 "','" Me!身份證號 "')"
DoCmd.RunSQL stemp1
Set rs = Nothing
End If
MsgBox "The information of register have saved already!", vbExclamation, "information"
End Sub
最好的加密就是通過你的網站去加密!用網絡服務器驗證把一些主要程序都可以加載到服務器上!這樣你的程序加密就完美了! (個人觀點純屬不懂裝懂的。哈哈見笑)
寫兩個函數,一個檢測是否有重復用戶,第二個插入
檢測屬用戶是否存在
private function checkUser(byval uname as string) as boolean
dim sql as string = "select * from [user] where username=" uname
dim cmd as sqlcommand = new sqlcommand(sql,conn)
dim read as sqldatareader = cmd.excutereader
dim result as boolean = read.hasrows
cmd=nothing
return result
end function
新增用戶
private sub adduser(byval uname as string,byval password as string)
if checkUser(uname)
messagebox.show("用戶已存在")
exit sub
end if
try
dim sql as string = "insert into [user](username,password) values(@uname,@upass)"
dim cmd as sqlcommand = new sqlcommand(sql,conn)
cmd.parameters.add("@uname",sqldbtype.varchar).value=uname
cmd.parameters.add("@upass",sqldbtype.varchar).value=password
cmd.ExecuteNonQuery
cmd=nothing
messagebox.show("用戶添加成功!")
catch ex As Exception
messagebox.show("用戶添加失敗!" + ex.message)
end try
end sub
分享標題:vb.net注冊機 vb 注冊表
URL分享:http://m.newbst.com/article6/dophsog.html
成都網站建設公司_創新互聯,為您提供做網站、品牌網站建設、品牌網站設計、營銷型網站建設、搜索引擎優化、軟件開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯