keybd_event 怎么用 谢了

huyafei 2001-12-07 11:08:20
keybd_event 怎么用 谢了
例子
...全文
95 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
huyafei 2001-12-07
  • 打赏
  • 举报
回复
谢了
我刚想明白
哈哈
你已经回了 麻烦了
Jneu 2001-12-07
  • 打赏
  • 举报
回复
也可以用SENDKEY函数
Jneu 2001-12-07
  • 打赏
  • 举报
回复
Call keybd_event(vbKey1, 0, 0, 0)
huyafei 2001-12-07
  • 打赏
  • 举报
回复
老大
小弟不太懂
你是按那几个键呀
我只想定时按“1”键 不用复杂
谢了
daryl715 2001-12-07
  • 打赏
  • 举报
回复
还是老大厉害
Jneu 2001-12-07
  • 打赏
  • 举报
回复
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA

Private Sub DoAction(Index As Integer)
Dim VK_ACTION As Long

Select Case Index
Case 0: '打开资源管理器
VK_ACTION = &H45
Case 1: '查找文件
VK_ACTION = &H46
Case 2: '最小化所有窗口
VK_ACTION = &H4D
Case 3: '运行程序
VK_ACTION = &H52
Case 4: '弹出Win菜单
VK_ACTION = &H5B
Case 5: '将计算机转如睡眠状态
VK_ACTION = &H5E
Case 6: '执行Windows帮助
VK_ACTION = &H70
End Select

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

7,762

社区成员

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

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