VB登录程序(附加随时验证码)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB登录程序(附加随时验证码)审计署计算机中级培训第一周,城厢区审计局陈剑芳
Private Sub Command1_Click()
Dim flag As Boolean
Static a As Integer
flag = False
If Text1.Text = "" Then
MsgBox "请输入密码!", vbCritical, "提示"
Else
Select Case Combo1.Text
Case "张浩"
If Text1.Text = "111" Then
Print "1"
flag = True
End If
Case "陈昕"
If Text1.Text = "222" Then
flag = True
End If
Case "刘浩博"
If Text1.Text = "333" Then
flag = True
End If
Case "董远超"
If Text1.Text = "444" Then
flag = True
End If
Case "孙晓"
If Text1.Text = "555" Then
flag = True
End If
Case "罗志西"
If Text1.Text = "666" Then
flag = True
End If
End Select
If flag = True Then
x = Rnd(2) * 10000000 \ 1
Text2.Text = CStr(x)
'登录系统.Hide
Call command_Click
Else
a = a + 1
MsgBox "输入密码错误" & a & "次,超过三次关闭!", vbCritical Text1.Text = ""
If a = 3 Then
登录系统.Hide
End If
End If
End If
End Sub
Private Sub command_Click()
y = CSng(InputBox("密码正确,请输入验证码", "验证码程序"))
If y = x Then
MsgBox "验证通过!"
登录系统.Hide
Form1.Show
Else
Text3.Text = ""
MsgBox "验证码错误,请单击登录键重新输入验证码!"
End If
x = Rnd(2) * 10000000 \ 1
Text2.Text = CStr(x)
End Sub