CLIC-CLIC - COMPTER LE NOMBRE DE CLICS DE VOTRE SOURIS

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 21 août 2008 à 03:47
lorent1 Messages postés 1 Date d'inscription vendredi 7 décembre 2007 Statut Membre Dernière intervention 9 mars 2011 - 9 mars 2011 à 14:23

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47655-clic-clic-compter-le-nombre-de-clics-de-votre-souris

lorent1 Messages postés 1 Date d'inscription vendredi 7 décembre 2007 Statut Membre Dernière intervention 9 mars 2011
9 mars 2011 à 14:23

bonjour,

merci pour ce post, je suis novice dans le domaine.
une fois telecharger, qu'est ce que je dois faire pour lancer le programme?
merci de votre aide,
laurent.

bdgta Messages postés 63 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 septembre 2008
8 sept. 2008 à 09:07

merci architexkte. Ce code source va m'être très utile.

arhitekte Messages postés 5 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 8 septembre 2008
8 sept. 2008 à 03:57

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long

Dim clidroit
Dim cligauche

Private Sub Timer2_Timer() 'clik gauche
Dim Retour41 As Long
Retour41 = GetAsyncKeyState(1)
If (Retour41 And 3) <> 0 Then
cligauche = cligauche + 1
cli_gauche.Text = cligauche
End If

Dim Retour42 As Long
Retour42 = GetAsyncKeyState(2) ' clik droit
If (Retour42 And 3) <> 0 Then
clidroit = clidroit + 1
cli_droit.Text = clidroit
End If
End Sub

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
7 sept. 2008 à 03:10

regarde dans les sources existantes avec "hook souris" ou "évènement souris"
++

bdgta Messages postés 63 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 8 septembre 2008
6 sept. 2008 à 22:11

Bonjour,

Merci de votre précieuse aide. Je viens de modifier le code source.

Mais il me reste un problème. Pouvait vous m'expliquer comment récupérer l'événement clic sachant que le programme doit prendre en compte tous les clics
effectué sur n'importe quelle fenêtre.

Merci d'avance.

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
21 août 2008 à 03:47

salut,

# Public NombreDeClicMilieu
# Public NombreDeClicGauche
# Public NombreDeClicDroit
pas de type? ...

# Fichier = App.Path & "\Clic-clic.ini"
pas de déclaration?

commence chaque entête par OPTION EXPLICIT pour forcer la relève d'erreur et t'obliger à déclarer toutes les variables

# If (Dir$(App.Path + "\Clic-clic.ini") <> vbNullString) Then
les API INI se charge de créer le fichier, pas besoin de tester l'existence
de plus la fonction DIR avec "$" n'existe pas...

# Set AddStart = CreateObject("WScript.Shell")
NON, sera détecté comme un virus. utilise les API
(voir www.codyx.org)

le noyau du code est dans un timer à 10ms..., non il faut récupérer l'évènement du click, pas boucler.....

tant qu'à observer le click, une évolution pourrait être de mesurer la distance parcourue.

et tant qu'à faire, pourquoi pas un journal avec statistiques et graphique... :)

tel quel y'a pas grand chose de bon (pour ne pas dire clairement que tout est faux)

Discussions similaires

Détecter un clic de souris dans tout l'écran (non seulement le form) ?

compteur de clics

Programme de Triche au Srabble

Detecter un clic dans un cercle

Coordonnées du curseur de la souris suite à clic hors form

Votre réponse

Discussions similaires