来个图片验证码如何？

roych

图片验证码，是为了在枯燥的登录界面上添加一些趣味。
一般有三种思路：

• 使用Windows API（主要是GDI+）。优点：纯VBA，无需担心兼容性问题。缺点：API函数繁杂，不方便处理。
• 调用互联网API生成。优点：代码简单。缺点：需要联网，调用较多时可能需要购买次数。
• 使用第三方工具生成。优点：代码简单，无需联网和付费。缺点：需要自行搜寻或制作工具。
  

这里就采用第3种方法，用Python制作一个工具，生成随机验证码。
一般用户可能没安装python，所以我这里将它打包成exe文件。于是，VBA代码就简单多了：

1. Private Sub cmdQuit_Click()
   
2.     DoCmd.Quit acQuitSaveAll
   
3. End Sub
   
4. 
   
5. Private Sub imgChapchat_Click()
   
6.     Call refreshImage
   
7. End Sub
   
8. 
   
9. '读取验证码文件，对比输入是否正确。
   
10. Private Sub login_Click()
    
11.     Dim strNumber As String
    
12.     Open CurrentProject.Path & "\chapchat.txt" For Input As #1
    
13.     Line Input #1, strNumber
    
14.     Close #1
    
15.     If Me.txtChapchat = strNumber Then
    
16.         DoCmd.OpenForm "frmMain"
    
17.     Else
    
18.         MsgBox "验证码错误，请重新输入"
    
19.         Call refreshImage
    
20.         Exit Sub
    
21.     End If
    
22. End Sub
    
23. 
    
24. 
    
25. '刷新验证码
    
26. Sub refreshImage()
    
27.     Me.imgChapchat.Picture = ""
    
28.     Shell CurrentProject.Path & "\chapchat.exe"
    
29.     Me.imgChapchat.Picture = CurrentProject.Path & "\chapchat.png"
    
30. End Sub

复制代码

代码很简单。先清空图片，再运行exe文件生成验证码图片和输出验证码文本，再读取验证码文本和输入框文本是否一致。如一致则打开主窗体，否则刷新验证码。这里就不添加注释了。
最后附上python部分代码，供有兴趣的网友修改使用（如报错，请使用pip install PIL安装Image包）。
这里主要是从0-9中随机选择4个数字，然后转为字符串，再使用draw方法生成图片，以及用open方法输出文本文件。

• 由于只是作为测试使用，所以文本文件用了明文，加密其实也可以，只不过要使用可逆加密方式（MD5就算了，RC4可以考虑下）。
• 个人更倾向于输出文件后，使用VBA进行加解密。大致思路是先读取明文文件，进行加密，将加密字符串更新到表中，删除明文文件。读取输入框的字符，进行加密，最后比对表中的字符串是否匹配。这样的话，可以不必顾忌加密方法是否可逆（毕竟不需要解密）。
  

1. from PIL import Image, ImageDraw, ImageFont
   
2. from random import sample
   
3. from pathlib import Path
   
4. import sys
   
5. root_path = Path(sys.argv[0]).parent
   
6. out_png = root_path / 'chapchat.png'
   
7. out_txt = root_path / 'chapchat.txt'
   
8. if __name__ == '__main__':
   
9.     img = Image.new(mode='RGB', size=(100, 100), color='#FFFFFF')
   
10.     draw = ImageDraw.Draw(img)
    
11.     number = ''.join([str(x) for x in sample(range(10), 4)])
    
12.     with open(out_txt, 'w') as f:
    
13.         f.write(number)
    
14.     font_name = r'C:\Windows\Fonts\simhei.ttf'
    
15.     font = ImageFont.truetype(font=font_name, size=24)
    
16.     draw.text(xy=(30, 30), text=number, font=font, fill=(128, 64, 64))
    
17.     img.save(out_png)
    
18.     img.close()

复制代码

由于exe文件进行了打包，因此稍微大一些（23M），个人觉得应该还是在可接受范围内吧。

最后一点：欢迎大家下载测试，如有报错，请上传截图，以便我改进。

huanghyd

大神牛，学习了，

huanghyd

刚下载测试可用。生成图片时间要10秒钟左右，可能是跟我电脑的配置性能有关系。谢谢分享。