XProfan

' Incluir-Pfad adaptar!
 $H C:\Users\user\XProfan\XProfan11\INCLUDE\Windows.ph
Ventana 0,0-%maxx,%maxy
Cls
Def IsMouseSwapped(0) ~GetSystemMetrics(~SM_SWAPBUTTON)
'0 = Rechtmaus/1 = Linksmaus
windowtitle "Crazy Ratón - Versión 1.0 beta"
' Aus el Teilen: IsMouseSwapped() de David Strutz,
' Maustasten sicher abfragen (w) de Frank Abbing,
' Mausrad hoch y runter de Dieter Zornow
' CheckIfMousewheel/MiddleKey de Andreas Miethe samt
' Franks improvement betr. Horizontal-Mausrad/Trackball,
' zusammengestellt y en "Lebende Schleife", "Debounce"
' y "Sauberes Beenden"(TM) ergänzt de P. Pájaro carpintero 2009-09
declarar x%,y%,z%,LM%,FLT%,tm!,ti!,k&
k&=1000
Cls
Mensajes del usuario $201,$204,$207,$202,$205,$208,$20A

if IsMouseSwapped()=0

    imprimir "             Rechtshänder-Ratón, no Tastenvertauschung"

más

    imprimir "             Linkshänder-Ratón, Tasten R-L-vertauscht"

endif

z%=0

If ~GetSystemMetrics(91)

    Inc z%
    Imprimir "             Horizontales Mausrad vorhanden"

EndIf

If ~GetSystemMetrics(75)

    Inc z%
    Imprimir "             Vertikales Mausrad vorhanden"

EndIf

Caso negativo z%

    Imprimir "             Kein Mausrad disponible."

EndIf

z%=~GetSystemMetrics(43)
imprimir "             ";z%;" Tasten a ratón installiert"
flt%=2
SetTimer 1

Mientras que 1

    WaitInput

    if %key=2 O %key=27:Romper:endif

        If %UMESSAGE = $20A

            IF HIWORD(&UWPARAM)=120

                PRINT " Rad hoch   ":FLT%=2

            ELSE

                if flt% : flt%=abs(flt%)-1

                elseif flt%=0: PRINT " Rad runter "

                endif

            ENDIF

        ENDIF

        If %umessage=$201

            ifnot LM%=1:Imprimir " Links gedrückt.   ":LM%=1:endif

            ElseIf %umessage=$204

                ifnot LM%=4:Imprimir " Rechts gedrückt.  ":LM%=4:endif

                ElseIf %umessage=$207

                    ifnot LM%=7:Imprimir " Mitte gedrückt.   ":LM%=7:endif

                    ElseIf %umessage=$202

                        ifnot LM%=2:Imprimir " Links losgelassen.":LM%=2:endif

                        ElseIf %umessage=$205

                            ifnot LM%=5:Imprimir " Rechts losgelassen.":LM%=5:endif

                            ElseIf %umessage=$208

                                ifnot LM%=8:Imprimir " Mitte losgelassen. ":LM%=8:endif

                                EndIf

                                ' Lebende Bucle
                                x%=%Pos:y%=%csrlin' Merk dir wo du warst
                                color 10,3:Localizar 2,1:imprimir x%,y%;" ";' y gib HIER kurz algo de
                                color 14,1:Localizar 1,1:imprimir %mouseX;":";%mouseY;" "
                                color 15,3:Localizar 1,61:imprimir Date$(0),Time$(0);".";left$(Time$(1),2);
                                color 15,9:Localizar 3,1:ti!=val(time$(1)):imprimir ti!-tm!:tm!=ti!
                                color 0,15:Localizar y%,x%' Restore, wo du grad warst
                                imprimir "#";' Beliebige weiterlaufende Aktion
                                ' el incluso no allzu largo dauert
                                caso %csrlin>26:CLS

                            Endwhile

                            Mensajes del usuario 0
                            KillTimer
                            End