Question

我想用VB做个帐号和密码输入框?

用VB做个帐号密码输入框,但怎么才能做到密码和帐号只能登录5次,登录5次后密码就变成了错误了,也就是说不能登录了
永远都不能登录了,永远密码都是错误的

Answer 1

这个很多思路，看你的要求程序打开就能试5错误，还是锁定程序一段时间又能能重试5次。

一般都是有地方存储客户输入错误的最多次数，然后将此次录入错误的次数进行比较，如果达到错误限制提示客户不能登录。

存储最多输入5次错误限制，可以放在程序目录下的txt文件或者注册表或数据库中，在程序启动时读取限制次数。

锁定当天或一段时间不能登录，记录最后错误的时间，比较当前登录时间和最后错误时间，如果在控制范围内，还是提示客户不能登录，如果超过控制要求时间可以正常登录。

如果是永远，是这台电脑还是这个帐号？如果是帐号就用数据库记录控制错误次数，如果是电脑，第一次登录记录电脑mac地址，用数据记录控制错误限制。

Answer 2

还是我来吧~代码如下,初始化已经做好了哦,直接粘贴即可实现:
您只需在Form中添加以下控件即可:
2个Label控件,2个TextBox控件,2个CommandButton控件.

Dim NCount As Integer

Private Sub Command1_Click()
If NCount > 4 Then
SaveSetting "VB", "Settings", "NCount", NCount
MsgBox "超过输入次数,无法登录系统!", , Me.Caption
Exit Sub
End If
If Text1.Text = "123" And Text2.Text = "123" Then
MsgBox "登录成功!", , Me.Caption
Else
MsgBox "账号或密码错误,请重新输入!", , Me.Caption
NCount = NCount + 1
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Label1.Caption = "账号:"
Label2.Caption = "密码:"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "确定"
Command2.Caption = "退出"
NCount = GetSetting("VB", "Settings", "NCount")
End Sub

Answer 3

Dim i As Integer

Private Sub Command1_Click() '登陆按钮.
i = i + 1
If i = 5 Then
MsgBox "错误5次了，强制退出。"
Else
'放入密码正确执行的命令.
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub

Answer 4

好长时间没翻vb书了 忘了 应该有个<=5之类的