如何自动响应键盘鼠标事件？（回帖给分）

[luohaorj]

比如我想让屏幕自动响应鼠标右键，然后自动响应键盘上的“k”键（不要人工去按键），应该怎么做？谢谢
回帖就给分！！！！

[hxy1982]

sendkeys ""语句不就行了吗？

[online]

自动响应键盘上的“k”键
使用sendkeys即可

让屏幕自动响应鼠标右键？？？
不明白

[高高兴兴的晶晶]

楼主何意、？？

[lwm1977]

学习

[luohaorj]

sendkeys怎么使用？

-------------------------
让屏幕自动响应鼠标右键？？？
不明白
----------------------------------
就是说让程序自己执行鼠标右键？

[luohaorj]

就是让鼠标自动点右键

[踏平扶桑]

我想用sendmessage应该能做到吧

[itbear]

sendkeys "{K}"

[itcoco]

比如我想让屏幕自动响应鼠标右键，然后自动响应键盘上的“k”键（不要人工去按键），应该怎么做？谢谢
?让屏幕自动响应鼠标右键,总要有个条件吧,就是何时响应,你试试用个time控件,定时响应,

[海牛]

^_^试试在窗体中点击鼠标左键！
Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim tP As POINTAPI

GetCursorPos tP
Call mouse_event(&H10, tP.X, tP.Y, 0, 0)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "OK"
End If
End Sub

[tuoshi]

帮你顶，呵呵！~~