PROGRAMME QUI ENREGISTRE LES ACTIONS DE LA SOURIS ,LES TOUCHES CLAVIER DE A ->
VicoLaChips2
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
28 janv. 2003 à 18:10
cs_clementpat Messages postés 406 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 25 janvier 2014 - 25 janv. 2014 à 23:57
cs_clementpat Messages postés 406 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 25 janvier 2014 - 25 janv. 2014 à 23:57
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/5812-programme-qui-enregistre-les-actions-de-la-souris-les-touches-clavier-de-a-gt-z-et-le-clavier-numerique
https://codes-sources.commentcamarche.net/source/5812-programme-qui-enregistre-les-actions-de-la-souris-les-touches-clavier-de-a-gt-z-et-le-clavier-numerique
25 janv. 2014 à 23:57
23 juil. 2012 à 18:48
Celui que je tentai de faire depuis une semaine plantais.
8 nov. 2011 à 21:06
8 nov. 2011 à 19:52
Que doisje faire pour que ça fonctionne ?
Merci d'avance
24 juin 2011 à 00:52
24 juin 2011 à 00:49
procorbin@wanadoo.fr
Salut
19 nov. 2010 à 16:00
J'ai beau être aller voir sur le site de Microsoft ainsi que sur le forum, j'ai malheureusement pas trouvé grand chose (même rien du tout mis a part des fichiers installés ici et là sur mon ordinateur sans que cela n'ai rien changé...)
Cordialement Erdnael.
21 oct. 2010 à 22:48
Vous êtes vraiment pénibles.
SVP, respectez les personnes qui passent leur temps à développer
Toutes les infos sont disponibles pourtant...
Il suffit de lire les messages qui précèdent, c'est quand même pas difficile.
21 oct. 2010 à 22:40
me faudrai le logitiel svp je pig rien ..
3 juin 2010 à 13:04
2 juin 2010 à 21:37
2 juin 2010 à 20:16
royjaune@hotmail.fr
Merci,
Walz
4 févr. 2010 à 17:54
31 janv. 2010 à 16:49
De cette sorte, si on envoie les réponses aux problèmes par message privé, d'autres ayant le même problème devront eux aussi demander...
Alors que si on post la réponse aux problèmes directement ici, ceux qui ont le même problème de devraient normalement pas poster ici, dans le cas ou ils lisent toutes les posts...
De cette manière, je ne sais pas comment résoudre mon problème qui est le même que le leur...
Ce fameux VB6FR.DLL alors que j'ai pourtant installé ce qu'a dis Renfield
21 janv. 2010 à 11:48
Toutes les infos sont disponibles pourtant...
Logiciel (exe) à télécharger là : http://www.bonprojet.com/souris_auto2.exe
20 janv. 2010 à 14:08
20 janv. 2010 à 14:05
7 juil. 2009 à 19:43
5 juin 2009 à 19:15
Pour ne pas pourrir le post de Clementpat, pourriez-vous passer en MP (message privé) svp ?
Ou alors faire des recherches sur internet pour savoir comment installer VB6.
Merci de votre compréhension
5 juin 2009 à 18:37
Cela la télécharger puis j'ai fait exécuter, on m'a demander de choisir un emplacement et après un chargement ( j'en ai déduis que c'était l'installation), la fenêtre s'est fermée.
5 juin 2009 à 13:57
as tu bien pris la version française ?
(aucun lien avec VB 9)
5 juin 2009 à 13:12
5 juin 2009 à 13:11
http://www.microsoft.com/downloads/details.aspx?displaylang=fr&FamilyID=9EF9BF70-DFE1-42A1-A4C8-39718C7E381D
5 juin 2009 à 12:20
Lorsque je fait exécuter j'ai le message "the language DLL'VB6FR.DLL' could not found " Problème que je ne suis , d'après les commentaires précédents pas le seul à avoir.
Merci
4 juin 2009 à 19:29
http://www.bonprojet.com/souris_auto2.exe
4 juin 2009 à 18:38
Voilà j'ai télécharger le programme et je ne sais pas du tout comment l'utiliser.
J'ai tous les fichiers mais ne sais lequel ouvrir pour lancer le logiciel.
Je voudrai savoir si vous pouviez m'aider
Merci
3 janv. 2009 à 14:48
Merci beaucoup !
4 juil. 2008 à 19:23
26 juin 2008 à 22:58
26 juin 2008 à 19:15
8 janv. 2008 à 22:34
***********************
'la touche (Slash)
touche(56) = 47
'la touche (Dot)
touche(57) = 46
**********************
46 c'est "SUPPR"
47 c'est "AIDE"
voici le bon code pour les touches :
Donc pour toi
***************
Je voulais rajouter le (.) et le (/)
***************
110 et 111 mais attention il faut les taper sur le pavé numerique
Code des touches :
Constante Valeur Description
vbKeyLButton 1 Bouton gauche de la souris
vbKeyRButton 2 Bouton droit de la souris
vbKeyCancel 3 Touche ANNUL
vbKeyMButton 4 Bouton central de la souris
vbKeyBack 8 Touche RET.ARR
vbKeyTab 9 Touche TAB
vbKeyClear 12 Touche EFFACER
vbKeyReturn 13 Touche ENTRÉE
vbKeyShift 16 Touche MAJ
vbKeyControl 17 Touche CTRL
vbKeyMenu 18 Touche MENU
vbKeyPause 19 Touche PAUSE
vbKeyCapital 20 Touche VERR.MAJ
vbKeyEscape 27 Touche ÉCHAP.
vbKeySpace 32 Touche ESPACE
vbKeyPageUp 33 Touche PG PRÉC.
vbKeyPageDown 34 Touche PG SUIV.
vbKeyEnd 35 Touche FIN
vbKeyHome 36 Touche ORIGINE
vbKeyLeft 37 Touche FLÈCHE VERS LA GAUCHE
vbKeyUp 38 Touche FLÈCHE VERS LE HAUT
vbKeyRight 39 Touche FLÈCHE VERS LA DROITE
vbKeyDown 40 Touche FLÈCHE VERS LE BAS
vbKeySelect 41 Touche SELECT
vbKeyPrint 42 Touche IMPR.ÉCRAN
vbKeyExecute 43 Touche EXÉCUTE
vbKeySnapshot 44 Touche INSTANTANÉ
vbKeyInsert 45 Touche INSER
vbKeyDelete 46 Touche SUPPR.
vbKeyHelp 47 Touche AIDE
vbKeyNumlock 144 Touche VERR.NUM
Les constantes KeyA à KeyZ sont identiques à leurs équivalents ASCII : 'A' à 'Z'
Constante Valeur Description
vbKeyA 65 Touche A
vbKeyB 66 Touche B
vbKeyC 67 Touche C
vbKeyD 68 Touche D
vbKeyE 69 Touche E
vbKeyF 70 Touche F
vbKeyG 71 Touche G
vbKeyH 72 Touche H
vbKeyI 73 Touche I
vbKeyJ 74 Touche J
vbKeyK 75 Touche K
vbKeyL 76 Touche L
vbKeyM 77 Touche M
vbKeyN 78 Touche N
vbKeyO 79 Touche O
vbKeyP 80 Touche P
vbKeyQ 81 Touche Q
vbKeyR 82 Touche R
vbKeyS 83 Touche S
vbKeyT 84 Touche T
vbKeyU 85 Touche U
vbKeyV 86 Touche V
vbKeyW 87 Touche W
vbKeyX 88 Touche X
vbKeyY 89 Touche Y
vbKeyZ 90 Touche Z
Les constantes Key0 à Key9 sont identiques à leurs équivalents ASCII : '0' à '9
Constante Valeur Description
vbKey0 48 Touche 0
vbKey1 49 Touche 1
vbKey2 50 Touche 2
vbKey3 51 Touche 3
vbKey4 52 Touche 4
vbKey5 53 Touche 5
vbKey6 54 Touche 6
vbKey7 55 Touche 7
vbKey8 56 Touche 8
vbKey9 57 Touche 9
Touches du pavé numérique
Constante Valeur Description
vbKeyNumpad0 96 Touche 0
vbKeyNumpad1 97 Touche 1
vbKeyNumpad2 98 Touche 2
vbKeyNumpad3 99 Touche 3
vbKeyNumpad4 100 Touche 4
vbKeyNumpad5 101 Touche 5
vbKeyNumpad6 102 Touche 6
vbKeyNumpad7 103 Touche 7
vbKeyNumpad8 104 Touche 8
vbKeyNumpad9 105 Touche 9
vbKeyMultiply 106 Touche SIGNE MULTIPLICATION (*)
vbKeyAdd 107 Touche SIGNE PLUS (+)
vbKeySeparator 108 Touche ENTRÉE (pavé numérique)
vbKeySubtract 109 Touche SIGNE MOINS (-)
vbKeyDecimal 110 Touche POINT DÉCIMAL (.)
vbKeyDivide 111 Touche SIGNE DIVISION (/)
Touches de fonction
Constante Valeur Description
vbKeyF1 112 Touche F1
vbKeyF2 113 Touche F2
vbKeyF3 114 Touche F3
vbKeyF4 115 Touche F4
vbKeyF5 116 Touche F5
vbKeyF6 117 Touche F6
vbKeyF7 118 Touche F7
vbKeyF8 119 Touche F8
vbKeyF9 120 Touche F9
vbKeyF10 121 Touche F10
vbKeyF11 122 Touche F11
vbKeyF12 123 Touche F12
vbKeyF13 124 Touche F13
vbKeyF14 125 Touche F14
vbKeyF15 126 Touche F15
vbKeyF16 127 Touche F16
8 janv. 2008 à 22:20
8 janv. 2008 à 21:36
8 janv. 2008 à 20:56
8 janv. 2008 à 20:02
Je ne comprends vraiment pas ?
8 janv. 2008 à 19:07
et rien dans mon programme ne le signal , donc la programmation ne fonctionne pas en lecture.
testez avec ";" ou ":" pour voir si cela fonctionne........ d'apres moi cela doit fonctionner.
pour rajouter alors "." et "/" il faut transformer le code pour inclure en plus la touche majuscule .
8 janv. 2008 à 17:21
Voici les modifications effectuées :
******************************************
'initialisation
Public boutondroitenfonce, boutongaucheenfonce, PosX, posY, enregistrement, minu2, minu, norepetition, okdebut, cligno, poschaine
Public norepetitiontouche, codedelatouche
Dim touche(1 To 57)
******************************************
'barre d'espace
touche(37) = 32
'onrajoute les fleches
touche(38) = 37
touche(39) = 38
touche(40) = 39
touche(41) = 40
'la touche (enter)
touche(42) = 13
'la touche (TAB)
touche(55) = 9
'les touche F1 --> F12
'la touche (Slash)
touche(56) = 47
'la touche (Dot)
touche(57) = 46
******************************************
Private Sub apuitouche()For I 1 To 57 '26 lettres de a -> z + 10 chiffres 0->9 + barre d'espace 37 HOME + FLECHES + F1 --> F12 + TAB + Slash + Dot
If (GetAsyncKeyState(touche(I)) And 32768) <> 0 And norepetitiontouche = touche(I) Then Exit Sub
Pourquoi cela ne fonctionne t'il pas ?
Un grand merci d'avance
11 juil. 2007 à 11:55
11 juil. 2007 à 09:53
Je me posais par contre la question suivante :
Lorsqu'on créé un fichier, celui-ci est sauvé sous un format txt et lorsqu'on veut le rejouer, il faut lancer le prog. et aller rechercher le fichier.
Serait-il par hasard possible de travailler à l'envers. Serait-il possible de programmer la chose suivante ? : "Double cliquer sur le fichier .txt pour que celui-ci se charge automatiquement dans le prog."
Pourquoi ? Pour pouvoir réaliser des taches planifiées
Merci pour vos réponses ;-)
16 mai 2007 à 22:45
ou alors mettre la form sur invisible .
pour : bibooo123
voir sur le forum ou sur le site de microsoft
merci a vous pour les commentaires .
16 mai 2007 à 22:34
J'ai fait la modif suivante pour eviter d'enregistrer quand le curseur est sur Form1
As tu une meilleure solution ?
Private Sub Timerrec_Timer()
Dim Retour As Long
gauche = GetAsyncKeyState(1): 'bouton gauche
droite = GetAsyncKeyState(2): 'bouton droit souris
'enregistre
Dim PosCursor As POINTAPI
r& = GetCursorPos(PosCursor)
'on ecrit dans le fichier la position x et la position y
Print #1, PosCursor.X 'efface et écrit...
Print #1, PosCursor.Y 'idem
'la modif
If PosCursor.X * 15 < Form1.Left Or PosCursor.X * 15 > Form1.Left + Form1.Width Or PosCursor.Y * 15 < Form1.Top Or PosCursor.Y * 15 > Form1.Top + Form1.Height Then
etc...
End If
End Sub
A+
23 avril 2007 à 22:20
Super simple à utiliser et vraiment efficace.
Par contre, j'ai un problème. Autant il fonctionne très bien avec XP, autant je ne parviens pas à le faire tourner sur le PC de ma copine disposant de windows 2000, j'ai un message "impssoible de charger le controle common dialog. Votre version COMDLG32.OCX est peut-être obsolète". Y a-t-il moyen de télécharger le fichier en question quelque part pour pâlier à ce prob ?
Encore bravo !!
13 avril 2007 à 14:28
8 avril 2007 à 20:14
je suis un gros debutant svp vous pouvez m aide un peu de courage a note je suis inscrive dans ce site selement parceque je suis besoin de ce programe svp merci davance
7 avril 2007 à 14:03
7 avril 2007 à 12:51
mais ma 1ere probleme c ete la langue vb6fr.dll je crois que c est regle
la 2eme quand j'ouvre ce programe il sa fiche ce message d ereur
<< le composant 'COMDLG32' ou une de ses dependances n'est pas corectement enregistré: un fichier est absent ou incorrect >>
svp aide moi
6 févr. 2007 à 21:37
3 choses à faire : dans Form1
1er : dans General
mettre 55 a la place de 54 :
'********************************
'initialisation
Public boutondroitenfonce, boutongaucheenfonce, PosX, posY, enregistrement, minu2, minu, norepetition, okdebut, cligno, poschaine
Public norepetitiontouche, codedelatouche
Dim touche(1 To 55) 'ici on a mis 55 a la place de 54
'*****************************
2 em : dans Form_Load()
on rajoute :
le code de la touche (TAB) 9
'*****************************
'onrajoute les fleches
touche(38) = 37
touche(39) = 38
touche(40) = 39
touche(41) = 40
'la touche (enter)
touche(42) = 13
'la touche (TAB)
touche(55) = 9
'les touche F1 --> F12
'*********************************
3em : dans apuitouche()
on change 54 par 55
'*******************************************
For I 1 To 55 '26 lettres de a -> z + 10 chiffres 0->9 + barre d'espace 37 + HOME + FLECHES + F1 --> F12 + TAB
If (GetAsyncKeyState(touche(I)) And 32768) <> 0 And norepetitiontouche = touche(I) Then Exit Sub
'*********************************************
6 févr. 2007 à 18:27
j'aimerais bien activer la touche "TAB" j'en aurais bien besoin, je suis un grand débutant, si quelqun pourrai m'aider sa serais sympa, il me faudrai surtout le code que je rajouterais, et aussi a quelle endroit le placer.?
merci bcp!
26 janv. 2007 à 09:09
juste les Runtime VB6FR ....
http://www.microsoft.com/downloads/details.aspx?FamilyID=7b9ba261-7a9c-43e7-9117-f673077ffb3c&DisplayLang=fr
25 janv. 2007 à 23:13
recherche sur le web avec google.fr , il existe un truc a charger pour demarrer les exe , sans posseder VB6
ou alors demande a un mec de ce site de te creer l'instal .......... impossible pour moi de faire l'instal depuis que je suis sur XP ou alors je dois passer par un autre logiciel d'instal , si dans les prochains jours , apres tes recherches tu n'y arrive pas ,,,, recontacte moi .
25 janv. 2007 à 22:16
25 janv. 2007 à 22:09
25 janv. 2007 à 21:24
morphj34@msn.com
29 oct. 2006 à 20:21
29 oct. 2006 à 19:34
20 mai 2006 à 12:41
29 déc. 2005 à 06:44
29 déc. 2005 à 00:11
http://www.bonprojet.com/souris_auto2.exe
28 déc. 2005 à 22:36
merci !
28 déc. 2005 à 20:41
7 août 2005 à 22:46
18 juin 2005 à 21:11
Mais bon c'est bien quand même, je vote 10!
21 mai 2005 à 18:18
samsonit2000@hotmail.com
Merci encore ,
3 févr. 2005 à 19:40
il faut vb6 pour executer ce programme a partir du code .
3 févr. 2005 à 19:29
23 août 2004 à 21:29
Merci
28 juil. 2004 à 12:38
28 juil. 2004 à 03:42
J'ai essayer de dézipper le fichier et ça plante.
SVP me l'envoyer par email pour être certain de la source.
martin.lavoie20@videotron.ca
7 mars 2004 à 19:30
ex : tu peut demarrer un programme en double cliquant sur son icone . je n'ai pas mis de EXE dans la source , car il est preferable pour empecher les virus de compiler soi méme .
dans le programme , il est tres facile de faire reconnaitre d'autre touches ou actions ( en les programmant dans le code )
j'ai essayé de bien commenté le programme pour que l'on puisse l'adapter a un truc precis .
si j'ai ton adresse je vais t'envoyer le EXE .
7 mars 2004 à 17:34
Est-ce que ça marche pour les touche suivante ?
F8
Entrée
flèche gauche
26 févr. 2004 à 14:05
5 janv. 2004 à 22:22
amicalement/
5 janv. 2004 à 18:43
29 janv. 2003 à 15:25
28 janv. 2003 à 21:17
super boulot !!!
28 janv. 2003 à 18:10
Ce serait super si on pouvait planifier avec plusieurs fichiers genre :
3h00 defragC.txt
4h00 defragD.txt
etc...
Autrement bravo pour ce prg, @+, VIC.