Question

VB 如何设置读取密码在ini文本中?

例如: 我的F盘放 F:\Password.ini文本输入有789789.密码就是789789
如果F盘没有Password.ini文本的话,就是默认密码下面代码的"123456"
如下代码,请VB高手帮忙改下,谢谢了.

Private Sub Command1_Click()
If Text1.Text = "123" Then
Form2.Show
Unload Me
Else
MsgBox "密码输入错误", vbCritical, "提示"
Text1.Text = ""
End If
End Sub

Private Sub Form_Load()
Command1.Default = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub

Answer 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

Answer 2

Private Sub Command1_Click()
dim pw as string
if dir("F:\Password.ini")="" then
pw="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 Then
Form2.Show
Unload Me
Else
MsgBox "密码输入错误", vbCritical, "提示"
Text1.Text = ""
End If
End Sub

'Password.ini这个内容不能为空。
'