XProfan

' Include-way adjust!
 $H C:\Users\user\XProfan\XProfan11\INCLUDE\windows.ph
Window 0,0-%maxx,%maxy
Cls
Def IsMouseSwapped(0) ~GetSystemMetrics(~SM_SWAPBUTTON)
'0 = Rechtmaus/1 = Linksmaus
windowtitle "Crazy Mouse - Version 1.0 beta"
' from whom sharing: IsMouseSwapped() of David Strutz,
' Mouse buttons sure inquire (w) of Frank Abbing,
' Mausrad high and down of Dieter Zornow
' CheckIfMousewheel/MiddleKey of Andreas Miethe velvet
' Franks improvement betr. Horizontal-Mausrad/Trackball,
' zusammengestellt and circa "Lebende Schleife", "Debounce"
' and "Sauberes Beenden"(TM) complement of P. woodpecker 2009-09
declare x%,y%,z%,LM%,FLT%,tm!,ti!,k&
k&=1000
Cls
User Messages $201,$204,$207,$202,$205,$208,$20A

if IsMouseSwapped()=0

    print "             right-hander-mouse, no Tastenvertauschung"

else

    print "             Linkshänder-mouse, Keys R-L-vertauscht"

endif

z%=0

If ~GetSystemMetrics(91)

    Inc z%
    Print "             Horizontales Mausrad vorhanden"

EndIf

If ~GetSystemMetrics(75)

    Inc z%
    Print "             Vertikales Mausrad vorhanden"

EndIf

Ifnot z%

    Print "             no Mausrad present."

EndIf

z%=~GetSystemMetrics(43)
print "             ";z%;" Keys on the mouse installiert"
flt%=2
SetTimer 1

While 1

    WaitInput

    if %key=2 OR %key=27:Break:endif

        If %UMESSAGE = $20A

            IF HIWORD(&UWPARAM)=120

                PRINT " wheel high   ":FLT%=2

            ELSE

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

                elseif flt%=0: PRINT " wheel down "

                endif

            ENDIF

        ENDIF

        If %umessage=$201

            ifnot LM%=1:Print " left pressed.   ":LM%=1:endif

            ElseIf %umessage=$204

                ifnot LM%=4:Print " right pressed.  ":LM%=4:endif

                ElseIf %umessage=$207

                    ifnot LM%=7:Print " middle pressed.   ":LM%=7:endif

                    ElseIf %umessage=$202

                        ifnot LM%=2:Print " left losgelassen.":LM%=2:endif

                        ElseIf %umessage=$205

                            ifnot LM%=5:Print " right losgelassen.":LM%=5:endif

                            ElseIf %umessage=$208

                                ifnot LM%=8:Print " middle losgelassen. ":LM%=8:endif

                                EndIf

                                ' Lebende Loop
                                x%=%Pos:y%=%csrlin' Merk you where you were
                                color 10,3:Locate 2,1:print x%,y%;" ";' and gib HIER short something from
                                color 14,1:Locate 1,1:print %mouseX;":";%mouseY;" "
                                color 15,3:Locate 1,61:print Date$(0),time$(0);".";left$(time$(1),2);
                                color 15,9:Locate 3,1:ti!=val(time$(1)):print ti!-tm!:tm!=ti!
                                color 0,15:Locate y%,x%' Restore, where You strain were
                                print "#";' arbitrary continues to run action
                                ' The self not too long lasts
                                case %csrlin>26:CLS

                            Endwhile

                            User Messages 0
                            KillTimer
                            End