VB密碼系統，如何製作VB密碼

你說得很對

cyjpath + "\"如果存在，如果不存在，請建立並初始化它。

詳細 **:p ripate sub form load（）dim 密碼

dim aa = "12345678"

password_filename = cyjpath + "\"

if dir(password_filename) = "" then

open password_filename for output as #1 len = 8

print #1, a

close #

end if

end sub

這並不是說專案被鎖定了。 就是程式執行後需要登入密碼，應該在資料庫裡，看看資料庫裡有沒有帶專案的東西，把使用者密碼的名字放到表格裡應該很容易找到。。。

必需控制項 text1 command1 控制項陣列（先放乙個按鈕，然後複製貼上，系統會提示您建立乙個控制項陣列，選擇“是”。 然後複製。 總共複製了九個。

加上總共十個按鈕的原理）。名稱為 command1（0）--command1（9）。 這與數字 0---9 完全對應。

複製以下內容**。

private sub command1_click(index as integer)

str(index)

end sub

private sub form_load()= ""

for i = 0 to 9

command1(i).caption = inext i

end sub

最簡單的方法是通過在鍵“1”中新增以下 ** 來建立九個鍵和乙個文字框，其他鍵也類似。

private sub command1_click()&"1"

end sub

要建立按鈕小部件陣列，請新增乙個按鈕，選擇該按鈕，複製它，然後貼上它，直到您有 9 個按鈕。 以下**可以滿足您的要求：

dim str as string'建立乙個全域性變數來儲存要在文字框中顯示的數字，因為如果將其放在按鈕單擊事件中，則每次 STR 單擊都會被重新初始化，並且只會儲存乙個數字。

private sub command1_click(index as integer)

str = str + cstr(index + 1)'將點選按鈕的索引號加1後轉換為字串格式，並結合前一次點選生成的字串，加1的原因是按鈕的索引從0開始。

str'在文字框中顯示字串。

end sub

'在啟動視窗中新增 2 個文字框，並在 Private Sub Command1 上新增乙個按鈕 click（）if="使用者名稱" then

if = "密碼" then

msgbox"登入成功",,"技巧"

elsemsgbox"密碼錯誤",,"!"

end if

elsemsgbox"使用者名稱不正確",,"!"

end if

讓我們做乙個簡單的操作，構建 text1、text2、command1 並新增 form2 表單。 在 command1 中，輸入 if"使用者名稱" and "密碼" then

elsemsgbox"你不能使用這個軟體！ "

end if

它也應該是一種形式，對吧？？

但是，在專案中，先設定執行，然後根據獲得的結果決定是否建立和執行其他表單？

你能告訴我你的電子郵件位址嗎，**太多了，不能在這裡寫。

不知道怎麼弄到這個，BIOS提供了這個功能，可以使用BIOS，那是有限制的，開機後必須輸入密碼才能讓Windows啟動，否則就進不了Windows了。

類似於結束通話鎖，然後改成開機就比較簡單了

有關詳細資訊，請參閱內建的登入密碼設定器。

在文字框屬性 passwordchar 中，將值設定為 *

pword = 0

msgbox "密碼正確，繼續！ "

更改為 pword=""

正確一次後 pword=0

第二次正確的密碼變為 0lading

這就是密碼錯誤的原因。

pword = 0 =>pword = ""

msgbox "密碼正確，繼續！ "

counter = 0

讓我們看看你是否能做到。

房東，我想說以下幾點。 首先，如果你想獲得Windows的系統密碼，這是不現實的，也許你必須破解Microsoft的加密方法。 也許您可以在使用者登入系統之前執行程式並製作鍵盤記錄器，就像您在 Kill Soft 中所做的那樣。

第二，也許房東可以繞過密碼，記得我的朋友鄧登寫過，可以參考他的程式。 三、至於通訊程式的winsock控制，你的程式不應該用。 結束了，祝房東好運！