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,700,400,.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) = "00002222211100022222222221011100000000111000000000011000000000011100000000001110000000111102222222222100" ty(1) = "00000000000010000000000001010000000022222222222222211022222111001110000000000111000000000010000000000000" ty(2) = "00000000001110100000011101110000001100110000001110011000001100001100000110000222221110000022222110000000" ty(3) = "00000000000110100001000001110000100000111000010000011000001000001100002222222222111102222202222200000000" ty(4) = "00000001110000000001111000000001101100000000110110000000110011000001110002222222222222222222222222111000" ty(5) = "00111100000222221110000001110001000000110000100000111000011000110100000222220010000022222001000000111000" ty(6) = "00002222211100011001000001011101100000101110110000011100010000001100001000001110000110001101000002222210" ty(7) = "00000000000011000000000111100000000011110000002222201000001111000100001100000010111100000002222200000000" ty(8) = "00111002222210222220111011110001110000110000010000011000001000001100001110011110000111002222222222222220" ty(9) = "00001100000110222221000001011100110000111000001000011000000100011100000222221010000022222102222211011100" '222221111 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),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,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,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,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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!