Question

vb 设置 修改密码

要求：
第一次打开程序时要求设置密码，以后打开程序要求输入密码
能修改密码，要求旧密码验证
能保存密码
密码限制只能1-9 A-Z

不需要用户名

最好不要用数据库的

Answer 1

Dim key As String, code As String, i As Integer
key = "123asd" '这个你随便设置，就是你需要的密码
code = InputBox("请输入密码")
i = Len(code)
For a = 1 To i
x = Mid(code, a, 1)
If Asc(x) > 123 Then MsgBox ("只能输入数字字母")
Next

追问

嗯。。还有修改密码的功能呢。。

Answer 2

密码保存在文本文件中或者注册表中就可以了

追问

求代码。。谢谢，或者留下联系方式，直接交流

Answer 3

他写好了，，能不能给我分享一下。。谢谢了

追问

行。。

追答

加我QQ 502076581 。。我也是初學VB。。

Answer 4

我帮你写一个吧，呵呵

追问

感谢。。效果好的话，追加分数！

追答

在form窗体中，增加一个按钮
Const AppName = "PassSet"
Const secName = "PassWords"
Const KeyN = "PassWords"

Private Sub cmdCommand1_Click()
Dim tmpS As String
Dim getS As String
getS = GetSetting(AppName, secName, KeyN)
Err4:
tmpS = InputBox("请输入旧密码：", "修改密码")
If getS = tmpS Then
Err3:
tmpS = InputBox("请输入新密码：", "修改密码")
If Not AnsyPass(tmpS) Then
MsgBox "密码设置错误！格式：1-9 A-Z 之间的字符串组合 "
GoTo Err3:
Else
SaveSetting AppName, secName, KeyN, tmpS
MsgBox "密码修改成功！ "
End If
Else
MsgBox "旧密码输入错误！请重新输入"
GoTo Err4

End If
End Sub

Private Sub Form_Load()
Dim getS As String
Dim tmpS As String

getS = GetSetting(AppName, secName, KeyN)
If Trim(getS) = vbNullString Then
Err1:
tmpS = InputBox("系统初次使用，请设置密码：", "设置密码")
If Not AnsyPass(tmpS) Then MsgBox "密码设置错误！格式：1-9 A-Z 之间的字符串组合 ": GoTo Err1:
SaveSetting AppName, secName, KeyN, tmpS
Else
Err2:
tmpS = InputBox("登陆系统，请输入密码：", "系统登陆")
If tmpS = getS Then
MsgBox "登陆系统成功！使用愉快...."
Else
MsgBox "密码验证错误！请重新数据密码"
GoTo Err2
End If
End If
End Sub

Private Function AnsyPass(ByVal S As String) As Boolean
Dim i As Long
AnsyPass = True
For i = 1 To Len(S) - 1
If Not ((Asc(Mid$(S, i, 1)) >= Asc(1) And Asc(Mid$(S, i, 1)) = Asc("A") And Asc(Mid$(S, i, 1)) <= Asc("Z"))) Then
AnsyPass = False
Exit For
End If
Next
End Function

追问

Private Function AnsyPass(ByVal S As String) As Boolean
Dim i As Long
AnsyPass = True
For i = 1 To Len(S) - 1
If Not ((Asc(Mid$(S, i, 1)) >= Asc(1) And Asc(Mid$(S, i, 1)) = Asc("A") And Asc(Mid$(S, i, 1)) <= Asc("Z"))) Then
AnsyPass = False
Exit For
End If
Next
End Function

请问这段代码写在哪

追答

都放在窗体里面 ，修正一个BUG，代码更新
Const AppName = "PassSet"
Const secName = "PassWords"
Const KeyN = "PassWords"

Private Sub cmdCommand1_Click()
Dim tmpS As String
Dim getS As String
getS = GetSetting(AppName, secName, KeyN)
Err4:
tmpS = InputBox("请输入旧密码：", "修改密码")
If getS = tmpS Then
Err3:
tmpS = InputBox("请输入新密码：", "修改密码")
If tmpS = vbNullString Then GoTo Err3
If Not AnsyPass(tmpS) Then
MsgBox "密码设置错误！格式：1-9 A-Z 之间的字符串组合 "
GoTo Err3:
Else
SaveSetting AppName, secName, KeyN, tmpS
MsgBox "密码修改成功！ "
End If
Else
MsgBox "旧密码输入错误！请重新输入"
GoTo Err4

End If
End Sub

Private Sub Form_Load()
Dim getS As String
Dim tmpS As String

getS = GetSetting(AppName, secName, KeyN)
If Trim(getS) = vbNullString Then
Err1:
tmpS = InputBox("系统初次使用，请设置密码：", "设置密码")
If Not AnsyPass(tmpS) Then MsgBox "密码设置错误！格式：1-9 A-Z 之间的字符串组合 ": GoTo Err1:
SaveSetting AppName, secName, KeyN, tmpS
Else
Err2:
tmpS = InputBox("登陆系统，请输入密码：", "系统登陆")
If tmpS = getS Then
MsgBox "登陆系统成功！使用愉快...."
Else
MsgBox "密码验证错误！请重新数据密码"
GoTo Err2
End If
End If
End Sub

Private Function AnsyPass(ByVal S As String) As Boolean
Dim i As Long
AnsyPass = True
For i = 1 To Len(S) - 1
If Not ((Asc(Mid$(S, i, 1)) >= Asc(1) And Asc(Mid$(S, i, 1)) = Asc("A") And Asc(Mid$(S, i, 1)) <= Asc("Z"))) Then
AnsyPass = False
Exit For
End If
Next
End Function

追问

发现一个问题。。输入密码那个框，点取消也是密码错误

话说还有个问题，修改密码还要有小写的a-z

追答

OK inputbox不好控制
我帮你再改下