用VB编程制作简单易学的验证码

简单易学的用VB制作验证码，不含有api函数。

只需掌握简单的VB知识就可学会制作。

第一步，建立一个新的标准exe文件。

然后在form1上拉出一个picture框。

用于输出验证码。

第二步，建立一个commmand控件，用于进行验证码的获取和刷新
第三步，创建一个textbox，用于输入验证验证码的载入
第四步，建立command2，用于验证所输入验证验证码是否正确
第五步，进行代码编写
Dim k(1 To 4) As Long
Private Sub Command1_Click()
Command1.Caption = "刷新验证码"
Picture1.Cls
Randomize
For j = 1 To 4
l = 200 * Rnd
o = 200 * Rnd
p = 200 * Rnd
Picture1.ForeColor = RGB(l, o, p)
Picture1.FontSize = 30 + Int(Rnd * 24)
a = Int(Rnd * 2)
b = Int(Rnd * 2)
c = Int(Rn
d * 2)
If a = 1 Then
Picture1.FontBold = True
Else
Picture1.FontBold = False
End If
If b = 1 Then
Picture1.FontStrikethru = True
Else
Picture1.FontStrikethru = False
End If
If c = 1 Then
Picture1.FontItalic = True
Else
Picture1.FontItalic = False
End If
Picture1.CurrentX = -0.35 * j + 0.7
Picture1.CurrentY = 1
g = Int(Rnd * 3)
Select Case g
Case 1
k(j) = (Int(Rnd * 10) + 48)
Picture1.Print Chr(k(j))
Case 0
k(j) = (Int(Rnd * 24) + 97)
Picture1.Print Chr(k(j))
Case 2
k(j) = (Int(Rnd * 24) + 65)
Picture1.Print Chr(k(j))
End Select
Next j
For i = 1 To 1000
Picture1.DrawWidth = 2
x = Rnd * 2 - 1
y = Rnd * 2 - 1
r = 135 * Rnd + 100
b = 135 * Rnd + 100
g = 135 * Rnd + 100
Picture1.PSet (x, y), RGB(r, b, g)
Next i
End Sub
Private Sub Command2_Click()
If Len(Text1.Text) <> 4 Then
mystr = MsgBox("验证码错误", 1 + 48, "提示")
Else
c1 = Mid(Text1.Text, 1, 1)
c2 = Mid(Text1.Text, 2, 1)
c3 = Mid(Text1.Text, 3, 1)
c4 = Mid(Text1.Text, 4, 1)
If (Chr(k(4)) = LCase(c1) Or Chr(k(4)) = UCase(c1)) And (Chr(k(3)) = UCase(c2) Or Chr(k(3)) = LCase(c2)) And (Chr(k(2)) = UCase(c3) Or Chr(k(2)) = LCase(c3)) And (Chr(k(1)) = UCase(c4) Or Chr(k(1)) = LCase(c4)) Then
mystr = MsgBox("验证码正确", 1 + 64, "提示")
Else
mystr = MsgBox("验证码错误", 1 + 48, "提示")
End If
End If
End Sub
Private Sub Form_Load()
Picture1.Scale (-1, 1)-(1, -1)
End Sub
第六步，已经完成编写。

直接运行即可。

可以作为一个模板放在其他软件中。

当然根据代码可以看到，验证码中的字母是不区分大小写的
欢迎加入群VB爱好者扣扣群：243205809（关注更多发布）欢迎与我们一起交流、学习、成长！。