vb.net注册机 vb 注册表

VB.net 中如何实现序列号注册功能

思路是:

公司主营业务：网站建设、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出武穴免费做网站回馈大家。

读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.

也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.

vb.net怎么写注册代码

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

VB.NET做的一个行业小软件，请问如何加密，比如需要通过什么硬件的序列号注册；

最好的加密就是通过你的网站去加密！用网络服务器验证把一些主要程序都可以加载到服务器上！这样你的程序加密就完美了！　（个人观点纯属不懂装懂的。哈哈见笑）

VB.NET 注册代码

写两个函数，一个检测是否有重复用户，第二个插入

检测属用户是否存在

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