如何自动响应键盘鼠标事件?(回帖给分)

luohaorj 2003-11-20 01:44:42
比如我想让屏幕自动响应鼠标右键,然后自动响应键盘上的“k”键(不要人工去按键),应该怎么做?谢谢
回帖就给分!!!!
...全文
44 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
tuoshi 2003-11-21
  • 打赏
  • 举报
回复
帮你顶,呵呵!~~
海牛 2003-11-21
  • 打赏
  • 举报
回复
^_^试试在窗体中点击鼠标左键!
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
itcoco 2003-11-21
  • 打赏
  • 举报
回复
比如我想让屏幕自动响应鼠标右键,然后自动响应键盘上的“k”键(不要人工去按键),应该怎么做?谢谢
?让屏幕自动响应鼠标右键,总要有个条件吧,就是何时响应,你试试用个time控件,定时响应,
itbear 2003-11-21
  • 打赏
  • 举报
回复
sendkeys "{K}"
踏平扶桑 2003-11-21
  • 打赏
  • 举报
回复
我想用sendmessage应该能做到吧
luohaorj 2003-11-21
  • 打赏
  • 举报
回复
就是让鼠标自动点右键
luohaorj 2003-11-20
  • 打赏
  • 举报
回复
sendkeys怎么使用?

-------------------------
让屏幕自动响应鼠标右键???
不明白
----------------------------------
就是说让程序自己执行鼠标右键?
lwm1977 2003-11-20
  • 打赏
  • 举报
回复
学习
  • 打赏
  • 举报
回复
楼主何意、??
online 2003-11-20
  • 打赏
  • 举报
回复
自动响应键盘上的“k”键
使用sendkeys即可

让屏幕自动响应鼠标右键???
不明白
hxy1982 2003-11-20
  • 打赏
  • 举报
回复
sendkeys ""语句不就行了吗?

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