Question

VB 如何设置密码,读取ini文件?

例如: 我的F盘放 F:\Password.ini文本输入有789789.密码就是789789
如果F盘有Password.ini的话运行程序就不弹出下面代码的"请输入初始密码"
MsgBox "请输入初始密码", vbOKOnly, "提示"
如果F盘没有Password.ini.运行程序时就会弹出"请输入初始密码"
默认密码就是下面代码的"123456"

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

End If
End Sub

Private Sub Form_Load()
MsgBox "请输入初始密码", vbOKOnly, "提示"
Command1.Default = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub
大哥在不在.帮改下哦
输入初始密码我这是想要一种提示
想这种.MsgBox "请输入初始密码", vbOKOnly, "提示"
就不是要你的.mima = InputBox("请输入初始密码", "提示")
我想输入密码就是在我的工程输入.不要在提示框输入.
明白我的意思吗?

Answer 1

逻辑混乱，不知道你要作什么

判断文件是否存在
if dir("F:\Password.ini")<>"" then

这个例子你看看，是不是你需要的
改了一下，你看看

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

你找你对应的路径找你的文件，用选择语句做判断来执行！！

Answer 3

逻辑混乱，

判断文件是否存在
if dir("F:\Password.ini")<>"" then
MsgBox "文件存在",, "提示"
else
MsgBox "文件不存在", , "提示"
endif