VB 設定密碼以防止登入軟體出現問題

'假設您的登入視窗有乙個名為 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

這並不容易，而且您不必查詢資料庫。