導航:首頁 > 源碼編譯 > vb編譯賬號和密碼檢驗程序

vb編譯賬號和密碼檢驗程序

發布時間:2023-01-09 02:33:38

㈠ VB程序編寫賬號和密碼的驗證程序

PrivateSubCommand1_Click()
IfIsNumeric(Text1.Text)AndLen(Text1.Text)=6AndText2.Text="good"Then
MsgBox"輸入正確,驗證通過",vbOKCancel,"驗證通過"
Else
IfMsgBox("賬號或密碼錯誤",vbRetryCancel,"驗證錯誤")=vbRetryThen
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
End
EndIf
EndIf

EndSub

PrivateSubForm_Load()
Text1.PasswordChar="*"

EndSub

㈡ 用VB編寫「密碼校驗」程序的設計

完整代碼如下,初始化都已經做好啦,添加控制項試試吧:

Dim NCount As Integer

Private Sub Form_Load()
'初始化控制項信息
Caption = "密碼校驗"
Label1.Caption = "請輸入密碼:"
Text1.Text = ""
Label2.ForeColor = &HFF&
Label2.Alignment = 2
Label2.FontName = "宋體"
Label2.FontSize = 15.75
Label2.AutoSize = True
Label2.Visible = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 6 And KeyAscii <> 8 And KeyAscii <> 13 Then
KeyAscii = 0
End If
If KeyAscii = 13 And Text1.Text = "1234567" Then
Label2.Caption = "歡迎光臨!"
Label2.Visible = True
ElseIf KeyAscii = 13 Then
If NCount <> 1 Then
Label2.Visible = True
Label2.Caption = "密碼不符,請再輸入一遍!"
Text1.Text = ""
NCount = NCount + 1
Else
Label2.Visible = True
Label2.Caption = "非法用戶,請推出程序!"
Text1.Text = ""
Text1.Enabled = False
End If
End If
End Sub

㈢ 用VB語言編制一個帳號與密碼的檢驗程序

Option Explicit
Const MaxLogTimes As Integer = 3

Private Sub cmdCancel_Click()
Dim intResult As Integer
'請求用戶確認是否真的退出系統登錄
intResult = MsgBox("你選擇了退出系統登錄,退出將不能啟動管理系統!" & vbCrLf & "是否真的退出?", vbYesNo, "登錄驗證")
If intResult = vbYes Then End '根據用戶選擇結束應用程序
End Sub

Private Sub cmdOK_Click()
Static intLogTimes As Integer '用於保存用戶請求驗證的次數
Dim intChecked As Integer, strName As String, strPassword As String
intLogTimes = intLogTimes + 1 '計算登錄次數
If intLogTimes > MaxLogTimes Then
'超過允許的登錄次數,顯示提示信息
MsgBox "你已經超過允許驗證次數!" & vbCr & "應用程序將結束!", vbCritical, "登錄驗證"
End '結束應用程序
Else '進一步驗證登錄信息的合法性
strName = Trim(txtUserName.Text) '獲得輸入的用戶名
strPassword = Trim(txtPassWord.Text) '獲得輸入的口令
'檢驗用戶名和口令的合法性,並根據檢驗返回值執行相應的操作
if(strName ="123456")
if(strPassword="VB6") '口令正確
Unload Me '卸載登錄窗體
MsgBox "登錄成功,將啟動系統程序!", vbInformation, "登錄驗證"
'通常在此放置顯示系統主窗體的語句,例如
'frmMain.Show
else
MsgBox "口令錯誤,請重新輸入!", vbCritical, "登錄驗證"
txtPassWord.Text = ""
txtPassWord.SetFocus
end if
else '用戶不是系統用戶
MsgBox "<" & strName & ">不是系統用戶,請檢查用戶名輸入是否正確!", vbCritical, "登錄驗證"
txtUserName.Text = ""
txtPassWord.Text = ""
txtUserName.SetFocus
End If
End If
End Sub

'這是你要的重試 我覺得很沒有必要
Private Sub cmdReset_Click()
txtPassWord.Text = ""
txtPassWord.SetFocus
End Sub

說明:
1.賬號密碼一般是通過資料庫調用的,這個程序只是用於娛樂或者測試
2.密碼框輸出顯示請在VB的密碼框屬性設置里更該,設password為*即可
3.好好讀讀代碼,你就明白代碼怎麼用了

閱讀全文

與vb編譯賬號和密碼檢驗程序相關的資料

熱點內容
影城網上售票系統源碼 瀏覽:632
防疫就是命令歌曲 瀏覽:202
滴滴號碼加密怎麼解除 瀏覽:844
模具編程的職責 瀏覽:941
華為ssh改加密演算法 瀏覽:147
文件夾空白合同 瀏覽:761
pythonwebpy開發 瀏覽:669
不是c編譯器的有 瀏覽:660
win10壓縮包下載 瀏覽:905
逆戰手機app怎麼樣 瀏覽:946
自嗨自我解壓圖片 瀏覽:395
電子書導入kindle哪個文件夾 瀏覽:418
pythontcpserver性能 瀏覽:544
linux文件夾改名 瀏覽:564
單片機開發板是什麼 瀏覽:851
阿里雲伺服器不能截屏 瀏覽:866
如何自己製作聯想伺服器 瀏覽:843
停車場規劃演算法 瀏覽:923
深蹲PDF 瀏覽:908
數據科學包python 瀏覽:849