ارسال Ctrl+Shift سمت راست از طریق کدنویسی



Option Explicit



Private Const VK_RSHIFT = &HA1

Private Const VK_RCONTROL = &HA3

Private Const KEYEVENTF_KEYUP = &H2



Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long



Private Sub Command2_Click()



    'Object.SetFocus



    Dim intScanRCtrl As Integer

    Dim intScanRShift As Integer



    intScanRCtrl = MapVirtualKey(VK_RCONTROL, 0)

    intScanRShift = MapVirtualKey(VK_RSHIFT, 0)

    

    keybd_event VK_RCONTROL, intScanRCtrl, 0, 0 ' Right CTRL down

    keybd_event VK_RSHIFT, intScanRShift, 0, 0  ' Right Shift down



    keybd_event VK_RCONTROL, intScanRCtrl, KEYEVENTF_KEYUP, 0

    keybd_event VK_RSHIFT, intScanRShift, KEYEVENTF_KEYUP, 0

End Sub