baidu.bas

一个VB识别百度的验证码程序

Attribute VB_Name = "Module1"
'****************************************************************************
'网  站：http://www.hackeroo.com/
'e-mail：[e-mail]
'OICQ  : 266370
'****************************************************************************

Public Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long

Public 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

Public Type shuju
    dot As Byte
    tag As Byte
End Type
    
Public a(0 To 49, 0 To 19) As shuju
Public b(0 To 9, 0 To 19) As shuju
 


    
Public Function Red(ByVal mlColor As Long) As Long
    '从RGB值中获得红色值
    Red = mlColor And &HFF
End Function
Public Function Green(ByVal mlColor As Long) As Long
    '从RGB值中获得绿色值
    Green = (mlColor \ &H100) And &HFF
End Function

Public Function Blue(ByVal mlColor As Long) As Long
    ''从RGB值中获得蓝色值
    Blue = (mlColor \ &H10000) And &HFF
    
End Function