Uygulama mouse_event - Mouse Click Yapılmış Gibi Komut Göndermek

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,307
En iyi yanıt
10
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Bazen kodlarla, ekrandaki herhangi bir konumu tıklamamız gerekebilir, o durumda aşağıdaki kodları kullanabilirsiniz.

PHP:
#If VBA7 And Win64 Then
    Public Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As LongPtr)
#Else
    public Declare Sub mouse_event Lib "user32"( ByVal dwFlags As Long, ByVal dx  As  Long,  ByVal dy  As Long,  ByVal cButtons  As  Long,  ByVal dwExtraInfo  As  Long)
#End If

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Sub Tikla()
    'Sol Tıklama
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    'Sağ Tıklama
    mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
    'Mouse Tekerleği Tıklama
    mouse_event MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLETUP, 0, 0, 0, 0
End Sub

Not: Kodları çalıştırdığınızda Mouse Tekerleği basılı kalır, tekerleği tekrar tıkladığınızda düzelir.
 
Üst Alt