PROGRAMME QUI ENREGISTRE LES ACTIONS DE LA SOURIS ,LES TOUCHES CLAVIER DE A -&GT; Z ,ET LE CLAVIER NUMERIQUE

Information sur la source

Catégorie :Souris, Clavier, etc. Niveau : Initié Date de création : 28/01/2003 Date de mise à jour : 28/01/2003 17:35:53 Vu / téléchargé: 15 907 / 2 131

Auteur : clementpat

Site perso

Ecrire un message privé

Note :

9,69 / 10

Commentaire sur cette source (49)

Ajouter un commentaire et/ou une note

Description

ce programme fait travailler votre pc quand vous n'etes pas là
il permet de recreer ce que vous avez programmer:demarrage de programme , copier coller, inscrire du texte
ou des chiffres etc .......
voir l'aide dans le programme
je m'en sert : pour trouver + de source sur KASSA chaque 9 minute
               pour convertir plusieurs fichiers video dans la nuit
               decouper plusieurs vcd quand je ne suis pas là
               demarrer ma connection sur le net , et enregistrer mes mails
on peut charger un fichier d'action , alors que le programme est actif
j'y est inclus un arret d'urgence pour tester l'enregistrement.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

souris_auto
- arret.frm 3 659 octets
- arret.frx805 octets
- Form2.frm 5 076 octets
- Modulearret.bas 503 octets
- MSSCCPRJ.SCC198 octets
- page.htm 2 843 octets
- rouge.bmp 1 566 octets
- souris_auto.frm 19 036 octets
- souris_auto.frx3 934 octets
- souris_auto.vbp 812 octets
- souris_auto.vbw 189 octets
- vert.bmp 1 566 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de clementpat

Sources de la même categorie

Toutes les sources de la catégorie Souris, Clavier, etc.

Commentaires

Commentaire de VicoLaChips2 le 28/01/2003 18:10:13

C'est d'la balle ton truc -;)
Ce serait super si on pouvait planifier avec plusieurs fichiers genre :
3h00 defragC.txt
4h00 defragD.txt
etc...
Autrement bravo pour ce prg, @+, VIC.
Commentaire de slayer le 28/01/2003 21:17:55

ptin , c'est de balle ton truc , sa vaut son 10 !!!

super boulot !!!
Commentaire de clementpat le 29/01/2003 15:25:03

merci cela fait plaisir :)
Commentaire de abhoryo le 05/01/2004 18:43:56

Bravo c trop utile pour un bon nombre de tache comme me reconnecter à internet ou lancer des application. dommage qu'on puisse pas charger un fichier au demarrage ou que la souris ne puisse pas etre bouger en meme temps que la manip.
Commentaire de clementpat le 05/01/2004 22:22:47

Merci a toi pour ton commentaire ; j'ai essayé de commenter au maximun le programme , pour qu'il soit adaptable et transformable au besoin .oui ,charger un fichier au demarrage serait un plus.
amicalement/
Commentaire de NeoToto le 26/02/2004 14:05:56

Super !
Commentaire de grandux le 07/03/2004 17:34:35

Il serait possible d'avoir un exe ?
Est-ce que ça marche pour les touche suivante ?
F8
Entrée
flèche gauche
Commentaire de clementpat le 07/03/2004 19:30:14

salut , ce programme , enregistre les touches de a -> z la barre espace , et le clavier numerique ; plus toutes les action de la souris : copier coller , double clique simple cilque etc .
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 .
Commentaire de martinlavoie20 le 28/07/2004 03:42:43

Bonjour,
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
Commentaire de clementpat le 28/07/2004 12:38:46

salut a toi je viens de recharger sur le site mon programme y a pas de probleme . essaye encore y doit avoir un probleme de ton coté .
Commentaire de CyrHud le 23/08/2004 21:29:09

SAlut, j'ai Dl ton code, pareil pour moi, si tu peux me faire parvenir le exe se serait sympas !

Merci
Commentaire de arbying le 03/02/2005 19:29:42

Salut j'ai téléchjarger le programme mais je ne sais pas l'executer :( . Il ma faut sans doute un autre programme non? Merci de m'informer ;)
Commentaire de clementpat le 03/02/2005 19:40:22

envoyez moi votre adresse pour l'exe .

il faut vb6 pour executer ce programme a partir du code .
Commentaire de samsonit2000 le 21/05/2005 18:18:29

Salut serais tu m'envoyer l'exe stp

samsonit2000@hotmail.com
Merci encore ,
Commentaire de tekila_bandita le 18/06/2005 21:11:35

on appelle ça aussi des "key loggers"....
Mais bon c'est bien quand même, je vote 10!
Commentaire de taggle le 07/08/2005 22:46:21

need le exe aussi lol :p virus2000fr@hotmail.com
Commentaire de Xetra_fr le 28/12/2005 20:41:57

Bonjour j'aurai aussi besoin de l'Exe :) Xetra_fr@hotmail.com
Commentaire de barjox le 28/12/2005 22:36:18

