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

知所行止的日毕一省

已于 2022-07-31 15:56:38 修改

阅读量3.6k

点赞数

分类专栏：方法、思维文章标签： vb webbrowser command byte 手机 url

于 2010-11-01 11:54:00 首次发布

本文链接：https://blog.csdn.net/ty1921/article/details/5979196

版权

方法、思维专栏收录该内容

6 篇文章 0 订阅

订阅专栏

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

获取地址：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