[RESOLVED] Global Mouse Hook

[Emcrank]

Ok ive been searching for 2 days now, .paul. that demo link you sent me i couldn't figure which bit went where so i gave up. All i need is a hook for when the left and right mouse button is clicked. AHhhhhhhhhhhhhhhhhhhhh please someone help me this is driving me insane, Im trying to find the shortest possible way. Thanks in advance.

[MonkOFox]

If it is a form app... just handle the form's mouseclick event:

Public Sub Form1_MouseClick(sender as object, e as mouseeventargs)
 
if e.Button = Windows.Forms.MouseButtons.Left then
 
else if e.Button = Windows.Forms.MouseButtons.Right then
 
 
end if
 
End Sub

[Emcrank]

Does the title not say Global. It needs to be system wide like even if its not clicking a form.

[MonkOFox]

Oh well in that case:

Public Class Form1
 
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        t = New Threading.Thread(New Threading.ThreadStart(AddressOf threadfunc))
        t.Start()
 
 
    End Sub
 
    Public Sub threadfunc()
        While running
            Dim pressed As Boolean = KeyStatus(Keys.LButton)
            If pressed Then
                MessageBox.Show("L mouse button pressed")
            End If
        End While
    End Sub
 
    Public Shared ReadOnly Property KeyStatus(ByVal Key As Keys) As Boolean
        Get
            If Key = Keys.LButton AndAlso My.Computer.Mouse.ButtonsSwapped Then
                Key = Keys.RButton
                MessageBox.Show("right button pushed")
            ElseIf Key = Keys.RButton AndAlso My.Computer.Mouse.ButtonsSwapped Then
                Key = Keys.LButton
                MessageBox.Show("Lbutton button pushed")
            End If
            Return GetAsyncKeyState(Key) And &H8000US
        End Get
    End Property
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        running = False
        t.Join()
    End Sub
 
End Class

It will messagebox "L mouse button pressed" everytime you click the button and no matter where you click (even outside the form).

Justin

Oh and "Global" to one person may mean a totally different thing to another, without futher elaboration of course.

[Emcrank]

Thankyou for the reply, 1 problem i get an error on the While running part

Public Sub threadfunc()

        While running   <----- HERE

            Dim pressed As Boolean = KeyStatus(Keys.LButton)

            If pressed Then

                MessageBox.Show("L mouse button pressed")
            End If

        End While

    End Sub

The error is: running is not declared

[Emcrank]

bbump

[MonkOFox]

No problem, just define the running variable at the top of the class:

Public Class Form1
 
Private running as Boolean = true
 
...

Just a variable I made up so I can make the thread end when the app/form is closed.

Justin

[Emcrank]

lol im stupid haha, also a new problem i didn't see before
t is not declared
What do i need to declare that as at the top because i know its not a boolean

[Emcrank]

Ok done that, declared it as a Threading.Thread
It notices when i click the left mouse button but doesn't do anythin when i click the right mouse button

[Emcrank]

ok fixed it

[MonkOFox]

The thread I made keeps checking for just the LButton Click.

Just declare and create a new thread and assign it to a new function that does the following:

Public Sub threadfunc2()
        While running
            Dim pressed As Boolean = KeyStatus(Keys.RButton)
            If pressed Then
                MessageBox.Show("R mouse button pressed")
            End If
        End While
    End Sub

Justin

[MonkOFox]

Awesome, glad it worked out : )

Justin

[Emcrank]

Resolved and Repped +