VB.NET 注冊代碼

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

成都創(chuàng)新互聯(lián)公司于2013年開始，先為澤庫等服務(wù)建站，澤庫等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為澤庫企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

檢測屬用戶是否存在

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

vb.net+access如何進(jìn)行用戶注冊，textbox1用戶名，textbox2密碼。點(diǎn)注冊后用什么代碼存入數(shù)據(jù)庫

Dim StrCon1 As String

Dim Con1 As New System.Data.OleDb.OleDbConnection

dim Cmd1 as System.Data.OleDb.OleDbCommand

dim tkSQL as String

Strcon1="Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" "D:\TEMP.ACCDB" "'"

'數(shù)據(jù)庫連接字符串，指向您數(shù)據(jù)庫

Con1.ConnectionString=StrCon1

Con1.Open

tkSQL="INSERT INTO UserList (UserName,PW) Values('" Me.TxtText1.Text "','" Me.TxtText2.Text "')"

'SQL語句,內(nèi)容與您的數(shù)據(jù)庫中對應(yīng)

Cmd1=New System.Data.OleDb.OleDbCommand(tkSQL,Con1)

cmd1.ExecuteNonQuery

'執(zhí)行

'以下向Combobox中添加Item

Dim DA1 As System.Data.OleDb.OleDbDataAdapter

dim DT1 as new System.Data.DataTable

Dim T1 As Integer

tkSQL="SELECT * FROM UserList"

DA1=New System.Data.OleDb.OleDbDataAdapter(tkSQL,con1)

DA1.Fill(DT1)

For T1=0 To dt1.Rows.Count-1

me.comboBox1.Items.Add(Dt1.Rows(T1)(0))

Next T1

Con1.Close

vb.net如何實(shí)現(xiàn)注冊機(jī)

原理有很多，這里實(shí)現(xiàn)的是在文件結(jié)尾追加配置字符的方法。

程序下載，右鍵另存為rar文件：/uploadfile/200510/20051017144056534.gif就可以實(shí)現(xiàn)注冊機(jī)了。

注冊機(jī)就是批量生成相同功能的而內(nèi)部配置不用程序文件的程序，這個(gè)程序的好處是不用在修改源代碼重新編譯的情況下產(chǎn)生新的文件，廣泛應(yīng)用與木馬行業(yè)。

注冊機(jī)是一種破解軟件，它的用途基本在兩個(gè)范圍之內(nèi):

一個(gè)就是由于一些軟件涉及版權(quán)問題，要完全使用的話需要注冊，或者有試用期限限制，或者只有注冊之后才可以享受全功能。第二個(gè)就是某些網(wǎng)站、網(wǎng)頁通過正常注冊用戶會(huì)很復(fù)雜，或者是網(wǎng)頁、網(wǎng)站管理員需要大量注冊內(nèi)測用戶的時(shí)候就可以用注冊機(jī)來達(dá)到簡單快速的注冊用戶了。

總結(jié)如下：

注冊機(jī)則解決了這一問題，注冊機(jī)根據(jù)其相應(yīng)解決的軟件而有不同的形式，一般需要脫殼軟件、內(nèi)存查看軟件和反組譯器等破解工具作為輔助。大部分在我們拿到注冊機(jī)之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。

大部分在我們拿到注冊機(jī)之后,可以得到相應(yīng)的一些注冊碼或者其他相應(yīng)的一些東西。這些都是破解該軟件所需的，我們只要按照步驟填寫那些注冊碼，被封的軟件就可以高枕無憂的使用了。

vb.net 注冊問題

改為：

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