API detecte Click souris

Version imprimable

28/04/2007, 23h43
avigeilpro

API detecte Click souris

Bonsoir à tous :D
Je cherche une API qui renvoie si l'utilisateur click sur un bouton de la sourie. J'ai une API qui génère ces clicks, mais pas qui détecte. Comme pour le clavier GetKeyState, mais pour la sourie. Quelqu'un connais-t-il ??
D'avance Merci ;)
30/04/2007, 10h18
Vld44

j'ai utilisé ça une fois, je crois que ça s'appelait getinputstate ... ça détecte les entrées donc clavier et souris.
01/05/2007, 11h07
avigeilpro

Je viens de regarder cette API mais elle ne convient pas à ce que je souhaite. Je me rend compte que je me suis mal exprimé. Je cherche une API qui me permette certe de detecter un click de la souris mais aussi quelle bouton, s'il est enfoncé ou relaché. Bref exactement le fonctionnement de l'API GetKeyState mais pour la sourie.
01/05/2007, 16h34
zazaraignée

Il y a une raison pour ne pas utiliser l'événement MouseUp ?
02/05/2007, 03h24
avigeilpro

Bien sûr :mouarf: j'ai oublié de préciser :oops:
La feuille sera invisible ( même réduite en icone dans le systray). Donc les événements click pouront être par exemple lorsque l'utilisateur click sur le poste de travail afin de l'ouvrir.
02/05/2007, 10h32
Vld44

En fait tu peux faire comme ça :

Getinputstate pour savoir si il y a une évènement clavier ou souris

Ensuite, si oui, GetQueueStatus pour savoir s'il y a un évènement QS_MOUSEBUTTON (http://msdn2.microsoft.com/en-us/library/ms644940.aspx)

Ensuite, si oui, GetMessage pour détecter un WM_LBUTTON ou WM_RBUTTON ce qui t'intéresse, à savoir le bouton gauche ou bouton droit.

a+
03/05/2007, 06h11
avigeilpro
J'ai chercher un peu, j'ai trouver des exemples dans API-guide pour GetInputState et GetQueueStatus, j'ai fait un petit bout de code qui je pense est senssé detecter simplement un click quelqu'il soit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim can As Boolean can = False Do If GetInputState Then If GetQueueStatus(QS_MOUSEBUTTON) Then MsgBox "Click" can = True End If End If DoEvents Loop Until can = True
Sur la feuille cela marche très bien, mais dès que je sors de la feuille (exemple : je click sur le bureau) cela ne me le detecte pas :cry:
Quand a l'API GetMessage, je n'ai pas trouvé quoi que ce soit qui puisse m'en faire comprendre le fonctionnement.

Merci de m'aider :P
03/05/2007, 07h45
OhMonBato

GetInputstate ne détecte que pour l'application en cours si je ne dis pas de betise.
03/05/2007, 08h53
avigeilpro

C'est ce que j'avais déduit de mes essais :cry: Une autre API à me proposer pour detecter un click sourie quelqu'il soit ainsi que le bouton de la sourie ???
D'avance merci ;)
03/05/2007, 11h29
Vld44

hum pas d'idée :(

Précise un peu pourquoi t'as besoin de tout ça, peut-être que j'aurai une alternative de derrière les faggots ;)
03/05/2007, 18h17
avigeilpro

Ok, je fait un loggeur d'événement qui devrat les reproduire. C'est à dire que l'on appuie sur un petit bouton enregistrer, l'appli passe en icone, on fait ce qu'on a à faire et enfin on fait une combinaison de touches pour arrêter l'enregistrement. Puis quand on fait Lecture, l'appli repasse en icone mais cette fois elle refait ce que l'on à fait pendant l'enregistrement. J'arrive presque à tout faire (Clavier + mouvement sourie), j'ai les API qui permettent de générer des click sourie, me manque plus qu'a les detecter.
Voila, j'espère avoir été clair dans mes explications ;)
Merci de m'aider ;) :D
03/05/2007, 21h53
Vld44

et quand l'appli est réduite ça ne retient pas les évènements ? Hum ... Embêtant.

Je sèche.

Ah non en fait, je pense que tu dois pouvoir subclasser le bureau de windows, mais là ... Bon courage je ne m'y aventurerais pas, trop peur d'y passer la nuit xD

Grosso modo l'idée est d'insérer ta propre procédure avant la procédure mère du bureau de windows, comme ça tu pourrais éventuellement récupérer les clicks grâce à ce moyen.
04/05/2007, 05h53
avigeilpro

:pleure: :pleure: :pleure: J'ai compris l'idée (très grossomodo) mais quand à ce qu'il faut faire ... euh je ne sais même pas par ou il faudrait commencer. lol.
04/05/2007, 09h26
Vld44

voir déjà si le bureau a un handle. (hWnd)

Une fois qu'il l'a, l'api à utiliser sera setWindowProc je crois.
04/05/2007, 09h49
La Praline

Citation:

Envoyé par Vld44

voir déjà si le bureau a un handle. (hWnd)

En toute objectivité, sans parler programmation en soit, le bureau doit bien avoir un handle... puisqu'on s'en sert pour naviguer grâce à notre OS...
Après reste à voir si il este xploitable en effet...
04/05/2007, 09h53
Vld44

hmm peut-être n'est-ce pas une "form" comme on l'entends en vb, et là ça risque de se compliquer.

edit :

Declare Function GetDesktopWindow Lib "user32" () As Long

