vb.net密碼驗(yàn)證程序 vb編寫賬號密碼檢驗(yàn)程序
vb程序設(shè)計(jì)編寫程序驗(yàn)證輸入密碼是否正確
先設(shè)計(jì)好界面，（如：用標(biāo)簽控件，2個文本框，）在1個要輸密碼文本框的屬性名稱中輸入password,在要輸入名稱的文本框的屬性名稱中輸入username.在設(shè)置字體 想要輸入錯誤密碼三次退出程序方法如下； 在密碼的代碼框中輸入：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)價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,安遠(yuǎn)網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
VB程序編寫賬號和密碼的驗(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("賬號或密碼錯誤",?vbRetryCancel,?"驗(yàn)證錯誤")?=?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語言編制一個帳號與密碼的檢驗(yàn)程序
Option Explicit
Const MaxLogTimes As Integer = 3
Private Sub cmdCancel_Click()
Dim intResult As Integer
'請求用戶確認(rèn)是否真的退出系統(tǒng)登錄
intResult = MsgBox("你選擇了退出系統(tǒ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 '用于保存用戶請求驗(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 "登錄成功，將啟動系統(tǒng)程序！", vbInformation, "登錄驗(yàn)證"
'通常在此放置顯示系統(tǒng)主窗體的語句，例如
'frmMain.Show
else
MsgBox "口令錯誤，請重新輸入！", vbCritical, "登錄驗(yàn)證"
txtPassWord.Text = ""
txtPassWord.SetFocus
end if
else '用戶不是系統(tǒng)用戶
MsgBox "" strName "不是系統(tǒ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.賬號密碼一般是通過數(shù)據(jù)庫調(diào)用的，這個程序只是用于娛樂或者測試
2.密碼框輸出顯示請?jiān)赩B的密碼框?qū)傩栽O(shè)置里更該，設(shè)password為*即可
3.好好讀讀代碼，你就明白代碼怎么用了
當(dāng)前文章：vb.net密碼驗(yàn)證程序 vb編寫賬號密碼檢驗(yàn)程序
網(wǎng)址分享：http://m.jiaotiyi.com/article/dohsphg.html