vb发送按键alt+←

vb发送按键alt+←

***全局模拟键盘按键-------------
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
格式你自己调整下 按键码你可以自己改的
记得给分哦

什么意思？

sendkey

SendKeys "%{LEFT}"