vb自动识别网页验证码源码

自动识别网页验证码 (2009-05-18 15:57:41)转载标签： 编程vbjava实例网页邮箱搏客it
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long
'Private Type BITMAP:bmType As Long: bmWidth As Long:bmHeight As Long:bmWidthBytes As Long:bmPlanes As Integer:bmBitsPixel As Integer:bmBits As Long:end Type
Const COR = 148
Const rk = 7 '字宽高
Const rg = 11
Const Zg = 4 '几个字符
Public Fg As Long
Public Fb As Long 'Public a(0 To rk * 2 * Zg, 0 To 19) As shuju
Private bB(0 To Zg - 1, 0 To rk, 0 To rg) As Boolean '字框
Private Sub Command1_Click()
i = CInt(Rnd() * 8)
Picture1.Picture = LoadPicture(App.Path & "\" & Trim(Str(i)) & ".bmp")
Dim ok As Boolean 'Dim bm As BITMAP
Dim doc(3), dot As Long ''GetObject Picture1.Picture.Handle, Len(bm), bm
For gg = 0 To Zg - 1 'Picture2.Height = Picture1.Height: Picture2.Width = Picture1.Width
For gao = 0 To rg
For ku = 0 To rk
kuan = 6 + ku + 13 * gg 'To (gg + 1) * (6 + rk) - 1 'bm.bmWidth - 1
bB(gg, ku, gao) = FR(GetPixel(Picture1.hdc, kuan, gao + 4)) 'dot = 'bRed = Red(dot)
Next ku
Next gao
Next gg '上边对整个图片初步处理,下边分块处理
Dim jieguo As String
jieguo = ""
For i = 1 To Zg
If is2(i - 1) Then
jieguo = jieguo + Trim(Str(2))
ElseIf is0(i - 1) Then
jieguo = jieguo + Trim(Str(0))
ElseIf is1(i - 1) Then
jieguo = jieguo + Trim(Str(1))
ElseIf is4(i - 1) Then
jieguo = jieguo + Trim(Str(4))
ElseIf is3(i - 1) Then
jieguo = jieguo + Trim(Str(3))
ElseIf is5(i - 1) Then
jieguo = jieguo + Trim(Str(5))
ElseIf is6(i - 1) Then
jieguo = jieguo + Trim(Str(6))
ElseIf is7(i - 1) Then
jieguo = jieguo + Trim(Str(7))
ElseIf is9(i - 1) Then
jieguo = jieguo + Trim(Str(9))
ElseIf is8(i - 1) Then
jieguo = jieguo + Trim(Str(8))
Else: jieguo = jieguo + Trim(Str(i))
End If 'Picture2.PSet (kuan + 10 * i - 10, gao), (1 - b(kuan, gao).dot) * 16777215:'SavePicture Picture2.Image, "c:\me2.bmp" ''输出结果第二图 '''''Label2.Caption = jieguo
Next
La.Caption = jieguo
End Sub
Public Function FR(ByVal mlColor As Long) As Boolean 'fed = mlColor And &HFF:Fg = (mlColor \ &H100) And &HFF:Fb = (mlColor \ &H10000) And &HFF '108
FR = 1
If (mlColor And &HFF) > COR Or ((mlColor \ &H100) And &HFF) > COR Or ((mlColor \ &H10000) And &HFF) > COR Then FR = 0
End Function
Function is0(i) As Boolean
is0 = True
For gao = 2 To 9: For kuan = 3 To 5 '长3*7竖框
If bB(i, kuan, gao) Then: is0 = False: Exit Function '怎么不跳转呀
Next: Next
End Function
Public Function is1(i) As Boolean
k1 = 1
For gao = 0 To rk: For kuan = 3 To 4 '长2*11竖条
If bB(i, kuan, gao) = False Then: k1 = 0: GoTo ere
Next: Next
ere: is1 = k1
End Function
Public Function is2(i) As Boolean
k1 = 1: k2 = 1 ''''''
For gao = 3 To 5: For kuan = 0 To 4 '3*5空
If bB(i, kuan, gao) Then k1 = 0: GoTo ere

Next: Next
For gao = 10 To 11: For kuan = 1 To 6 '尾实
If bB(i, kuan, gao) = False Then k2 = 0: GoTo ere
Next: Next
ere: is2 = k1 And k2
End Function
Public Function is3(i) As Boolean
k1 = 1: k2 = 1 '''''''''''**
For gao = 2 To 3: For kuan = 1 To 3 '上部4*2的空
If bB(i, kuan, gao) Then k1 = 0: GoTo ere
Next: Next
For gao = 0 To 10 ': 1长竖
If bB(i, 5, gao) = False Then k2 = 0: GoTo ere
Next
ere: is3 = k1 And k2
End Function
Public Function is4(i) As Boolean
k1 = 1: k2 = 1 '''''''''''****
For gao = 0 To 11: For kuan = 5 To 6 '长竖2*11的实
If bB(i, kuan, gao) = False Then k1 = 0: GoTo ere '
Next: Next
For kuan = 0 To 7 ': 1长横
If bB(i, kuan, 8) = False Then k2 = 0: GoTo ere '
Next
ere: is4 = k1 And k2
End Function
Public Function is5(i) As Boolean
k1 = 1: k2 = 1 '''''''''''****
For gao = 0 To 1: For kuan = 3 To 6 '长竖4*2的实
If bB(i, kuan, gao) = False Then k1 = 0: GoTo ere ' k2 = k2 And k1:
Next: Next
For kuan = 1 To 5 ': 1长竖
If bB(i, kuan, 4) = False Then k2 = 0: GoTo ere
Next
ere: is5 = k1 And k2
End Function
Public Function is6(i) As Boolean
k1 = 1: k2 = 1 '''''''''''*****************
For gao = 6 To 9: For kuan = 2 To 5 '长竖4*3的空
If bB(i, kuan, gao) Then k1 = 0: GoTo ere ' k2 = k2 And k1:
Next: Next
For kuan = 2 To 4 ': 1长竖
If bB(i, kuan, 11) = False Then k2 = 0: GoTo ere
Next
ere: is6 = k1 And k2
End Function
Public Function is7(i) As Boolean
k1 = 1: k2 = 1 '''''''''''*****************
For gao = 0 To 1: For kuan = 2 To 7 '长竖2*8的实
If bB(i, kuan, gao) = False Then k1 = 0: GoTo ere '
Next: Next
For gao = 3 To 11: For kuan = 0 To 2 '长竖2*8的实
If bB(i, kuan, 8) Then k2 = 0: GoTo ere '
Next: Next
ere: is7 = k1 And k2
End Function
Public Function is8(i) As Boolean '用横条来识别8，8中至少有长度为3的横条3个，'5也有可能有，但是5在前面，已经识别。9也可能有，所以要把先识别9
k1 = 1: k2 = 1
For gao = 0 To 6 Step 6: For kuan = 2 To 5
If bB(i, kuan, gao) = False Then k1 = 0: GoTo ere '
Next: Next
For kuan = 2 To 5 '长横实3
If bB(i, kuan, 11) = False Then k2 = 0: GoTo ere '
Next
ere: is8 = k1 And k2
End Function
Public Function is9(i) As Boolean
k1 = 1: k2 = 1
For gao = 2 To 5: For kuan = 2 To 4
If bB(i, kuan, gao) Then k1 = 0: GoTo ere '
Next: Next
For kuan = 4 To 5 '长横实3
If bB(i, kuan, 7) = False Then k2 = 0: GoTo ere '
Next
ere: is9 = k1 And k2
End Function
Private Sub Form_Load()
'Picture1.Picture = LoadPicture("c:\3.bmp")
End Sub