/// summary
成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比香河網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式香河網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋香河地區(qū)。費用合理售后完善，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;
}
原理有很多，這里實現(xiàn)的是在文件結(jié)尾追加配置字符的方法。
程序下載，右鍵另存為rar文件：/uploadfile/200510/20051017144056534.gif就可以實現(xiàn)注冊機了。
注冊機就是批量生成相同功能的而內(nèi)部配置不用程序文件的程序，這個程序的好處是不用在修改源代碼重新編譯的情況下產(chǎn)生新的文件，廣泛應(yīng)用與木馬行業(yè)。
注冊機是一種破解軟件，它的用途基本在兩個范圍之內(nèi):
一個就是由于一些軟件涉及版權(quán)問題，要完全使用的話需要注冊，或者有試用期限限制，或者只有注冊之后才可以享受全功能。第二個就是某些網(wǎng)站、網(wǎng)頁通過正常注冊用戶會很復(fù)雜，或者是網(wǎng)頁、網(wǎng)站管理員需要大量注冊內(nèi)測用戶的時候就可以用注冊機來達到簡單快速的注冊用戶了。
總結(jié)如下：
注冊機則解決了這一問題，注冊機根據(jù)其相應(yīng)解決的軟件而有不同的形式，一般需要脫殼軟件、內(nèi)存查看軟件和反組譯器等破解工具作為輔助。大部分在我們拿到注冊機之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。
大部分在我們拿到注冊機之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。
思路是:
讀取電腦硬件的信息,用隨機數(shù)加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數(shù)據(jù),數(shù)據(jù)比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.
也可以省了第一注冊信息,直接發(fā)硬件信息給你生成序列號,其他的相同.
VB編寫一個可以注冊帳號的登錄系統(tǒng)步驟：
1）1）首先需要用數(shù)據(jù)庫軟件（如ACCESS軟件）建立一個數(shù)據(jù)庫，新建幾個表，用以記錄帳號密碼的表、登錄日志表和其他與此有關(guān)的所需要的表等。
2）VB新建數(shù)據(jù)工程，此時VB6集成調(diào)試環(huán)境左邊工具箱內(nèi)已加載了有關(guān)數(shù)據(jù)庫編程必須的控件。
3）然后在FORM1窗體中添加ADO數(shù)據(jù)控件，右鍵-ADODC1控件屬性頁-使用連接字符串，選生成，在提供者選項中選合適的OLE DB連接數(shù)據(jù)庫等。在ADODC1控件屬性頁使用連接字符串空白文本窗口中就有一長串字符串，注意該字符串可復(fù)制到程序代碼用于編程。
ADODC1控件屬性頁的數(shù)據(jù)源內(nèi)有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復(fù)制到程序代碼用于編程。
4）可以將SQL查詢語句賦值給ADO數(shù)據(jù)控件的RecordSource屬性實現(xiàn)。
5）數(shù)據(jù)的輸入、修改等可靈活應(yīng)用文本框或數(shù)據(jù)表格控件與ADO數(shù)據(jù)控件通過代碼綁定。
6）想使用ADO數(shù)據(jù)對象，也可將ADO數(shù)據(jù)控件所寫的代碼較方便的移植給ADO數(shù)據(jù)對象。
以下是用ADO數(shù)據(jù)對象編寫的登錄和注冊的代碼：
1）標(biāo)準模塊代碼：
Option?Explicit
Public?loginname?As?String
Public?cn?As?New?ADODB.Connection?'定義數(shù)據(jù)庫的連接存放數(shù)據(jù)和代碼
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?"該用戶名已經(jīng)存在，換名注冊!"
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?'防錯代碼，防止意外而導(dǎo)致的退出
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
'以上使用最通用的方法來查詢數(shù)據(jù)庫中是否有匹配的記錄
If?rs.EOF?=?True?Then?'如果沒有記錄則說明用戶或密碼為錯誤的
If?pnum??2?Then?'pnum就是密碼驗證次數(shù)，當(dāng)次數(shù)超過3次，系統(tǒng)會自動保護退出
pnum?=?pnum?+?1
MsgBox?"用戶名或密碼錯誤!",?vbInformation,?"錯誤次數(shù)："??pnum
rs.Close
cn.Close
Text1.Text?=?""
Text2.Text?=?""
Text1.SetFocus
Exit?Sub
Else
MsgBox?"用戶名或密碼錯誤超過三次,系統(tǒng)會自動退出",?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按鈕的內(nèi)容
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 "')"
重慶分公司
重慶分公司