bonjour, moi aussi besoin du .exe
merci !
Commentaire de clementpat le 29/12/2005 00:11:32

Vous pouvez le charger là :

http://www.bonprojet.com/souris_auto2.exe
Commentaire de Xetra_fr le 29/12/2005 06:44:57

Merci :))
Commentaire de ratala le 20/05/2006 12:41:15

Genial à part les "file already open" : 9/10
Commentaire de akiraenfac le 29/10/2006 19:34:50

pas mal! une option pour accelerer ce qui a été enregistré(comme ca ca va encore plus vite!)
Commentaire de clementpat le 29/10/2006 20:21:05

pour changer la vitesse , il faut changer la vitesse initiale du timer, mais attention au double cliques ..............
Commentaire de morphy034 le 25/01/2007 21:24:19

salut je voudrai bien l'exe stp merci
morphj34@msn.com
Commentaire de clementpat le 25/01/2007 22:09:35

http://www.bonprojet.com/souris_auto2.exe
Commentaire de morphy034 le 25/01/2007 22:16:40

desole de t'embeter mais sa ne marche pas quand je clique dessus sa me dis the language DLL 'vb6fr.dll' could not be found
Commentaire de clementpat le 25/01/2007 23:13:37

Pour faire fonctionner cet EXE , il te faut sur ton PC ........visual basic 6

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 .
Commentaire de Renfield le 26/01/2007 09:09:28 administrateur CS

Il ne faut pas VB6 !

juste les Runtime VB6FR ....
http://www.microsoft.com/downloads/details.aspx?FamilyID=7b9ba261-7a9c-43e7-9117-f673077ffb3c&DisplayLang=fr
Commentaire de manoahmxt le 06/02/2007 18:27:55

Super programme!
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!
Commentaire de clementpat le 06/02/2007 21:37:38

Voici comment rajouter la touche(TAB)

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

'*********************************************
Commentaire de w romeo w le 07/04/2007 12:51:10

salut je suis besoin de ce logiceil
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
Commentaire de clementpat le 07/04/2007 14:03:01

J'ai deja eut ce probleme , je ne souviens pas en detail de la procedure pour le resoudre, regarde sur le forum ,et aussi sur le site microsoft.fr
Commentaire de w romeo w le 08/04/2007 20:14:09

salut

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
Commentaire de w romeo w le 13/04/2007 14:28:21

wizzzzzz
Commentaire de bibooo123 le 23/04/2007 22:20:01

Genialissime !
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 !!
Commentaire de akim77 le 16/05/2007 22:34:03

Vraiment efficace ce programme.

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+
Commentaire de clementpat le 16/05/2007 22:45:09

oui pourquoi pas !

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 .
Commentaire de bibooo123 le 11/07/2007 09:53:51

Merci Clementpat ! J'ai effectivement trouvé la solution sur le site de Microsoft.

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 ;-)
Commentaire de clementpat le 11/07/2007 11:55:22

oui cela doit etre réalisable .
Commentaire de ultimate20010 le 08/01/2008 17:21:37

Un grand merci à vous pour votre application ! Je voulais rajouter le (.) et le (/) à la manière dont vous avez rajoutez le Tab. Mais malheureusement ceci ne fonctionne pas :(

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
Commentaire de clementpat le 08/01/2008 19:07:06

Il faut que je verifie le code , mais je pense que cela ne fonctionne pas , car pour avoir le "." et le "/" il faut avoir appuyé d'abord sur la touche "majuscule".........
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 .
Commentaire de ultimate20010 le 08/01/2008 20:02:02

Ok, merci pour votre réponse mais j'ai pensé à ca donc j'ai essayé avec le signe "$" mais pareil :s...

Je ne comprends vraiment pas ?
Commentaire de clementpat le 08/01/2008 20:56:20

DOnc il faut transformer le code pour que quand la touche majuscule est maintenue , celui-ci le prenne en compte !
Commentaire de ultimate20010 le 08/01/2008 21:36:07

Hmmm je pense m'être mal exprimer( j'ai un clavier Belge ) Peut-être qu'en france ca change mais chez moi la le signe "$" se met sans activer les majuscules...
Commentaire de clementpat le 08/01/2008 22:20:42

Ha ok , j'avais lu "S" a la place de "$", je vais regarder le code pour voir le probleme.
Commentaire de clementpat le 08/01/2008 22:34:40

Je viens de voir le probleme dans ta transformation tu n'utilise pas les bon code de touche :

***********************
'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
Commentaire de Losteo37 le 26/06/2008 19:15:32

Moi jai un pblem ac vista il me met une erreur DLL
Commentaire de clementpat le 26/06/2008 22:58:51

je n'ai pas vista ..........!
Commentaire de louparnold le 04/07/2008 19:23:23

je cherche comment on peut mettre fleche gauche fleche droite alternativement du clavier avec clavier +.....