Description :
Cette fonction vous retourne le Handle de la fenêtre correspondant au bureau (Celle sur laquelle est affiché le fond d'écran, et les icônes).

edit 2 :

http://megaten.alterlinks.fr/vbtools...ubClassing.php
04/05/2007, 09h55
La Praline

Oui c'est aussi ce que je me demandais...

mais, je le répète encore, en tant qu'amateur, pour ma culture générale, y'a-t-il d'autre moyen, plutôt d'autre... "trucs"(rhô ce professionalisme dans mes termes...:aie: ) qui pourraient remplacer le handle???
04/05/2007, 20h47
avigeilpro

Je viens de trouver comment faire, avec une API, c'est super simple, vous allez rire.
Et ben on utilise l'API GetKeyState, et oui, exactement celle qui permet de detecter les touche du clavier, les VKey de la sourie sont 1,2 et 4 pour les click gauche, droite et du milieu.
Merci quand même.

ps : j'avais commencé ta solution vld44, j'avais aussi le handle du bureau avec la même API que celle que tu as noté, mais je n'ai rien trouver sur SetWindowProc. Par contre je trouvais des info sur SetWindowsHookEx. Bref plus la peine, mais merci infiniment d'avoir chercher ;)
05/05/2007, 18h41
Vld44

ouai ben t'as bien fait parceque vois le bordel pour le subclassing.

edit : mais en fait le problème était qu'une fois la form réduite ne recevait plus les évenements, tu veux dire que getkeystate passe outre cette limitation ?
06/05/2007, 00h37
avigeilpro

ouai :king: je viens de terminer mon programme, et ca marche nickel. La feuille et rendue invisible, un icone dans le systray et GetKeyState detecte Touches et Clicks sans aucun problème. :yaisse2:
L'avantage du GetKeyState est que on peut facilement voir si entre deux appels à l'API une touche à été enfoncée puis relachée. Il y à deux valeurs pour la touche relachée (0 et 1) et pour la touche enfoncée (-128 et -127) et pour une meme touche elles alternes. ;)
04/08/2019, 14h39
m.belaouchi

Api detecte click souris

Si vous pouvez m'indiquer l'API qui detecte le mouvement de la souris ? En parlant.
Vous ne sauriez combien je vous serai reconnaissant
04/08/2019, 18h39
ProgElecT

Salut

Citation:

Envoyé par m.belaouchi

..... l'API qui détecte le mouvement de la souris ? En parlant ....

En parlant:calim2:, là je ne comprend pas.

Il y a une source qui pourrait peut être t’intéresser Ajout d'événements Mouse à des composant ne les ayant pas ou pas tous, plus prise en compte de la roulette
En espérant que ce lien te soit utile.
05/08/2019, 04h31
m.belaouchi

ajout-d-evenements-mouse-composant-ne-ayant-plus-prise-compte-roulette

Merci, pour votre réponse, je crois que je me suis trompé de forum! : car je cherche sur les forums VBA Access comment faire fonctionner getinputstate et doevents pour m'indiquer s'il n'y a pas eu lieu de mouvement de souris pendant un laps de temps (c'est pour un écran de veille typiquement access).
je m'excuse encore une fois.

en réponse à votre message :

Citation:

Envoyé par ProgElecT

Salut
En parlant:calim2:, là je ne comprend pas.

Il y a une source qui pourrait peut être t’intéresser Ajout d'événements Mouse à des composant ne les ayant pas ou pas tous, plus prise en compte de la roulette
En espérant que ce lien te soit utile.

Je ne sais plus où j'ai vu ce code, mais il se rapproche de la demande sauf qu'il traite un clic ou un appui sur une touche du clavier.
Un Label (Label1) sur Form1(ou UserForm) et ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                     (ByVal hwnd As Long, ByVal wMsg As Long, _
                                      ByVal wParam As Long, lParam As Any) As Long
 
 
Private bFIN As Boolean
Const BM_CLICK& = &HF5&
 
Private Sub Form_Load()
Dim lLastAction As Long 'Valeur du Timer pour la dernière action clavier ou souris
Dim lSecondsIdle As Long 'Nombre de secondes depuis la dernière action
Dim iCt As Integer
If App.PrevInstance Then End
 
bFIN = False ' initialisation du flag qui arrêtera "Loop"
Me.Show ' s'assurer que Form1 est affichée
Label1 = "00:00:00"
SendMessage frmIDLE.hwnd, BM_CLICK&, 0&, 0&
 Do Until bFIN = True
 
    For iCt = 0 To 255 'parcourt toutes les touches
        If GetAsyncKeyState(iCt) <> 0 Then ' si une touche est enfoncée, remet à zéro le compteur
            lLastAction = Timer
        End If
        DoEvents ' rend la main au système et/ou à l'utilisateur
    Next iCt
    lSecondsIdle = Timer - lLastAction ' Retourne le temps d'inactivité (souris et clavier)
    ConvTime lSecondsIdle
 Loop
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ' Arrête Loop
    bFIN = True
    ' S'assure que l'application prend fin
    End
End Sub
 
Sub ConvTime(TM As Long)
  Dim H&, M&, S&
  H = TM \ 3600
  M = (TM - H * 3600) \ 60
  S = TM - H * 3600 - M * 60
  'Affiche la durée d'inactivité dans un Label
  Label1 = Right("00" & CStr(H), 2) + ":" + Right("00" & CStr(M), 2) + ":" + Right("00" & CStr(S), 2)
End Sub

J'ai ajouté la Sub ConvTime juste pour voir la durée écoulée entre 2 clics