不用额外插件，最简单的数字识别方法

最新推荐文章于 2025-04-29 14:42:29 发布

rsice

最新推荐文章于 2025-04-29 14:42:29 发布

阅读量4.3k

点赞数 2

CC 4.0 BY-SA版权

文章标签：按键精灵

本文链接：https://blog.youkuaiyun.com/rsice/article/details/103654791

本文深入解析了一种基于颜色特征的文字识别算法，通过对比特定位置的颜色值来识别数字字符，适用于屏幕上的数字识别场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function 文字识别(wzsb_x, wzsb_y, wzsb_ys)
'数字左上角x,y,颜色
/*
1:3,1==2:0,8==4:4,6==7:2,7==8:1,4
3:2,4==5:0,0==6:1,1==9:1,5
12:5,8==47:4,2==56:2,3==38:2,4==09:
*/
    
Dim GetColor
    文字识别=-1
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+5, wzsb_y+8)     '12
    If GetColor = wzsb_ys Then 
        GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+3, wzsb_y+1) '1
        If GetColor = wzsb_ys Then 
            文字识别 = 1
        Else 
            文字识别 = 2
        End If
        Exit Function 
    End If
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+4, wzsb_y+2)     '47
    If GetColor = wzsb_ys Then 
        GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+4, wzsb_y+6) '4
        If GetColor = wzsb_ys Then 
            文字识别 = 4
        Else 
            文字识别 = 7
        End If
        Exit Function 
    End If
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+2, wzsb_y+3)   '56
    If GetColor = wzsb_ys Then 
        GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x, wzsb_y)   '5
        If GetColor = wzsb_ys Then 
            文字识别 = 5
        Else 
            文字识别 = 6
        End If
        Exit Function 
    End If
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+2, wzsb_y+4)     '38
    If GetColor = wzsb_ys Then 
        GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+1, wzsb_y+4) '8
        If GetColor = wzsb_ys Then 
            文字识别 = 8
        Else 
            文字识别 = 3
        End If
        Exit Function 
    End If
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x+1, wzsb_y+5)    '09
    If GetColor = wzsb_ys Then 
        文字识别 = 9
    Else 
        GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, wzsb_x, wzsb_y+5) 
        If GetColor = wzsb_ys Then 
            文字识别 = 0
        End If 
    End If
End Function