注释下列代码，追加500分，决不食言

来源：百度知道 编辑：UC知道 时间：2024/06/12 00:37:49
注释下列代码，追加500分，决不食言
' 此识别模块通过点阵扫描后对字符点阵数量的统计来进行识别，比较初级。只能识别字符比较规则的验证码图片
'
' ' 识别思路: 二值化图像---->杂点过滤---->字符位置搜索----->字符点阵数量统计----->于字符点阵模版匹配
'

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public ViewString As String
Private m_G As Byte
Public Function GetCode(pic1 As PictureBox) As String
Dim a As Byte
Dim b As Byte
Dim G As Byte
Dim R As Byte
Dim NumS As String
Dim pix() As Boolean
ReDim pix(pic1.ScaleWidth - 1, pic1.ScaleHeight - 1) As Boolean
Dim Color1 As Long
Dim Color2 As Long
Dim iy As Long
Dim ix As Long
For iy = 0 To pic1.ScaleHeight - 1
For ix = 0 To pic1.ScaleWidth - 1
Call GetRGB(GetPixel(pic1.hdc, ix, iy), R, G, b)
If G <= m_G Then
pix(ix, iy) = False
Else
pix(ix, iy) = True

大概看了，程序并不完整。50分我要
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public ViewString As String
Private m_G As Byte
Public Function GetCode(pic1 As PictureBox) As String
Dim a As Byte
Dim b As Byte
Dim G As Byte
Dim R As Byte
Dim NumS As String
Dim pix() As Boolean
ReDim pix(pic1.ScaleWidth - 1, pic1.ScaleHeight - 1) As Boolean
Dim Color1 As Long
Dim Color2 As Long
Dim iy As Long
Dim ix As Long

----下面这段代码用来二值画图像
For iy = 0 To pic1.ScaleHeight - 1
For ix = 0 To pic1.ScaleWidth - 1
Call GetRGB(GetPixel(pic1.hdc, ix, iy), R, G, b)
If G <= m_G Then ----m_G应该是阈值，但是没初始化代码。
pix(ix, iy) = False
Else
pix(ix, iy) = True
End If
Next
Next
----二值化结束。
Dim str As String

----下面的代码应该是准备点阵统计的字符串。
For iy = 0 To UBound(pix(), 2)
For ix