VB识别验证码问题

1.调用API扫描指定部位像素。
2.和数据库对比！
3.判断相似程度。
其中2 可以进行一些处理后再对比（如二位化，把非背景色和背景色两个值列出方阵）
如：1 扫描后你会得到：
001100
111100
001100
001100
001100
001100
001100
111111
000000
这样一个阵列他的总数 和为22 ，当扫描到一个阵列的几列数字和为22 就有可能是1 了，只是有可能，当然可以进行跟详细的判断

识别别人的？
别人的就难了。。。。

如果是自己出给用户看的

'例如
':
'添加一个文本框?一个按钮和picture1图片框
Dim vcd As String, fo As Long
Const lg As Long = 5
Sub form_load()
Picture1.AutoRedraw = True
Randomize Timer
RNDV
End Sub
Sub RNDV()
Dim tmp As Long, tmps As String
vcd = Space(lg)
'vcd = ""
For fo = 1 To lg
tmp = Rnd * 36
tmps = Chr(IIf(tmp > 26, tmp + 21, tmp + Asc("a") - 1))
Mid$(vcd, fo, 1) = tmps
'vcd = vcd & Chr(IIf(tmp > 26, tmp + 21, tmp + Asc("a") - 1))
Mid$(vcd, fo, 1) = IIf(Rnd * 2 < 1, tmps, UCase(tmps)) 'IIf(Rnd * 2 < 1, Mid(vcd, fo, 1)