VB的验证码识别与自动充值部分

基本情况：中国联通官网的验证码，固定位置，固定大小，无干扰

获取地址：http://ecard.10010.com/getImage.jsp

基本思路是为每个数字建模，然后逐像素点对比，当匹配度最高的数字即为结果，如果识别错误则再次获取后识别。

程序采用WebBrowser1+自动填表+自动点击的方式完成，部分代码如下：

'################################处理自动填表################################ If URL = "http://pay.10010.com/payFeeOnline/payFeeOnlineInit.action" And Form1.Tag = "0" Then '获取验证码图像，开始解析 Command1.Caption = "正在获取验证码，请稍侯..." Dim Buff() As Byte Inet1.URL = "http://ecard.10010.com/getImage.jsp" Buff() = Inet1.OpenURL(, icByteArray) If UBound(Buff()) < 100 Then GoTo error1 With Picture1 .Picture = PictureFromBits(Buff()) .PaintPicture .Picture, 0, 0, 700, 400, 0, 0, .ScaleWidth, .ScaleHeight End With DoEvents '识别验证码 Call GetCode Command1.Caption = "订单生成中..." tyty = Split(Get_Data, "*") '充值号码，每次一个 If tyty(2) <> "1" Then tyty(1) = CStr(CSng(tyty(1)) * CSng(tyty(2))) '金额=金额*数量 WebBrowser1.Document.All("payFeeOnlineInfo.productNO").Value = tyty(0) WebBrowser1.Document.All("payFeeOnlineInfo.productNOAgain").Value = tyty(0) WebBrowser1.Document.All("payFeeOnlineInfo.payFee").Value = tyty(1) WebBrowser1.Document.All("payFeeOnlineInfo.checkCode").Value = Text1.Text '提交表单 WebBrowser1.Document.All("submit0").Click Command1.Caption = "跳向确认订单！" Form1.Tag = "1" Exit Sub error1: Form1.Tag = "0" End If

以上是登陆到联通自动充值页面，填写手机号码，充值金额和验证码之后，生成订单的一个过程。

之后是订单确认，然后转网银支付。

验证码识别部分：

Private Sub GetCode() '识别========================= Command1.Caption = "正在识别验证码..." t1 = "" t2 = "" t3 = "" t4 = "" Dim ty(9) ty(0) = "00001111111100011111111111011100000000111000000000011000000000011100000000001110000000111101111111111100" ty(1) = "00000000000010000000000001010000000011111111111111111011111111001110000000000111000000000010000000000000" ty(2) = "00000000001110100000011101110000001100110000001110011000001100001100000110000111111110000011111110000000" ty(3) = "00000000000110100001000001110000100000111000010000011000001000001100001111111111111101111101111100000000" ty(4) = "00000001110000000001111000000001101100000000110110000000110011000001110001111111111111111111111111111000" ty(5) = "00111100000111111110000001110001000000110000100000111000011000110100000111110010000011111001000000111000" ty(6) = "00001111111100011001000001011101100000101110110000011100010000001100001000001110000110001101000001111110" ty(7) = "00000000000011000000000111100000000011110000001111101000001111000100001100000010111100000001111100000000" ty(8) = "00111001111110111110111011110001110000110000010000011000001000001100001110011110000111001111111111111110" ty(9) = "00001100000110111111000001011100110000111000001000011000000100011100000111111010000011111101111111011100" '111111111 Dim flag(10) For i = 4 To 11 For j = 8 To 20 If Picture1.Point(i, j) < &H200000 Then t1 = t1 & "1" Else t1 = t1 & "0" End If Next j Next i Text1.Tag = 0 For M = 0 To 9 For N = 0 To Len(t1) If Mid(t1, N + 1, 1) = Mid(ty(M), N + 1, 1) Then flag(M) = flag(M) + 1 End If Next N If flag(M) > CSng(Text1.Tag) Then Text1.Tag = flag(M) ty1 = M End If Next M '2222222222222s For i = 14 To 21 For j = 8 To 20 If Picture1.Point(i, j) < &H200000 Then t2 = t2 & "1" Else t2 = t2 & "0" End If Next j Next i Text1.Tag = 0 For M = 0 To 9 flag(M) = 0 For N = 0 To Len(t2) If Mid(t2, N + 1, 1) = Mid(ty(M), N + 1, 1) Then flag(M) = flag(M) + 1 End If Next N If flag(M) > CSng(Text1.Tag) Then Text1.Tag = flag(M) ty2 = M End If Next M '33333333333 For i = 24 To 31 For j = 8 To 20 If Picture1.Point(i, j) < &H200000 Then t3 = t3 & "1" Else t3 = t3 & "0" End If Next j Next i Text1.Tag = 0 For M = 0 To 9 flag(M) = 0 For N = 0 To Len(t3) If Mid(t3, N + 1, 1) = Mid(ty(M), N + 1, 1) Then flag(M) = flag(M) + 1 End If Next N If flag(M) > CSng(Text1.Tag) Then Text1.Tag = flag(M) ty3 = M End If Next M '444444 For i = 34 To 41 For j = 8 To 20 If Picture1.Point(i, j) < &H200000 Then t4 = t4 & "1" Else t4 = t4 & "0" End If Next j Next i Text1.Tag = 0 For M = 0 To 9 flag(M) = 0 For N = 0 To Len(t4) If Mid(t4, N + 1, 1) = Mid(ty(M), N + 1, 1) Then flag(M) = flag(M) + 1 End If Next N If flag(M) > CSng(Text1.Tag) Then Text1.Tag = flag(M) ty4 = M End If Next M Text1.Text = ty1 & ty2 & ty3 & ty4 End Sub