-
'假設您的登入視窗有乙個名為 text1 的文字框控制項,用於輸入密碼; 乙個名為 CMDOK 的按鈕用於單擊以登入; 表單 form1 是輸入密碼後要顯示的表單,然後使用以下 **。
private sub cmdok_click()if = "password" then '將密碼更改為您的密碼。
unload me
elsemsgbox "密碼不正確,請重新輸入。 "
end if
end sub
-
private sub cmdok_click()if = "vb01" and = "123" thent1 = msgbox("VB01成功著陸", ,"系統提示")elseif ="vb02" and = "123" thent2 = msgbox("VB02成功著陸", ,"系統提示")else
t2 = msgbox("使用者名稱或密碼不正確", ,"系統提示")end if
end sub
-
那是網咖的收費系統有問題,還能繼續玩嗎? 不登入就不能登入,就不能在吧檯提賬,也開不了卡。
-
很難找到這種原始檔,我想你想把它用到最糟糕的程度,對吧?
這種原始檔可以說是說,除非被調查者自己編乙個,否則95%的人都沒有這個東西,而且要花幾個月甚至一年的時間才能整理出來,你覺得有人會傻傻地給你辛苦久的成果去做那麼多壞事嗎? 自己想想吧!
-
將文字框的 passwordchar 屬性設定為"*"
這可以直接在屬性視窗或程式中設定。
private sub form_load()= "*"
end sub
-
將文字控制項的 passwordchar 設定為 *
-
MD5 通用加密方法 MD5(字串)。
MD5 模組。
-
在執行主程式之前新增驗證。
或者自己做乙個驗證專案。
在執行另乙個檔案的傳遞後。
否則,它將不會被執行。
-
假設它只是乙個固定的密碼,簡單的加密。
設定乙個表單 2 開始,然後在表單 2 中新增乙個文字框,並使用按鈕將文字框的內容與設定的密碼進行比較,並以相同的方式啟動表單 1
-
奇怪的問題,你**直接寫成:在文字框中輸入的密碼是否="password"這還不夠嗎?
-
在兩端新增雙引號'',因為裡面是字串的格式。
-
奇怪。。。
直接輸入。 if <>"password"
msgbox "密碼錯誤"
end if
這並不容易,而且您不必查詢資料庫。
將使用者的相關資訊新增到資料庫中,然後在介面上新增乙個按鈕,稱為密碼檢索,點選該按鈕,就會顯示獲取密碼的表格,然後讓客戶輸入相關資訊,與資料庫進行對比,如果正確,會顯示修改密碼的介面, 修改後點選儲存,修改密碼。可以對資料庫進行密碼設定。
每次進入 Windows XP 桌面時,總會有乙個使用者登入螢幕,要求您輸入使用者名稱和密碼。 這樣做的好處是,在多人使用一台計算機的環境中具有安全性。 但是,如果您單獨使用計算機,每次都必須輸入密碼真的很煩人。 >>>More