[VB6] Intercettare il click del mouse sulle finestre di altri programmi

[x69asterix]

ho la necessità di sapere come si si intercetta il click sinistro del mouse, qualcuno ne sà qualcosa di come si fà?

[power.mobile]

devi usare l'evento mouseup o mousedown del controllo sul quale devi controllare il click del tasto... nella sub dell'evento c'è un argomento che si chiama button, quando questo è uguale a 2 vuol dire che è stato premuto il tato dx...

[x69asterix]

si... questo vale per il form, ma per windows?

[power.mobile]

bè allora specifica no?? devi utilizzare le API ma non ho idea di come si faccia... mi dispiace

[MItaly]

Originariamente inviato da x69asterix
si... questo vale per il form, ma per windows?

Spiega meglio... vuoi intercettare il click di finestre di altri programmi?

[icecube_HT]

Originariamente inviato da x69asterix
si... questo vale per il form, ma per windows?

Cosi'...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function LeftButton() As Boolean
    LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000)
End Function

...puoi usare un Timer con un Interval piccolo, e chiamare la funzione LeftButton per verificare se il tasto e' premuto.

Spero possa esserti utile, ciao !

[x69asterix]

Originariamente inviato da MItaly
Spiega meglio... vuoi intercettare il click di finestre di altri programmi?

si, esatto

[x69asterix]

Originariamente inviato da icecube_HT
Cosi'...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function LeftButton() As Boolean
    LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000)
End Function

...puoi usare un Timer con un Interval piccolo, e chiamare la funzione LeftButton per verificare se il tasto e' premuto.

Spero possa esserti utile, ciao !

ok, ma se adesso invece volessi simularlo il click? esempio:conosco "x" "y" in cui voglio simulare il click

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function LeftButton() As Boolean
    LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000)
End Function

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Call LeftButton
If LeftButton = True Then MsgBox "1"
End Sub

[oregon]

Usi la SendInput ...

[x69asterix]

Originariamente inviato da oregon
Usi la SendInput ...

ciao oregon,
dove posso trovare qualche esempio che fa al mio caso?