Inversion des mouvements de la souris
Publié : mar. 26/sept./2006 11:33
Un petit soft pour rire (si vous le lancer sur le poste d'un collège à son insus !)
Pour arrêter appuyer sur <Echap>
Pour arrêter appuyer sur <Echap>
Code : Tout sélectionner
ExamineDesktops()
Structure Souris
X.l
Y.l
EndStructure
Pos.Souris
Pos\X=100
Pos\Y=100
GetCursorPos_(Pos)
Pre.Souris
Pre\X=Pos\X
Pre\Y=Pos\Y
Repeat
Event.l=WaitWindowEvent(1)
GetCursorPos_(Pos)
Pre\X + (Pre\X-Pos\X)
If Pre\X<0
Pre\X=10
EndIf
Pre\Y + (Pre\Y-Pos\Y)
If Pre\Y<0
Pre\Y=10
EndIf
SetCursorPos_(Pre\X,Pre\Y)
Until GetAsyncKeyState_(#VK_escape)
