您所在位置：主题：[讨论]请教游戏里坐标的获取问题
liuyh
[专家分：310] 发布于 2009-12-07 15:48:00
请那位老师帮助啊；代码如下；
Option Explicit
Dim tPoint As POINTAPI
Dim bxqtHnd As Long
Private Sub Command1_Click()
bxqtHnd = FindWindow(vbNullString, "碧雪情天Online") '获取程序窗口句柄
Label3.Caption = bxqtHnd
End Sub
Private Sub Timer1_Timer()
Call ScreenToClient(bxqtHnd, tPoint)
Label1.Caption = tPoint.x
Label2.Caption = tPoint.y
End Sub
得到的该游戏里的坐标值却是负数，而且还是不断的变化递增的，
不知是何原因，
还请哪位老师给与指教帮助，感谢了！！！！
Option Explicit
Dim tPoint As POINTAPI
Dim bxqtHnd As Long
Private Sub Command1_Click()
bxqtHnd = FindWindow(vbNullString, "碧雪情天Online") '获取程序窗口句柄
Label3.Caption = bxqtHnd
End Sub
Private Sub Timer1_Timer()
Call ScreenToClient(bxqtHnd, tPoint)
Label1.Caption = tPoint.x
Label2.Caption = tPoint.y
End Sub
得到的该游戏里的坐标值却是负数，而且还是不断的变化递增的，
不知是何原因，
还请哪位老师给与指教帮助，感谢了！！！！
