麻烦高手指点一下这个vb软件是如何进行屏幕识别的？多谢了！

这是一个困扰我好久的一个问题，有关如何使用vb编程实现读取屏幕指定位置的数字和文字，请教了好多高手，都认为采用vb来实现困难了一些，最好采用vc或者使用专门的屏幕识别软件，但是那样就太复杂了，而且也不显示。刚好有个朋友有个类似软件使用vb编写的，能够读取屏幕指定区域的数字和文字，可是我不知是程序是如何进行的。麻烦高手指点一下，最好能够标注一下，多谢了！

Type=Exe
Form=FORM01.FRM
Form=FORM02.FRM
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
Startup="Form1"
Title="工程1"
ExeName32="HB抄牌器带分牌检测.exe"
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"

AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0  区域检查
OverflowCheck=0  溢出检查
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form1
   Caption         =   "互博抄牌器"
   ClientHeight    =   4455
   ClientLeft      =   12225
   ClientTop       =   4755
   ClientWidth     =   2880
   Icon            =   "FORM01.FRX":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4455     标度高度
   ScaleWidth      =   2880    宽度
   Begin VB.ComboBox Combo1  组合1
      Height          =   300
      ItemData        =   "FORM01.FRX":08E6
      Left            =   240
      List            =   "FORM01.FRX":08CA
      TabIndex        =   15
      Text            =   "选择游戏"
      Top             =   3720
      Width           =   1335
   End
   Begin VB.CheckBox Check1  复选框
      Caption         =   "手工对码"
      Height          =   180
      Left            =   4560
      TabIndex        =   14
      Top             =   4440
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
      Height          =   1455
      Left            =   0
      TabIndex        =   13
      Top             =   2160
      Width           =   2895
   End
   Begin VB.TextBox INB3
      Height          =   375
      Left            =   5400
      TabIndex        =   12
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox INB2
      Height          =   375
      Left            =   5040
      TabIndex        =   11
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox INB1
      Height          =   375
      Left            =   4680
      TabIndex        =   10
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox INP1
      Height          =   375
      Left            =   4080
      TabIndex        =   9
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox INP2
      Height          =   375
      Left            =   3720
      TabIndex        =   8
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox INP3
      Height          =   375
      Left            =   3360
      TabIndex        =   7
      Top             =   4800
      Width           =   375
   End
   Begin VB.TextBox Bdetail
      Height          =   1335
      Left            =   3000
      MultiLine       =  -1
      TabIndex        =   6
      Text            =   "FORM01.FRX":08F0
      Top             =   3000
      Width           =   2895
   End
   Begin VB.TextBox Pdetail
      Height          =   1455
      Left            =   3000
      MultiLine       =  -1
      TabIndex        =   5
      Text            =   "FORM01.FRX":090B
      Top             =   1440
      Width           =   2895
   End
   Begin VB.TextBox Text1
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0
      Height          =   735
      Left            =   3000
      MultiLine       =  -1
      TabIndex        =   4
      Top             =   600
      Width           =   2895
   End
   Begin VB.Timer Seemorethan3
      Enabled         =   0
      Interval        =   800
      Left            =   4560
      Top             =   120
   End
   Begin VB.Timer Softstate
      Enabled         =   0
      Interval        =   1000
      Left            =   3960
      Top             =   120
   End
   Begin VB.PictureBox Picture1
      BorderStyle     =   0
      Height          =   375
      Left            =   0
      ScaleHeight     =   375
      ScaleWidth      =   135
      TabIndex        =   2
      Top             =   3600
      Width           =   135
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
      Height          =   2175
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   2895
   End
   Begin VB.Timer Getstate
      Enabled         =   0
      Interval        =   500
      Left            =   3360
      Top             =   120
   End
   Begin VB.CommandButton Command1
      Caption         =   "运行"
      Height          =   375
      Left            =   1920
      TabIndex        =   0
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Statewordlist   状态字表
      Caption         =   "程序状态"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   4080
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' This form rebuilt by VBRezQ v2.4a.  17-May-2008 / 06:57:23
Option Explicit

' Declare Function PathFileExistsA Lib "shlwapi.dll" ()

' Declare Function GetPixel Lib "gdi32" ()

' Declare Function GetDC Lib "USER32" ()

' Declare Function GetWindowDC Lib "USER32" ()

' Declare Function ReleaseDC Lib "USER32" ()

' Declare Function GetWindowRect Lib "USER32" ()

' Declare Function FindWindowA Lib "USER32" ()

' Declare Function mouse_event Lib "USER32" ()

' Declare Function SetCursorPos Lib "USER32" ()

' Declare Function GetCursorPos Lib "USER32" ()

' Declare Function keybd_event Lib "USER32" ()

' Declare Function SetWindowLongA Lib "USER32" ()

' Declare Function GetWindowLongA Lib "USER32" ()

' Declare Function SetWindowPos Lib "USER32" ()

' Declare Function timeGetTime Lib "winmm.dll" ()

' Declare Function Sleep Lib "kernel32" ()

'Sub Subr_001()
'End Sub

Sub Command1_Click()
End Sub

'Sub Subr_003()
'End Sub

Sub Form_Load()
End Sub

'Sub Subr_005()
'End Sub

'Sub Subr_006()
'End Sub

'Sub Subr_007()
'End Sub

'Sub Subr_008()
'End Sub

'Sub Subr_009()
'End Sub

'Sub Subr_010()
'End Sub

'Sub Subr_011()
'End Sub

'Sub Subr_012()
'End Sub

'Sub Subr_013()
'End Sub

'Sub Subr_014()
'End Sub

'Sub Subr_015()
'End Sub

Sub Form_Unload(Cancel As Integer)
End Sub

Sub Getstate_Timer()
End Sub

Sub INP1_DblClick()
End Sub

Sub INP3_Change()
End Sub

Sub INP2_Change()
End Sub

Sub INP1_Change()
End Sub

Sub INB1_Change()
End Sub

Sub INB2_Change()
End Sub

Sub INB3_Change()
End Sub

'Sub MSFlexGrid1_Event11()
'End Sub

Sub Seemorethan3_Timer()
End Sub

Sub Softstate_Timer()
End Sub

'Sub Subr_028()
'End Sub

'Sub Subr_029()
'End Sub

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

VERSION 5.00
Begin VB.Form Form2
   Caption         =   "Form2"
   ClientHeight    =   5445
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7500
   LinkTopic       =   "Form2"
   ScaleHeight     =   5445
   ScaleWidth      =   7500
   StartUpPosition =   3
   Begin VB.TextBox Text1
      Height          =   5175
      Left            =   120
      MultiLine       =  -1
      ScrollBars      =   2
      TabIndex        =   0
      Top             =   120
      Width           =   7335
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

' This form rebuilt by VBRezQ v2.4a.  17-May-2008 / 06:57:23
Option Explicit

Sub Text1_DblClick()
End Sub

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)