Witam.
Chcę programowo zrobić tak aby kliknąć Shift + prawy przycisk myszki. Co robię źle? Poniższy kod nie chce działać (Shift się nie naciska a jedynie przycisk myszki):
Dim packed As Long
Dim xcoord As Long
Dim ycoord As Long
xcoord = 731
ycoord = 315
packed = (ycoord * &H10000) + xcoord
Const WM_KEYDOWN As Integer = &H100
Const WM_KEYUP As Integer = &H101
Const VK_SHIFT As Integer = &H10
Const MK_RBUTTON = &H2
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
SendMessage(destination, WM_KEYDOWN, VK_SHIFT, 0)
SendMessage(destination, WM_RBUTTONDOWN, MK_RBUTTON, packed)
SendMessage(destination, WM_RBUTTONUP, 0&, packed)
SendMessage(destination, WM_KEYUP, VK_SHIFT, 0)