[技术交流] 【院刊】-【201507期】原始简单验证码识别法 [复制链接]

谢谢分享 学习了

认真学习

Dim tzm(9)
tzm(0) = ""
tzm(1) = ""
tzm(2) = "00111100011101101110101100000011000001100000110000011100001100000111000011111111"
tzm(3) = "00000000111110001000111100000111100011000011100001001100000001110000011110001100"
tzm(4) = "00000000000011000001110000111101011011001110110010001100111111110000111100001100"
tzm(5) = "11111010010000010100001101110110100110000000110000001100000111001101100111110011"
tzm(6) = "01111011110011111000011110000011101110111100110010000110100001111100110101111000"
tzm(7) = "00000000111111110000001100000011101001110000110100011001001100010110000011010000"
tzm(8) = "00000000011111001100110110000110110011000111100011001100100001101000011011001101"
tzm(9) = "00111100011001101100001111010011011001110011101100000011010000110110011000111100"
Dim Ux, Uy, Sx, Sy, Ix, Iy
ReDim All(31, 9)
Ux = 167 : Uy = 488 : Sy = Uy : Iy = 0
For 10
Sx = Ux : Ix = 0
For 32
All(Ix, Iy) = GetPixelColor(Sx, Sy)
Sx = Sx + 1 : Ix = Ix + 1
Next
Sy = Sy + 1 : Iy = Iy + 1
Next
Redim A(9), dz(7, 9)
Ux = 0 : Uy = 0
For 4
Sy = Uy : Iy = 0
For 10
Sx = Ux : Ix = 0
For 8
Call Plugin.Color.ColorToRGB(All(Sx, Sy), R, G, B)
If (R + G + B) / 3 > 190 Then
dz(Ix, Iy) = "0"
Else
dz(Ix, Iy) = "1"
End If
Sx = Sx + 1 : Ix = Ix + 1
Next
Sy = Sy + 1 : Iy = Iy + 1
Next
Dim SamePoint
Ix = 0 : Iy = 0 : n = 2 : m = 0 : A(0) = - 1 : A(1) = - 1
For 8
Iy = 0 : m = 0 : SamePoint = 0
For 10
Ix = 0
For 8
If dz(Ix, Iy) = mid(tzm(n), m + 1, 1) Then
SamePoint = SamePoint + 1
End If
Ix = Ix + 1 : m = m + 1
Next
Iy = Iy + 1
Next
A(n) = Clng(SamePoint & n)
n = n + 1
Next
Call 从小到大排序
排序 = Right(A(9), 1)
组 = 组 & 排序
Ux = Ux + 8
Next
MessageBox 组
Sub 从小到大排序()
For i = 2 To 8
If A(i + 1) < A(i) Then
c = A(i + 1)
A(i + 1) = A(i)
A(i) = c
If i > 2 Then
i = i - 2
End If
End If
Next
End Sub

黑白机

zzzzzzzzzzzzzzzzzzzzzzzzzzzzz

以前用91很好的，现在都不知道怎么玩了。

dskjdklasdaklsjdksad

学无止境谢谢楼主

学习了，试试！

过来学习

看看

刊】-【201507期】原始简单验证码识别法修改

原始简单验证码识别

XIEXIE

请各位学员到场学习