Inverseur de souris (mouvement)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 520 fois - Téléchargée 49 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
tH3 GuItArIsTe 666 Messages postés 58 Date d'inscription jeudi 12 mai 2005 Statut Membre Dernière intervention 26 août 2006
1 juin 2005 à 19:02
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 +++
Bladelamerz Messages postés 9 Date d'inscription lundi 28 avril 2003 Statut Membre Dernière intervention 18 novembre 2003
26 mai 2003 à 15:53
Sympa tous ces commentaires
cs_Nil Messages postés 85 Date d'inscription dimanche 2 décembre 2001 Statut Membre Dernière intervention 31 décembre 2002
16 nov. 2002 à 15:59
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 :)
cs_shivan Messages postés 363 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 25 août 2003
10 avril 2002 à 13:29
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
fou volant13 Messages postés 55 Date d'inscription vendredi 29 juin 2001 Statut Membre Dernière intervention 2 février 2002
10 avril 2002 à 11:04
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.