Mouse Events in Console

[Michael Hartlef]

Hi folks, script works fine here too. MouseTrap, do you have a ball mouse or a led mouse? Later ones can be affected by light rays from your environment. I noticed this with my old logitech mouse sometimes. Even no one touched the mouse, the cursor was moving.

[RobertoBianchi]

Hello MouseTrap,

did you tried to change the mouse (and/or port) and run the script again?
The Console_InKey() function was build using WIN32 standard API so I'm really not expecting this oddity behaviour.

Thank you very much and best regards,
Roberto

[ReneMiner]

It's an older thread but I append this here to keep the informations together:

What parameters give information about mousewheel-delta - so how many ticks up or down?

[ReneMiner]

push up again- still same question:

is there a possibility to get direction of mousewheel?

Uses "Console" 

Dim s As String 
Dim i As Long

PrintL "Please press 'q' to exit."

Do
   s = Console_InKey()
   sleep(0)
   i = len(s)
   select case i
      case 1
          PrintL "You pressed the " + s + " key."
      case 2
          Print "You pressed an extended key: " + Hex$(Asc(s, 2))
          '--Check second char of returned string
          Select Case Asc(s, 2)
            Case %VK_OEM_PLUS
              PrintL " + (plus)"
            Case %VK_OEM_COMMA
              PrintL " , (comma)"
            Case %VK_OEM_MINUS
              PrintL " - (minus)"
            Case %VK_OEM_PERIOD
              PrintL " . (period)"
            Case Else
              PrintL " ... something else"
          End Select 
      case 3
        Select Case Asc(RIGHT$(s, 1))
             case %CONSOLE_MOUSE_MOVED    
                 PrintL "You moved the mouse to" + Str$(Asc(LEFT$(s,1))) + "," + LTrim$(Str$(Asc(Mid$(s, 2,1)))) 
             case %CONSOLE_DOUBLE_CLICK  
                 PrintL "You double clicked to" + Str$(Asc(LEFT$(s,1))) + "," + LTrim$(Str$(Asc(Mid$(s, 2,1)))) 
             case %CONSOLE_LBUTTON
                 PrintL "You pressed the left button" 
             case %CONSOLE_RBUTTON
                 PrintL "You pressed the right button" 
             case %CONSOLE_MBUTTON
                 PrintL "You pressed the middle button" 
             case %CONSOLE_MOUSE_WHEELED
                 PrintL "Mouse wheeled" 
        End Select
      end select
LOOP UNTIL (i OR s = "q")

[Petr Schreiber]

Hi Rene,

I think it is not possible using current version of the Console module, but maybe you could suggest it as feature - it should be doable with help of API function.
ReadConsoleInput > INPUT_RECORD structure > MOUSE_EVENT_RECORD substructure, because they say the following for MOUSE_WHEELED:

If the high word of the dwButtonState member contains a positive value, the wheel was rotated forward, away from the user. Otherwise, the wheel was rotated backward, toward the user.

Petr