Inverseur de souris (mouvement)

Commenter

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

S'inscrire maintenant

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.

Du même auteur (fou volant13)