Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 520 fois - Téléchargée 49 fois
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
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...
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.