点击另一应用程序中的某一位置怎样实现?

Question

比如，打开扫雷游戏，点最中间那一格。

Answer 1

我找了一个，经常需要连点两次才行，有时候又只需要点一次，唉。
    Dim p As POINTAPI
    
    p.X = Int(Text1.Text)
    p.Y = Int(Text2.Text)
    
    Dim hwnd1 As Long
    hwnd1 = FindWindow("扫雷", "扫雷")
    
    SetCursorPos p.X, p.Y '移动鼠标
    SendMessage hwnd1, WM_LBUTTONDOWN, 0, 0 '模拟单击鼠标
    SendMessage hwnd1, WM_LBUTTONUP, 0, 0

Answer 2

mouse_event() 等模拟鼠标操作...