Dim a As RECT
Private Sub Command1_Click()
Command1.Caption = "开始"
Dim hwd As Long '存储句柄的变量
hwd = FindWindow(vbNullString, "画图")
If hwd <> 0 Then
Label2.Caption = "运行游戏"
Else
Label2.Caption = "没找到游戏"
Sleep 2000
GetWindowRect hwnd, a
SetCursorPos a.Left + 506, a.Top + 347
Sleep 2000
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
想问下，怎么把Dim a As RECT和GetWindowRect hwnd, a的换成hwd = FindWindow(vbNullString, "画图")的画图的窗口，现在鼠标点击的是程序相对位置506：347，怎么把他换成画图窗口的相对位置506：347