Mousedown n'importe où dans l'appli

Bonsoir,
Je voudrais pouvoir détecter l'appui sur le bouton de la souris à n'importe quel endroit de mon application, dans n'importe quelle fenêtre sans devoir mettre des mousedown partout. Est-ce possible ? Cela se fait-il par l'intermédiaire d'une API ?

Il te suffit de capturer les événements souris sur une fenêtre (ou un contrôle) avec la fonction API SetCapture, puis de rediriger l'événement KetDown par la suite à la fenêtre qui doit recevoir le message.

Pour plus d'info sur cette fonction, ou pour un exemple concret, je te conseille de télécharger ProgOtoP API Viewer.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Merci beaucoup pour ton aide.

Salut,
Petit extrait d'un keylogger en vb auquel g participé modestement, visible ici à l'adresse :
http://www.vbfrance.com/code.aspx?ID=19045

Ds un module (juste pour que ce soit utilisable partout :
Public Const Pressed = -32767
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer

Ds ta form principale ou tes autres forms :

Un timer nommé timer1 et ...

Private Sub Timer1_Timer()

' Bouton gauche de la souris
If GetAsyncKeyState(vbKeyLButton) = Pressed Then
'Ton code
' Par exemple
MsgBox "Bouton de gauche"
Unload Me
End If

' Bouton droit de la souris
If GetAsyncKeyState(vbKeyRButton) = Pressed Then
'Ton code
' Par exemple
MsgBox "Bouton de droite"
Unload Me
End If

' Bouton milieu de la souris
If GetAsyncKeyState(vbKeyMButton) = Pressed Then
'Ton code
' Par exemple
MsgBox "Bouton du milieu"
Unload Me
End If

End Sub

Ce que j'ai mis ds les if .... c juste pour que tu testes.

Bonne prog


Cordialement

CanisLupus

Merci, je vais voir ce que je peux faire avec tout ça.