一个用VB制作按键精灵的问题

Question

请问  如何用VB做一个网游的按键精灵（实现 自动补药、连续按F1、）在网上查了些资料 没有太直接的  大概知道 自动补药需要抓图 ，请问怎么来抓，并且在VB里怎样实现坐标变成什么颜色就按相应的键都需要VB的哪些知识点  （我新手）能详细点最好     
先谢过了 就75分了

Answer 1

调用API，具体查API手册GetDC获取屏幕句柄
GetPixel获得颜色
ReleaseDC释放句柄

Answer 2

Private Sub Timer1_Timer()
    Dim point As POINTAPI
    Dim hdc As Long
    
    GetCursorPos point
    hdc = GetDC(0)
    Me.Caption = CStr(GetPixel(hdc, point.x, point.y))
    ReleaseDC 0, hdc
End Sub

Answer 3

按键用keybd-event函数，我就这么做的，另外，最好别用f1，放其他键上，f1是系统默认的帮助快捷键，不注意就让你手忙脚乱，取颜色可以用上面的代码

Answer 4

先谢谢各位了 做出来马上结帖
Private Sub Timer1_Timer()
    Dim point As POINTAPI
    Dim hdc As Long
    
    GetCursorPos point
    hdc = GetDC(0)
    Me.Caption = CStr(GetPixel(hdc, point.x, point.y))
    ReleaseDC 0, hdc
End Sub请帮我把这个代码每行写个注释可以吗？

Answer 5

这个是显示鼠标所在处的颜色，主要是那几个api你要用到，要先API工具申明才行。Private Sub Timer1_Timer()
    Dim point As POINTAPI
    Dim hdc As Long
    
    GetCursorPos point '将鼠标位置放到point结构理，point其实就是x,y二属性
    hdc = GetDC(0)     ' 获取屏幕句柄
    Me.Caption = CStr(GetPixel(hdc, point.x, point.y))   '取屏幕x.y位置的颜色
    ReleaseDC 0, hdc   '释放句柄
End Sub