vb发送按键alt+←
vb发送按键alt+←sendkeys发送ALT加方向键组合,我测试没成功,具体点回复:“qqchildren”的方法测试不成功。...
vb发送按键alt+←
sendkeys发送ALT加方向键组合,我测试没成功,具体点
回复:
“qqchildren”的方法测试不成功。 展开
sendkeys发送ALT加方向键组合,我测试没成功,具体点
回复:
“qqchildren”的方法测试不成功。 展开
4个回答
展开全部
***全局模拟键盘按键-------------
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Timer1_Timer()
Call keybd_event(vbKeyMenu , 0, 0, 0) 'Alt键键按下
Call keybd_event(vbKeyClear, 0, 0, 0) 'm键按下 vbKeyClear 为'清除键
Call keybd_event(vbKeyMenu, 0, KEYEVENTF_KEYUP, 0) 'Alt键键弹起
End Sub
格式你自己调整下 按键码你可以自己改的
记得给分哦
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Timer1_Timer()
Call keybd_event(vbKeyMenu , 0, 0, 0) 'Alt键键按下
Call keybd_event(vbKeyClear, 0, 0, 0) 'm键按下 vbKeyClear 为'清除键
Call keybd_event(vbKeyMenu, 0, KEYEVENTF_KEYUP, 0) 'Alt键键弹起
End Sub
格式你自己调整下 按键码你可以自己改的
记得给分哦
展开全部
SendKeys "%{LEFT}"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
sendkey
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
什么意思?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询