XProfan

' Include-Pfad anpassen!
 $H C:\Users\user\XProfan\XProfan11\INCLUDE\Windows.ph
Fenêtre 0,0-%maxx,%maxy
Cls
Def IsMouseSwapped(0) ~GetSystemMetrics(~SM_SWAPBUTTON)
'0 = Rechtmaus/1 = Linksmaus
windowtitle "Crazy Souris - Version 1.0 beta"
' Aus den partager: IsMouseSwapped() de David Strutz,
' Maustasten sûrement abfragen (w) de Frank Abbing,
' Mausrad hoch et runter de Dieter Zornow
' CheckIfMousewheel/MiddleKey de Andreas Miethe velours
' Franks improvement betr. Horizontal-Mausrad/Trackball,
' zusammengestellt et um "Lebende Schleife", "Debounce"
' et "Sauberes Beenden"(TM) ergänzt de P. Specht 2009-09
declare x%,y%,z%,LM%,FLT%,tm!,ti!,k&
k&=1000
Cls
Utilisateur Messages $201,$204,$207,$202,$205,$208,$20A

si IsMouseSwapped()=0

    imprimer "             Rechtshänder-souris, aucun Tastenvertauschung"

d'autre

    imprimer "             Linkshänder-souris, Tasten R-L-vertauscht"

endif

z%=0

Si ~GetSystemMetrics(91)

    Inc z%
    Imprimer "             Horizontales Mausrad vorhanden"

EndIf

Si ~GetSystemMetrics(75)

    Inc z%
    Imprimer "             Vertikales Mausrad vorhanden"

EndIf

Si non z%

    Imprimer "             ne...aucune Mausrad vorhanden."

EndIf

z%=~GetSystemMetrics(43)
imprimer "             ";z%;" Tasten à qui souris installiert"
flt%=2
SetTimer 1

Tandis que 1

    WaitInput

    si %clé=2 OU %clé=27:Pause:endif

        Si %UMESSAGE = $20A

            IF HIWORD(&UWPARAM)=120

                PRINT " roue hoch   ":FLT%=2

            ELSE

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

                elseif flt%=0: PRINT " roue runter "

                endif

            ENDIF

        ENDIF

        Si %umessage=$201

            ifnot LM%=1:Imprimer " à gauche gedrückt.   ":LM%=1:endif

            ElseIf %umessage=$204

                ifnot LM%=4:Imprimer " à droite gedrückt.  ":LM%=4:endif

                ElseIf %umessage=$207

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

                    ElseIf %umessage=$202

                        ifnot LM%=2:Imprimer " à gauche losgelassen.":LM%=2:endif

                        ElseIf %umessage=$205

                            ifnot LM%=5:Imprimer " à droite losgelassen.":LM%=5:endif

                            ElseIf %umessage=$208

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

                                EndIf

                                ' Lebende Boucle
                                x%=%Pos:y%=%csrlin' Merk dir wohin tu étais
                                color 10,3:Localiser 2,1:imprimer x%,y%;" ";' et gib ICI kurz la fois quoi aus
                                color 14,1:Localiser 1,1:imprimer %mouseX;»;%mouseY;" "
                                color 15,3:Localiser 1,61:imprimer Date$(0),Time $(0);".";left$(Time $(1),2);
                                color 15,9:Localiser 3,1:ti!=val(time$(1)):imprimer ti!-tm!:tm!=ti!
                                color 0,15:Localiser y%,x%' Restore, wohin du grad étais
                                imprimer "#";' Beliebige weiterlaufende Aktion
                                ' qui selbst pas allzu longtemps dauert
                                cas %csrlin>26:CLS

                            Endwhile

                            Utilisateur Messages 0
                            KillTimer
                            Fin