Vb.net账号注册系统,vbs注册表

本人使用VB.NET，正在做一个用户注册登录系统，但是不知该如何实现输入的账号和数据库的信息进行比对。

/// summary

成都创新互联-专业网站定制、快速模板网站建设、高性价比香河网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式香河网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖香河地区。费用合理售后完善，10余年实体公司更值得信赖。

/// 是否存在该记录

/// /summary

public bool Exists(string user_id)

{

StringBuilder Sql = new StringBuilder();

Sql.Append("select count(1) from USER_INFO");

Sql.Append(" where USER_ID=:user_id");

OracleParameter[] parameters = {

new OracleParameter(":user_id", OracleType.VarChar,20)

};

parameters[0].Value = user_id;

object obj = cn.Runsa.Data.OracleHelper.ExecuteScalar(ConfigurationManager.ConnectionStrings["oraclethree"].ToString(), CommandType.Text, Sql.ToString(), parameters);

if (obj == null || obj.ToString() == "0")

{

return false;

}

else

{

return true;

}

vb.net如何实现注册机

原理有很多，这里实现的是在文件结尾追加配置字符的方法。

程序下载，右键另存为rar文件：/uploadfile/200510/20051017144056534.gif就可以实现注册机了。

注册机就是批量生成相同功能的而内部配置不用程序文件的程序，这个程序的好处是不用在修改源代码重新编译的情况下产生新的文件，广泛应用与木马行业。

注册机是一种破解软件，它的用途基本在两个范围之内:

一个就是由于一些软件涉及版权问题，要完全使用的话需要注册，或者有试用期限限制，或者只有注册之后才可以享受全功能。第二个就是某些网站、网页通过正常注册用户会很复杂，或者是网页、网站管理员需要大量注册内测用户的时候就可以用注册机来达到简单快速的注册用户了。

总结如下：

注册机则解决了这一问题，注册机根据其相应解决的软件而有不同的形式，一般需要脱壳软件、内存查看软件和反组译器等破解工具作为辅助。大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。

大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。

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

思路是:

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

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

怎样用VB编写一个登陆系统，可以注册账号的那种

VB编写一个可以注册帐号的登录系统步骤：

1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。

2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。

5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

以下是用ADO数据对象编写的登录和注册的代码：

1）标准模块代码：

Option Explicit

Public loginname As String

Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码

Public rs As New ADODB.Recordset

Public sql As String

Public Newname As String

2）注册窗体代码：

Option Explicit

Dim Password As String

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 And Text1  "" Then

sql = "select * from 用户管理 where 用户名='"  Text1.Text  "'" ' and 密码='"  Text2.Text  "'"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\data\data.mdb;Persist Security Info=False"

cn.Open

rs.CursorLocation = adUseClient

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

If rs.EOF = True Then '没有该用户名可以注册

MsgBox "用户名可以注册!"

rs.Close

cn.Close

Newname = Text1.Text

Text4 = Newname

Text2.SetFocus

Else

MsgBox "该用户名已经存在，换名注册!"

Text1.Text = ""

Text1.SetFocus

End If

End If

Exit Sub

finish:

MsgBox Err.Description

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 And Text2  "" Then

Password = Text2.Text

Text5 = Password

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 And Text3.Text = Text2.Text Then

Command3.Enabled = True

Command3.SetFocus

ElseIf KeyAscii = 13 And Text3.Text  Text2.Text Then

Text3 = ""

Text3.SetFocus

End If

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command3_Click()

sql = "select * from 用户管理"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\data\data.mdb;Persist Security Info=False"

cn.Open

rs.CursorLocation = adUseClient

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

rs.AddNew

rs.Fields(0) = Newname

rs.Fields(1) = Password

rs.Update

rs.Close

cn.Close

Command3.Enabled = False

End Sub

3）登录窗体代码：

Option Explicit

Dim pnum As Integer

Private Sub Command1_Click()

On Error GoTo finish '防错代码，防止意外而导致的退出

sql = "select * from 用户管理 where 用户名='"  Text1.Text  "' and 密码='"  Text2.Text  "'"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\data\data.mdb;Persist Security Info=False"

cn.Open

rs.CursorLocation = adUseClient

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

'以上使用最通用的方法来查询数据库中是否有匹配的记录

If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的

If pnum  2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出

pnum = pnum + 1

MsgBox "用户名或密码错误!", vbInformation, "错误次数："  pnum

rs.Close

cn.Close

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Exit Sub

Else

MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"

End

End If

Else

loginname = rs.Fields(0)

Form1.Show

rs.Close

cn.Close

End If

Exit Sub

finish:

MsgBox Err.Description

rs.Close

cn.Close

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '获取按键，如果是回车就运行image_click按钮的内容

Call Command1_Click

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

frmZhuce.Show

End Sub

vb.net 注册问题

改为：

sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"