Excel VBA Shift + Click

[unıconferdi]

Herkese Merhabalar,

Mouse koordinatları vererek bir uygulamada tıklamalar yaptırıyorum, bu uygulamadan kopyalama yapmam gerekiyor, bir koordinata tıklama yaptırdıktan sonra ikinci istediğim koordinata Shift tuşuna basılı tutarken tıklama yaptırmak istiyorum. Çözüm bulamadığım noktada burası, yardımlarınızı bekliyorum teşekkürler

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwflag As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButton As Long, ByVal dextrainfo As Long)

Public Const MOUSEEVETF_RIGHTDOWN = &H2
Public Const MOUSEEVETF_RIGHTUP = &H4

Sub Deneme()

'Burası Birince Tıklama yaptırdığım Koordinat
sendSetCursorPos 175, 125
mouse_event MOUSEEVETF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVETF_RIGHTUP, 0, 0, 0, 0

'Burasıda ikinci tıklama yaptırdığım koordinat, burada Shift + Click yapmak istiyorum
Application.Wait (Now + TimeValue("00:00:03"))
SetCursorPos 560, 125
mouse_event MOUSEEVETF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVETF_RIGHTUP, 0, 0, 0, 0

 

[Korhan Ayhan]

Şu satır gibi SHIFT tuşuna ait kodu da bulursanız sanırım çözüme ulaşabilirsiniz.

Public Const MOUSEEVETF_RIGHTDOWN = &H2

Ben nette iki satır buldum..

Public Const VK_SHIFT = &H10
Public Const VK_LSHIFT = &HA0

 

[unıconferdi]

Şu satır gibi SHIFT tuşuna ait kodu da bulursanız sanırım çözüme ulaşabilirsiniz.

Public Const MOUSEEVETF_RIGHTDOWN = &H2

Ben nette iki satır buldum..

Public Const VK_SHIFT = &H10
Public Const VK_LSHIFT = &HA0

Teşekkürler Korhan Bey, deneme yapacağım