VB.net 中如何實(shí)現(xiàn)序列號(hào)注冊(cè)功能

思路是:

公司主營(yíng)業(yè)務(wù)：網(wǎng)站建設(shè)、網(wǎng)站制作、移動(dòng)網(wǎng)站開(kāi)發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開(kāi)放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)公司推出武穴免費(fèi)做網(wǎng)站回饋大家。

讀取電腦硬件的信息,用隨機(jī)數(shù)加工這些信息后在注冊(cè)表中做個(gè)記錄,用這個(gè)記錄生成注冊(cè)碼送回給你,你按特定的方法生成序列號(hào),你的小程序收到序列號(hào)后還原成數(shù)據(jù),數(shù)據(jù)比較注冊(cè)表中的記錄,如果正確就加入第二部分注冊(cè)的信息完成注冊(cè).你的程序每次打開(kāi)時(shí),先比對(duì)硬件信息-第一注冊(cè)信息-第二注冊(cè)信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.

也可以省了第一注冊(cè)信息,直接發(fā)硬件信息給你生成序列號(hào),其他的相同.

vb.net怎么寫(xiě)注冊(cè)代碼

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!密碼 確認(rèn)密碼 Then

MsgBox "兩次輸入的密碼不一致，請(qǐng)重新輸入", vbExclamation, "Error"

Exit Sub

Else

stemp = "insert into user"

stemp = stemp "(用戶名，密碼，身份證號(hào))"

stemp = stemp " values('" Me!用戶名 "','" Me!密碼 "','" Me!身份證號(hào) "')"

DoCmd.RunSQL stemp1

Set rs = Nothing

End If

MsgBox "The information of register have saved already!", vbExclamation, "information"

End Sub

VB.NET做的一個(gè)行業(yè)小軟件，請(qǐng)問(wèn)如何加密，比如需要通過(guò)什么硬件的序列號(hào)注冊(cè)；

最好的加密就是通過(guò)你的網(wǎng)站去加密！用網(wǎng)絡(luò)服務(wù)器驗(yàn)證把一些主要程序都可以加載到服務(wù)器上！這樣你的程序加密就完美了！?。▊€(gè)人觀點(diǎn)純屬不懂裝懂的。哈哈見(jiàn)笑）

VB.NET 注冊(cè)代碼

寫(xiě)兩個(gè)函數(shù)，一個(gè)檢測(cè)是否有重復(fù)用戶，第二個(gè)插入

檢測(cè)屬用戶是否存在

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

分享標(biāo)題：vb.net注冊(cè)機(jī) vb 注冊(cè)表
URL分享：http://jinyejixie.com/article6/dophsog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、品牌網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計(jì)、營(yíng)銷型網(wǎng)站建設(shè)、搜索引擎優(yōu)化、軟件開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)