如何控制鼠标和键盘向另一个正在运行的WINDOWS窗口中发送各鼠标信息？

Question

FindWindow
SendMessage具体的定义可以看Api Text Viewer的定义然后msdn

Answer 1

我想也是用SENDMESSAGE不知道我不知道SENDMESSAGE是怎么用的，比如向一个窗口的某个坐标发送个鼠标点击该如何实现呢

Answer 2

兄弟没人帮你，就让兄弟为了效劳
假设：你想往x,y坐标发送鼠标点击的消息
Dim L as long,posx as long,posy as long
L=Int(posy / 15) * Val(&H10000) + Int(posx / 15)
sendmessage form1.hwnd,WM_LBUTTONDOWN,0,byval L
好了，你可以给form的mousedown 事件下一个断点，然后看看参数x,y跟你自己设的x,y是不是一样。
但请注意：如果你想mousedown中的参数x,y与你自己设置的posx,posy一样的话，
那么请你记住，把你自己设置的posx,posy指定为15的整数倍，那么x=posx,y=posy;否则会出现一定的偏差的

Answer 3

例如：
Private Sub Command3_Click()
    Dim l As Long, posx As Long, posy As Long
    posx = 3000: posy = 405
    l = Int(posy / 15) * Val(&H10000) + Int(posx / 15)
    SendMessage Me.hwnd, WM_LBUTTONDOWN, 0, ByVal l
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    debug.print "x=" & x & ";" & "y=" & y
End Sub
你会发现在立即窗口上显示的就是你所指定的posx和posy

Answer 4

哦，忘了跟你说，上面所说的15，其实是screen.TwipsPerPixelX 和screen.TwipsPerPixelY,你可以改一改，只因为我的机器上是15，不好意思，没说清楚