Filmer le curseur

Soyez le premier à donner votre avis sur cette source.

Vue 3 835 fois - Téléchargée 250 fois

Description

Sa sert a filmer le curseur,Oui c'est completement inutile mais sa montre comment sa servir des api (pour les newbie)
Si quelqun c'est comment detecter un clic ds ,dite moi le car je sais comment le simuler mais pas le detecter...

Source / Exemple :


'Un timer
'Deux command 1 : pour Filmer
                        2 : Pour regarder
'Un checkbox (Pour prendre en compte quand la souris bouge pas ou ne pas le prendre en compte)

'Sa sert a faire bouger le curseur
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)
'Sa sert a trouver la position du curseur
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'On declare les position anciennes si la checkbox n'est pas cocher
Dim oldx As Variant
Dim oldy As Variant
Dim txt As String

'Pour faciliter l'usage de L'api Get position
Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Function Pause(ByVal nbSecondes As Single)
'POur que qunad on regarde le curseur sa n'aille pas trop vite
Dim Tmp As Single
Tmp = Timer
     Do While Timer < Tmp + nbSecondes
         DoEvents
     Loop
End Function

Private Sub Command2_Click()
Timer1.Enabled = False

'On li le fichier de positions
Open App.Path & "\dat" For Input As #1
Do While Not EOF(1)
Line Input #1, a
b = Mid(a, 1, InStr(1, a, ","))
c = Mid(a, InStr(1, a, ",") + 1)
a = SetCursorPos&(b, c)
Pause (0.01)
Loop
Close #1

End Sub

Private Sub Timer1_Timer()

Dim curs As POINTAPI
a& = GetCursorPos(curs)
ab = FreeFile

'Si la souris na pas bouger...
If curs.X = oldx And curs.Y = oldy Then

'Et que on ne prend pas en compte kan elle bouge pas
If Check1.Value = 0 Then
Exit Sub
Else
'Ici c'est si on la prend en compte
GoTo s
End If
End If
s:

oldx = curs.X
oldy = curs.Y

'On enregistre les positions
Open App.Path & "\dat" For Output As #ab
Print #ab, txt & vbCrLf & curs.X & "," & curs.Y
If txt = "" Then GoTo ll
txt = txt & vbCrLf & curs.X & "," & curs.Y
GoTo ok
ll:
txt = curs.X & "," & curs.Y
ok:
Close #ab

End Sub

'C'est tout!

Conclusion :


http://www.php-kode.fr.st <---Venez déposer vos sources PhP ,sa me ferais plaisir :)
Ou encore: 65.94.210.213

Si vous voulez un zip,faite moi signe,Si vous avez un commentaire sur le fait que se sois inutile , et bien garder sa pour vous!
<

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

filippos
Messages postés
50
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
17 octobre 2002
-
Je trouve ca sympa comme prog !!
Tu devrais l'améliorer pr faire un (mouselogger)sur un troyan ou un truc du genre meme si en vb les troyans c pas super !!
bravo
@+ tt le monde
;)
neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
On reverra pas ce mec de sitôt ... ;)
...Mais je comprend, il doit avoir changé, allez voir comment tout le monde ont ete méchant avec ses sources, alors qu'il n'avait encor rien fait de mal... C CHIEN !!
j'ai PITIE de lui .
looll
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Bien dit :)
Les sources de Gravity sont tellement nul pff faire un numero de carte de credit!tu men dira temps...C'est impossible sans algoritme pi lui il prend RND ...pff!
popstatic
Messages postés
46
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
23 juillet 2003
-
Vive le français!!
neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
C'est bizarr ca ...
que deux sources en tout sur le réseau codes-sources, tous des sources de newbie en plus ... tu m'en dira autant, mais moi je ne suis pas aussi negatif, et je me regarde avant de parler. J'aimerai bien voir un de tes programme, mais cette fois-ci qui a de l'allure . Alors ne parle pas Lamerz . Au fond c'est toi le nul !
Je respecte les gens qui prennent le temps de donner une source, quelle qu'elle soit .
- Va donc te cacher -

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.