vb.net密碼驗(yàn)證程序 vb編寫賬號(hào)密碼檢驗(yàn)程序

vb程序設(shè)計(jì)編寫程序驗(yàn)證輸入密碼是否正確

先設(shè)計(jì)好界面，（如：用標(biāo)簽控件，2個(gè)文本框，）在1個(gè)要輸密碼文本框的屬性名稱中輸入password,在要輸入名稱的文本框的屬性名稱中輸入username.在設(shè)置字體 想要輸入錯(cuò)誤密碼三次退出程序方法如下； 在密碼的代碼框中輸入：unload.me chick=3. End sub

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),安遠(yuǎn)企業(yè)網(wǎng)站建設(shè),安遠(yuǎn)品牌網(wǎng)站建設(shè),網(wǎng)站定制,安遠(yuǎn)網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,安遠(yuǎn)網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

VB程序編寫賬號(hào)和密碼的驗(yàn)證程序

Private?Sub?Command1_Click()

If?IsNumeric(Text1.Text)?And?Len(Text1.Text)?=?6?And?Text2.Text?=?"good"?Then

MsgBox?"輸入正確，驗(yàn)證通過",?vbOKCancel,?"驗(yàn)證通過"

Else

If?MsgBox("賬號(hào)或密碼錯(cuò)誤",?vbRetryCancel,?"驗(yàn)證錯(cuò)誤")?=?vbRetry?Then

Text1.Text?=?""

Text2.Text?=?""

Text1.SetFocus

Else

End

End?If

End?If

End?Sub

Private?Sub?Form_Load()

Text1.PasswordChar?=?"*"

End?Sub

用VB語言編制一個(gè)帳號(hào)與密碼的檢驗(yàn)程序

Option Explicit

Const MaxLogTimes As Integer = 3

Private Sub cmdCancel_Click()

Dim intResult As Integer

'請(qǐng)求用戶確認(rèn)是否真的退出系統(tǒng)登錄

intResult = MsgBox("你選擇了退出系統(tǒng)登錄，退出將不能啟動(dòng)管理系統(tǒng)！" vbCrLf "是否真的退出？", vbYesNo, "登錄驗(yàn)證")

If intResult = vbYes Then End '根據(jù)用戶選擇結(jié)束應(yīng)用程序

End Sub

Private Sub cmdOK_Click()

Static intLogTimes As Integer '用于保存用戶請(qǐng)求驗(yàn)證的次數(shù)

Dim intChecked As Integer, strName As String, strPassword As String

intLogTimes = intLogTimes + 1 '計(jì)算登錄次數(shù)

If intLogTimes MaxLogTimes Then

'超過允許的登錄次數(shù)，顯示提示信息

MsgBox "你已經(jīng)超過允許驗(yàn)證次數(shù)！" vbCr "應(yīng)用程序?qū)⒔Y(jié)束！", vbCritical, "登錄驗(yàn)證"

End '結(jié)束應(yīng)用程序

Else '進(jìn)一步驗(yàn)證登錄信息的合法性

strName = Trim(txtUserName.Text) '獲得輸入的用戶名

strPassword = Trim(txtPassWord.Text) '獲得輸入的口令

'檢驗(yàn)用戶名和口令的合法性，并根據(jù)檢驗(yàn)返回值執(zhí)行相應(yīng)的操作

if(strName ="123456")

if(strPassword="VB6") '口令正確

Unload Me '卸載登錄窗體

MsgBox "登錄成功，將啟動(dòng)系統(tǒng)程序！", vbInformation, "登錄驗(yàn)證"

'通常在此放置顯示系統(tǒng)主窗體的語句，例如

'frmMain.Show

else

MsgBox "口令錯(cuò)誤，請(qǐng)重新輸入！", vbCritical, "登錄驗(yàn)證"

txtPassWord.Text = ""

txtPassWord.SetFocus

end if

else '用戶不是系統(tǒng)用戶

MsgBox "" strName "不是系統(tǒng)用戶，請(qǐng)檢查用戶名輸入是否正確！", vbCritical, "登錄驗(yàn)證"

txtUserName.Text = ""

txtPassWord.Text = ""

txtUserName.SetFocus

End If

End If

End Sub

'這是你要的重試 我覺得很沒有必要

Private Sub cmdReset_Click()

txtPassWord.Text = ""

txtPassWord.SetFocus

End Sub

說明：

1.賬號(hào)密碼一般是通過數(shù)據(jù)庫(kù)調(diào)用的，這個(gè)程序只是用于娛樂或者測(cè)試

2.密碼框輸出顯示請(qǐng)?jiān)赩B的密碼框?qū)傩栽O(shè)置里更該，設(shè)password為*即可

3.好好讀讀代碼，你就明白代碼怎么用了

標(biāo)題名稱：vb.net密碼驗(yàn)證程序 vb編寫賬號(hào)密碼檢驗(yàn)程序
網(wǎng)頁鏈接：http://muchs.cn/article46/dohsphg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、網(wǎng)站建設(shè)、Google、關(guān)鍵詞優(yōu)化、搜索引擎優(yōu)化、商城網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)