VB 如何设置密码,读取ini文件?
来源:百度知道 编辑:UC知道 时间:2024/09/12 15:57:09
例如: 我的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("请输入初始密码", "提示")
我想输入密码就是在我的工程输入.不要在提示框输入.
明白我的意思吗?
如果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("请输入初始密码", "提示")
我想输入密码就是在我的工程输入.不要在提示框输入.
明白我的意思吗?
逻辑混乱,不知道你要作什么
判断文件是否存在
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