rgb颜色查询工具_《我的眼睛–图灵识别》第三章：基础：颜色识别

Dim iHSV As HSV, iRGB As RGB
iHSV =RGB转HSV(255, 0, 0)
MsgBox iHSV.Hue& "，" &iHSV.Saturation & "，" &iHSV.Value
 
iRGB =HSV转RGB(0, 100, 100)
MsgBox iRGB.Red& "，" &iRGB.Green& "，" & iRGB.Blue

Public Type HSV
    Hue As Integer
    Saturation As Integer
    Value As Integer
End Type
Public Type RGB
    Red As Integer
    Green As Integer
    Blue As Integer
End Type
 
Private Function Max(c1 As Single, c2 As Single) As Single
    If c1 > c2 Then
        Max = c1
    Else
        Max = c2
    End If
End Function
Private Function Min(c1 As Single, c2 As Single) As Single
    If c1 > c2 Then
        Min = c2
    Else
        Min = c1
    End If
End Function
 
 
'转换RGB到HSV
Public Function RGB转HSV(ByVal R As Integer, ByVal G As Integer, ByVal b As Integer) As HSV
Dim nH As Single, nS As Single, nV As Single
Dim nR As Single, nG As Single, nB As Single
Dim ndelR As Single, ndelG As Single, ndelB As Single
Dim nmax As Single, nmin As Single, ndelMax As Single
    nR = R / 255
    nG = G / 255
    nB = b / 255
    nmax = Max(Max(nR, nG), nB)
    nmin = Min(Min(nR, nG), nB)
    ndelMax = nmax - nmin
    nV = nmax
    If (ndelMax = 0) Then
        nH = 0
        nS = 0
    Else
        nS = ndelMax / nmax
        ndelR = (((nmax - nR) / 6) + (ndelMax / 2)) / ndelMax
        ndelG = (((nmax - nG) / 6) + (ndelMax / 2)) / ndelMax
        ndelB = (((nmax - nB) / 6) + (ndelMax / 2)) / ndelMax
        If (nR = nmax) Then
            nH = ndelB - ndelG
        ElseIf (nG = nmax) Then
            nH = (1 / 3) + ndelR - ndelB
        ElseIf (nB = nmax) Then
            nH = (2 / 3) + ndelG - ndelR
        End If
        If (nH < 0) Then nH = nH + 1
        If (nH > 1) Then nH = nH - 1
    End If
    RGB转HSV.Hue = nH * 360
    RGB转HSV.Saturation = nS * 100
    RGB转HSV.Value = nV * 100
End Function
 
 

//色相(H)、饱和度(S)、明度(V)
//下面这句是把16进制颜色("0000FF")转换分解到10进制(H, S, V)分量中
Call Plugin.TULING.RGBtoHSV("0000FF",H,S,V)
MessageBox H & "，" & S & "，" &V
 
hColor=Plugin.TULING.HSVtoRGB(0,100,100)
MessageBox hColor

Dim 颜色 As String
颜色 = 来源_获取屏幕位置颜色(100, 200)
MsgBox 颜色

Public Function 来源_获取屏幕位置颜色(x As Long, y As Long) As String
Dim WindowDC As Long, 颜色 As String
    On Error GoTo ErrLine
    WindowDC = GetDC(0)    '获取全屏幕场景
    颜色 = GetPixel(WindowDC, x, y)    '取场景中(x, y)坐标的颜色
    ReleaseDC 0, WindowDC    '释放场景
    来源_获取屏幕位置颜色 = Right("000000" & UCase(Hex(颜色)), 6)
    Exit Function
ErrLine:
    来源_获取屏幕位置颜色 = ""
End Function

颜色 = Plugin.TULING.GetPixelColor(100, 200)
TracePrint 颜色

Dim 图像数据() As Byte
Call 来源_获取屏幕像素(0, 0, 200, 100, 图像数据)

Public Sub 来源_获取屏幕像素(左 As Long, 上 As Long, 右 As Long, 下 As Long, 返回图像数据() As Byte)
Dim Temp图像数据() As Byte, bi24BitInfo As BitMapInfo
Dim 宽 As Long, 高 As Long
    宽 = 右 - 左 + 1    '图像宽度
    高 = 下 - 上 + 1    '图像高度
    ReDim Temp图像数据(3, 宽 - 1, 高 - 1) As Byte
    With bi24BitInfo.bmiHeader
        .biBitCount = Bits
        .biCompression = 0&
        .biPlanes = 1
        .biSize = Len(bi24BitInfo.bmiHeader)
        .biWidth = 宽
        .biHeight = -高    '显示正常图像
    End With
    ……略…
    返回图像数据 = Temp图像数据
