Office中国论坛/Access中国论坛

标题: 随机数字验证码（文字版） [打印本页]

---

作者: roych    时间: 2023-2-20 01:55
标题: 随机数字验证码（文字版）
前面有版友说生成图片较慢，所以这里就改成了文字版，应该会快一些了。
文字版相对简单一些，不需要处理图片。这里仅贴代码和附件。

1. Private Sub cmdQuit_Click()
   
2.     DoCmd.Quit acQuitSaveAll
   
3. End Sub
   
4. 
   
5. 
   
6. Private Sub Form_Load()
   
7.     Me.lblChapchat.Caption = GenerateCode()
   
8. End Sub
   
9. 
   
10. Private Sub lblChapchat_Click()
    
11.     Me.lblChapchat.Caption = GenerateCode()
    
12. End Sub
    
13. 
    
14. '对比输入是否正确。
    
15. Private Sub login_Click()
    
16.     Dim strNumber As String
    
17.     If Me.txtChapchat = Me.lblChapchat.Caption Then
    
18.         DoCmd.OpenForm "frmMain"
    
19.     Else
    
20.         MsgBox "验证码错误，请重新输入"
    
21.         Me.lblChapchat.Caption = GenerateCode()
    
22.         Exit Sub
    
23.     End If
    
24. End Sub
    
25. 
    
26. Private Function GenerateCode() As String
    
27.    Dim Code As String
    
28.    Dim i As Integer
    
29.    
    
30.    '生成随机数字字符串
    
31.    For i = 1 To 6
    
32.       Code = Code & Int((9 * Rnd) + 1)
    
33.    Next i
    
34. 
    
35.    '在某个控件中显示验证码
    
36.      GenerateCode = Code
    
37. End Function

复制代码

中间省略了打开文件对比文字，以及生成图片等python代码了。如版友有不明之处，再回帖。
[attach]64449[/attach]

---

作者: huanghyd    时间: 2023-2-23 14:11
学习了，，

---

作者: wuwu200222    时间: 2023-3-1 10:18
学习

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3