学步园

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

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

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

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

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

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

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

验证码识别部分：

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