Inverseur de souris (mouvement)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 197 fois - Téléchargée 47 fois

Contenu du snippet

Un petit bout de code que j'avais vite fait pour le 1er avril. Je vous le donne, ca peut toujours servir pour ceux qui font des faux virus (j'm pas ca!)
Quand on bge la souris vers la gauche par exemple, elle part a droite etc... J'ai aussi mis un truc pour que quand ca arrive pres d'un bord de l'écran, ca ressort de l'autre coté, mais ce que je donne ne fonctionne qu'avec ma résolution d'écran qui est 1152*864

Source / Exemple :


Dim Pos As POINTAPI
Dim test As POINTAPI
Dim LastPos As POINTAPI

Private Sub Form_Load()
GetCursorPos Pos
LastPos = Pos
End Sub

Private Sub Timer1_Timer()
GetCursorPos Pos

If Pos.X <> LastPos.X Or Pos.Y <> LastPos.Y Then
bougéX = Pos.X - LastPos.X
bougéY = Pos.Y - LastPos.Y

SetCursorPos (LastPos.X - bougéX), (LastPos.Y - bougéY)

GetCursorPos test
If test.X >= 1151 Then SetCursorPos 1, Pos.Y
If test.X <= 1 Then SetCursorPos 1150, Pos.Y
If test.Y >= 863 Then SetCursorPos Pos.X, 1
If test.Y <= 1 Then SetCursorPos Pos.X, 862 
'ya plein de truc marrant a essayer, a vous de faire fonctionner votre imagination
End If

 GetCursorPos LastPos
End Sub

''''DANS UN MODULE:
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
    X As Long
    Y As Long
End Type

Conclusion :


C'est pas ma meilleure source mais bon, une de plus!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
58
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
26 août 2006

ca marche pas quand je le met en .vbs
c po en vbs c en koi ?? en .exe en koi ??
si c po le kode pour .vbs komment le faire en .vbs ??
merci de me repondre vite
+++ salut +++
Messages postés
9
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
18 novembre 2003

Sympa tous ces commentaires
Messages postés
85
Date d'inscription
dimanche 2 décembre 2001
Statut
Membre
Dernière intervention
31 décembre 2002

lol forcément l'unité n'est pas la même ! Celle de Screen est comme celle des pages par défault càd elle est en Twips : 1 twips = 15 pixels

If test.X >= Screen.Width / Screen.TwipsPerPixelX - 1 Then SetCursorPos 1, Pos.Y
If test.X <= 1 Then SetCursorPos Screen.Width - 2, Pos.Y
If test.Y >= Screen.Height / Screen.TwipsPerPixelY - 1 Then SetCursorPos Pos.X, 1
If test.Y <= 1 Then SetCursorPos Pos.X, Screen.Height - 2
Bon enfin voila pour ce petit détail ridicule ;-) J'ai tenté de faire une accélération souris moi même... mais ca foire un peu, j'aimerais que tu essaies à ton tour plz, envoie moi un message quand tu l'auras finis :)
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

ha effectivement... tu as raison...
alors tu remplace Screen.Width par ScaleX(Screen.Width, vbTwips, vbPixels) et Screen.Height par ScaleY(Screen.Height, vbTwips, vbPixels). La ca marchera je pense
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002

Merci, j'avais pensé a faire ca, mais je connaissais pas les propriétés screen.????
Seulement je viens d'essayer mais apparemment, l'unité est pas la meme. TAnt pis...
Afficher les 6 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.