End Sub

Call Plugin.TULING.Pixel_FromScreen(0,0,200,100)
//显示获取的图像
Call Plugin.TULING.Pixel_Preview()

Dim FoundX As Long, FoundY As Long, 颜色 As String
颜色 = "0000FF"
Call 查找_屏幕区域找单色(0, 0, 1024, 768, 颜色, 0, 1, FoundX, FoundY)
Debug.Print FoundX, FoundY    '输出找到的坐标

'Call 查找_屏幕区域找单色(
'       区域左边：长整数,
'       区域上边：长整数,
'       区域右边：长整数,
'       区域下边：长整数,
'       查找颜色：字符串,
'       查找方向：整数[0-从左上往右下;1-从左下往右上;2-从右上往左下;3-从右下往左上,4-从上左往下右;5-从上右往下左;6-从下左往上右;7-从下右往上左],
'       颜色相似度：单精度[0.5到1之间;1为精确匹配],
'       输出找到的x坐标：整型变量,
'       输出找到的y坐标：整型变量
'               )
Public Sub 查找_屏幕区域找单色(左 As Long, 上 As Long, 右 As Long, 下 As Long, 颜色值 As String, 查找方向 As Integer, 相似度 As Single, FoundX As Long, FoundY As Long)
Dim 结果x As Long, 结果y As Long
    结果x = -1
    结果y = -1
    'On Error GoTo 结束
    '1.截取屏幕图片信息
    Dim 屏幕像素数据() As Byte
    Call 来源_获取屏幕像素(左, 上, 右, 下, 屏幕像素数据)
    '2.相似度计算
    Dim 颜色相似度 As Long, flag As Boolean
    颜色相似度 = (1 - 相似度) * 255
    '3.拆解颜色值分量
    Dim 颜色 As Long, Red As Byte, Green As Byte, Blue As Byte
    颜色 = CLng("&H" & 颜色值)
    Red = 颜色 Mod 256: Green = (颜色  256) Mod 256: Blue = 颜色  256  256
    '4.颜色的查找识别
    Dim x As Long, y As Long, 宽 As Long, 高 As Long
    宽 = 右 - 左 - 1
    高 = 下 - 上 - 1
    flag = False
    Select Case 查找方向
    Case 0    '从左到右，从上到下.顺序
        For y = 0 To 高: For x = 0 To 宽
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 1    '从左到右，从下到上.顺序
        For y = 高 To 0 Step -1: For x = 0 To 宽
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 2    '从右到左，从上到下.顺序
        For y = 0 To 高: For x = 宽 To 0 Step -1
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 3    '从右到左，从下到上.顺序
        For y = 高 To 0 Step -1: For x = 宽 To 0 Step -1
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 4    '从上到下，从左到右.顺序
        For x = 0 To 宽: For y = 0 To 高
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 5    '从上到下，从右到左.顺序
        For x = 宽 To 0 Step -1: For y = 0 To 高
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 6    '从下到上，从左到右.顺序
        For x = 0 To 宽: For y = 高 To 0 Step -1
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    Case 7    '从下到上，从右到左.顺序
        For x = 宽 To 0 Step -1: For y = 高 To 0 Step -1
                If 颜色相似度 = 0 Then
                    If 屏幕像素数据(2, x, y) = Red And 屏幕像素数据(1, x, y) = Green And 屏幕像素数据(0, x, y) = Blue Then
                        flag = True: GoTo 结束
                    End If
                Else
                    If 颜色相似度判断(屏幕像素数据(2, x, y), 屏幕像素数据(1, x, y), 屏幕像素数据(0, x, y), _
                            Red, Green, Blue, 颜色相似度) = True Then
                        flag = True: GoTo 结束
                    End If
                End If
            Next: Next
    End Select
结束:
    If flag = True Then
        结果x = x + 左
        结果y = y + 上
    End If
    FoundX = 结果x
    FoundY = 结果y
End Sub
 
 

Dim x, y, 颜色
颜色 = "0000FF"
Call Plugin.TULING.FindColor(0, 0, 1024, 768, 颜色, 0, 1, x, y)
TracePrint x & "," & y    //输出找到的坐标