Question

急求一个VB密码输入的验证程序编写代码！

对输入的账号和密码验证规则如下：1.若用户名不正确则退出系统2.若用户名正确则判断密码是否正确3.若密码不正确，统计输入次数，当输入超过3次时退出系统

Answer 1

刚刚写过了类似的代码 ，算了 再写下

Private Sub Command1_Click()

Static i As Integer    '说明下，假设 用户名、密码 分别是 yutian8802和 123456

If i > 2 Then

MsgBox "您已登录三次了。。。程序将结束！"

End

Else

If Text1.Text = "yutian8802" Then

  If Text2.Text = "123456" Then

  MsgBox "登陆成功"

  Else

  MsgBox "密码错，请重新输入！"

  End If

Else

 MsgBox "用户名错，请重新输入！"

 End If

 

 i = i + 1

End If

End Sub

   测试了 没问题了 你试试！有什么问题 一起探讨~

Answer 2

我写过类似的程序
其实验证密码只要用一个“IF 输入的密码=正确的密码 THEN ”就解决了。
关键是怎么保存密码和如何保存登录人名（如果是网络应用程序还要记录IP地址），因为如果密码错三次就不能再登录了，那么重启程序后是不是会重新计数呢？要是重启也不能再重新登录，那就要保存输入密码错误的用户名和登录次数。
另一个问题是如何保存密码和用户名的问题，如果直接放在某个数据库或文件中，用很多方法都可以调出文件读出用户名和密码。所以保存的文件必须是经过加密的，不管用什么方法，打开那个文件是读不出密码和用户名的。因为密码和用户名根本就不在文件里，而是以某种方法计算出来的。这样的加密方法，就连程序的编写者如果忘了密码都无法进入。只能在原程序代码中通过逐语句高度来查找出来。没有原代码的人无法破解。
我的方法（大致意思）是：
以国标汉字编码为基础进行一种变换得到另一套编码，如果是中文名，就用这套编码对输入的汉字进行转换，然后与一个随机数作为进行某种运算，得到一个编码。保存的用户名文件中存放的是那个随机数。解码是就以该随机数进行逆变换就可以了。
对于英文字符也一样，将ASCII码进行某种换算后，再与随机数进行变换编码，任何人想从电脑中保存的用户登录密码文件中找到密码都是不可能的。因为根本无规律可循。
至于登录的次数就将次数附加到随机数的后面当随机数的一部份就行了，不过是多一位小数而已。比如随机数取小数点后的7位，第八位就是密码输错的次数。

Answer 3

Dim j As Integer
Private Sub CommandButton1_Click()
Dim i As Integer
Dim s1 As String
Dim s2 As String
If Text1.Text <> "" Then
s1 = Text1.Text
End If
If Text2.Text <> "" Then
s2 = Text2.Text
End If
j = j + 1
If j > 2 Then
MsgBox "输入次数大于3 退出"
End If
End If
If s1 = "123" And s2 = "000" Then
MsgBox "登录成功"
End If

If s1 <> "123" Or s2 <> "000" Then
MsgBox "帐号或密码不正确"
End If

End Sub