keybd_event 怎么用 谢了

[huyafei]

keybd_event 怎么用 谢了
例子

[Jneu]

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

[daryl715]

还是老大厉害

[huyafei]

老大
小弟不太懂
你是按那几个键呀
我只想定时按“1”键 不用复杂
谢了

[Jneu]

Call keybd_event(vbKey1, 0, 0, 0)

[Jneu]

也可以用SENDKEY函数

[huyafei]

谢了
我刚想明白
哈哈
你已经回了 麻烦了