/// 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;
}
原理有很多，这里实现的是在文件结尾追加配置字符的方法。
程序下载，右键另存为rar文件：/uploadfile/200510/20051017144056534.gif就可以实现注册机了。
注册机就是批量生成相同功能的而内部配置不用程序文件的程序，这个程序的好处是不用在修改源代码重新编译的情况下产生新的文件，广泛应用与木马行业。
注册机是一种破解软件，它的用途基本在两个范围之内:
一个就是由于一些软件涉及版权问题，要完全使用的话需要注册，或者有试用期限限制，或者只有注册之后才可以享受全功能。第二个就是某些网站、网页通过正常注册用户会很复杂，或者是网页、网站管理员需要大量注册内测用户的时候就可以用注册机来达到简单快速的注册用户了。
总结如下：
注册机则解决了这一问题，注册机根据其相应解决的软件而有不同的形式，一般需要脱壳软件、内存查看软件和反组译器等破解工具作为辅助。大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。
大部分在我们拿到注册机之后,可以得到相应的一些注册码或者其他相应的一些东西。这些都是破解该软件所需的，我们只要按照步骤填写那些注册码，被封的软件就可以高枕无忧的使用了。
思路是:
读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.
也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.
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
改为：
sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"
