PureBoard

Verfasst: **30.03.2009 16:32**

Mein kleiner Aprilscherz
Dreht die Maus um wenn man mit der Maus (physikalisch) nach links fährt, fahrt die Maus (virtuell) nach rechts und umgekehrt. Beendet wird mit Escape, Nur Windows.

Code: Alles auswählen

; Title: MouseInverter.pb
; Demo: No
; GNU GPLv3orHigher
; PB 4.30
; Windows XP
; Description: Inverts mouse movement and swaps mousebuttons
;              WinAPIs(): GetAsyncKeyState
;                         SwapMouseButton
;                         SetCursorPos
;Author(s): Tompazi,

GetAsyncKeyState_(0) ; Empty Buffer

;Examine Desktopsize
ExamineDesktops()
 Width = DesktopWidth(0)
 Height = DesktopHeight(0)

;Examine Mouse Position
 X = DesktopMouseX()
 Y = DesktopMouseY()
 
 SwapMouseButton_(1) ;Swap Mousebuttons

Repeat
 
 Delay(1) ;relieve CPU
 
 ;Check mouse movement
 Repeat
  
  Delay(1) ;relieve CPU
  
  ;Examine New Mouse Position
   X_New = DesktopMouseX()
   Y_New = DesktopMouseY()
   
  ;Calculate difference
   X_DIFF = X - X_New
   Y_DIFF = Y - Y_New
   
 Until X_DIFF <> 0 Or Y_DIFF <> 0 ;Check if mouse was moved
 
 SetCursorPos_(X + X_DIFF,Y+Y_DIFF) ;Set the mouse at the new position
 
 ;Examine New Mouse Position
  X = DesktopMouseX()
  Y = DesktopMouseY()
 
 ;Keep the mouse away from the borders.
  If X =< 0
   X = 1
  ElseIf X => Width - 1
   X = Width -2
  EndIf
  If Y =< 0
   Y = 1
  ElseIf Y => Height - 1
   Y = Height -2
  EndIf
 
Until GetAsyncKeyState_(#VK_ESCAPE) ;has Escape been pushed?

SwapMouseButton_(0) ;Reswap Mousebuttons
  
End ;END
;-----------------------------------
; ShortVersion (30 Lines):
;  
; GetAsyncKeyState_(0)
; ExamineDesktops()
;  Width = DesktopWidth(0)
;  Height = DesktopHeight(0)
;  X = DesktopMouseX()
;  Y = DesktopMouseY()
;  SwapMouseButton_(1)
; Repeat
;  Delay(1)
;  Repeat
;   Delay(1)
;    X_New = DesktopMouseX()
;    Y_New = DesktopMouseY()
;    X_DIFF = X - X_New
;    Y_DIFF = Y - Y_New   
;  Until X_DIFF <> 0 Or Y_DIFF <> 0
;  SetCursorPos_(X + X_DIFF,Y+Y_DIFF)
;   X = DesktopMouseX()
;   Y = DesktopMouseY()
;   If X =< 0
;    X = 1
;   ElseIf X => Width - 1
;    X = Width -2
;   EndIf
;   If Y =< 0
;    Y = 1
;   ElseIf Y => Height - 1
;    Y = Height -2
;   EndIf
; Until GetAsyncKeyState_(#VK_ESCAPE)
; SwapMouseButton_(0)

Vielleicht findet ja noch wer dafür Verwendung

MfG Tompazi

Verfasst: **30.03.2009 16:37**

Sehr nützlich, nur mit den vertauschten Mausbuttons hab ich Probleme

Verfasst: **30.03.2009 16:38**

Ruckelt aber wie Oma unterm Arm.

Verfasst: **30.03.2009 16:41**

DarkDragon hat geschrieben:Ruckelt aber wie Oma unterm Arm.

Also bei mir gehts flüssig falls du das meinst..

MfG Tompazi

Verfasst: **30.03.2009 16:42**

Tompazi hat geschrieben:
DarkDragon hat geschrieben:Ruckelt aber wie Oma unterm Arm.
Also bei mir gehts flüssig falls du das meinst..

MfG Tompazi

Bei mir zittert die Maus wenn ich sie bewege.

Verfasst: **30.03.2009 16:55**

Ich dreh durch, die Mausbuttons bleiben bei mir nach Ende des Programms immer noch vertauscht wie krieg ich das weg?!

Verfasst: **30.03.2009 16:58**

Code: Alles auswählen

SwapMouseButton_(0)

Verfasst: **30.03.2009 18:09**

hi

ich finds lustig xD

interessant ist vor allem, wie schnell sich das gehirn anpasst:
nach ca 1min mit diesem programm hab ich mich shcon halb daran gewhönt - nur die vertauschten mausbuttons - daran muss ich mich noch assimilieren

aber ansonsten: lustig xD

übrigens: scrollrad wurde nicht invertiert!

MfG

teejex

Verfasst: **30.03.2009 18:43**

cxAlex hat geschrieben:Ich dreh durch, die Mausbuttons bleiben bei mir nach Ende des Programms immer noch vertauscht wie krieg ich das weg?!

Nicht per "Kill Program" beenden sondern mit Escape ansonsten.

Code: Alles auswählen

SwapMouseButton_(0)

Vielleicht wärs etwas schwieriger zum umgewöhnen wenn nur eine Achse inventiert wird

MfG Tompazi

Verfasst: **31.03.2009 16:25**

bei mir ruckelt die sache auch ziemlich.
aber trotzdem witzig

PureBoard

MouseInverter (Aprilscherz)

MouseInverter (Aprilscherz)