Souris magique enregistre et joue la souris

Soyez le premier à donner votre avis sur cette source.

Vue 9 862 fois - Téléchargée 1 025 fois

Description

Ce code est plutot une information sur les APIs de la souris plus qu'un divertissement mais on peut l'utiliser pour un but purement Hack.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
37
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 novembre 2008
1
vrm le meilleur prog de souris que j'ai vu nice ;)
Messages postés
1
Date d'inscription
dimanche 10 juin 2007
Statut
Membre
Dernière intervention
9 août 2007

Salut j'aimerais savoir s'il est possible que se logiciel enregistre les clique avec

merci
Messages postés
3
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
14 octobre 2003

ok, ca m'a bien servi.
je te remercie d'voir passé du temps la dessus. je vé pouvoir comprendre 2 ou 3 chose

a+
Messages postés
192
Date d'inscription
vendredi 2 mars 2001
Statut
Membre
Dernière intervention
10 janvier 2006

Voila, j'ai modifier le code pour qu'il puisse jouer en boucle, en fait j'ai ajouter une variable NmbTour ki s'initialise à 3 lorsque l'on clique sur le bouton Jouer, a toi de modifier cette valeur pour jouer le nombre de fois que tu veux la boucle

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Dim fin As Integer 'fin d'enregistr si pas utilise les 5000
Dim i As Integer
Dim ret As Long
Dim pos As POINTAPI

Dim posx(0 To 5000) As Integer
Dim posy(0 To 5000) As Integer
Dim NmbTour As Integer '---Ajouté

Private Sub Command1_Click()
On Error Resume Next
i = 0
timer_rec.Interval = vitesse
End Sub

Private Sub Command2_Click()
timer_rec.Interval = 0
timer_play.Interval = 0
fin = i
End Sub

Private Sub Command3_Click()
On Error Resume Next
NmbTour = 3 '---Ajouté
fin = i
timer_rec.Interval = 0
i = 0
timer_play.Interval = vitesse
End Sub

Private Sub Form_Load()
fin = 0
End Sub

Private Sub timer_play_Timer()
pos_souris = SetCursorPos(posx(i), posy(i))
i = i + 1
If i fin Then NmbTour NmbTour - 1: i = 0 '---Modifié
If NmbTour 0 Then timer_play.Interval 0 '---Ajouté
End Sub

Private Sub timer_rec_Timer()
ret = GetCursorPos(pos)
posx(i) = Str(pos.x)
posy(i) = Str(pos.y)
txtx = posx(i)
txty = posy(i)
txttimer = i
i = i + 1
If i = 5000 Then
timer_rec.Interval = 0
MsgBox ("fin enregistrement")
End If
End Sub

Private Sub vitesse_Change()
If Len(vitesse) < 2 Then vitesse = 10
End Sub

Voila, en esperant que ces modif te satisfassent :)
Messages postés
3
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
14 octobre 2003

Voila en fait je voulais savoir comment faire pour jouer en boucle l'enregistrement des deplacements de la souris. Pour ca dans ton programme je dois placer une boucle quelque part (je pense, i just a newbie).
SVP dis moi comment faire (pour te souvenir du programme tu peux le retelecharger).

Voila c tout, j'espere que j'était assez claire cette fois ci
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.