INVERSEUR DE SOURIS (MOUVEMENT)
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 à 10:45
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1784-inverseur-de-souris-mouvement
https://codes-sources.commentcamarche.net/source/1784-inverseur-de-souris-mouvement
1 juin 2005 à 19:02
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 +++
26 mai 2003 à 15:53
16 nov. 2002 à 15:59
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 :)
10 avril 2002 à 13:29
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
10 avril 2002 à 11:04
Seulement je viens d'essayer mais apparemment, l'unité est pas la meme. TAnt pis...
10 avril 2002 à 10:45
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
par
If test.X >= Screen.Width - 1 Then SetCursorPos 1, Pos.Y
If test.X <= 1 Then SetCursorPos Screen.Width - 2, Pos.Y
If test.Y >= Screen.Height - 1 Then SetCursorPos Pos.X, 1
If test.Y <= 1 Then SetCursorPos Pos.X, Screen.Height - 2
je pense ke ca marchera...
A+
$hîv@n