VB怎么扫描游戏屏幕 做个补血器

就像 按键精灵 里的功能一样

IfColor 117 10 63594a 0
KeyPress 112 1
Delay 15000
EndIf

什么函数 可以 获取 屏幕某一点的坐标 和 颜色呢

谢谢

'API函数声明 GetDC 和 GetPixel

Private Sub timer1_timer()
Dim hdc As Long
Dim color As Long
Dim thecolor As Long
Dim x As Long
Dim y As Long

hdc = GetDC(0)
color = GetPixel(hdc, x, y)
If color = thecolor Then

MsgBox "找到啦！！"
End If
End Sub

对 游戏 无效
只能对 桌面 窗口 有效
怎么解决

进游戏里 抓出来的 只有黑色

按键精灵 就可以抓到 游戏里的颜色 不知道怎么 做的

没人了啊