1樓：匿名使用者
應該這下面合適你的要求了。
private sub command1_click()
if dir("f:\password.ini") <> "" then
open "f:\password.ini" for input as 1
line input #1, mima
close #1
if text1.text = mima then
form2.show
unload me
else
msgbox "密碼輸入錯誤", vbcritical, "提示"
text1.setfocus
end if
else
if text1.text = "123456" then
form2.show
unload me
else
msgbox "初始密碼輸入錯誤", vbcritical, "提示"
text1.setfocus
end if
end sub
private sub form_load()
command1.default = true
if dir("f:\password.ini") = "" then
msgbox "請輸入初始密碼", vbokonly, "提示"
text1.setfocus
endif
end sub
2樓：傻傻的瘋豬
private sub command1_click()dim pw as string
if dir("f:\password.ini")="" thenpw="123456" '判斷f:\password.ini是否存在，不存在密碼就是123456
else
open "f:\password.ini" for input as #1
line input #1,pw
close #1
end if
if text1.text =pw thenform2.show
unload me
else
msgbox "密碼輸入錯誤", vbcritical, "提示"
text1.text = ""
end if
end sub
'password.ini這個內容不能為空。'
p如何設定開機密碼，XP如何設定開機密碼
1 點選開始選單找到控制面板選項 點選開啟控制面板2 在控制面板介面 找到使用者賬號選項點選開啟3 然後選擇你要建立密碼的使用者 點選即可 4 可以看到這裡有一個建立密碼選項 點選進入建立密碼介面5 這裡需要兩次輸入相同的密碼 建議輸入密碼提示方便之後忘記密碼 然後點選建立按鈕 6 這裡建議將其設定...
vb選項卡控制元件使用問題，VB如何設定多個選項卡
別見怪，熱心是我 新建兩個容器，如frame picturebox，把按鈕分開放置 第一頁選項卡的部件放入frame1，第二頁選項卡的部件放入frame2 設定每頁選項卡的key 右擊 properties tabs key設定每一頁的key，然後切換到第二頁，點右箭頭 也設定一個key 在屬性視窗...
設定密碼時是否可以設定空格字元在密碼裡
通常賬號密碼是不允許使用空格與特殊字元的。使用者在設定相關密碼的時候，可以選擇資料與字母的組合，字母可以嘗試變換大小寫。而且使用者儘量所有的相關賬號儘量不要使用同一密碼，可以分別設定不同的密碼。日常使用中，要分辨好官網與釣魚 謹防賬號密碼被不法分子套取。空格是不能作為密碼使用的，一般情況下，密碼無非...