Printable View
After installing the hook, test the MouseDown event for the left mouse button and start the timer if so. In the MouseUp event, test for the left mouse button and stop the event. See the example given in post #1 for detailed info as to how to install the hook and handle the events.
i cant get it to work, if u know how exactly it should look plz post it here
Hey,
My question would be, as per your other thread, what have you tried?
It is not enough to simply say that it does not work. Myself, Obi and VBDT have all used the library to do variations of what you are asking, so it definitely DOES work.
Here are the steps that you need to follow:
1) Add a reference to the library in your project (Right Click on the Project in the solution explorer and select Add Reference, and browse to the DLL)
2) Create two buttons and put the following in their click events:
And then you will need to create two events handlers similar to these:Code:Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
'Install the mouse hook
Me.MouseHook1.InstallHook()
Catch ex As Exception
MessageBox.Show(ex.Message)
Form1.Log.WriteException(ex, TraceEventType.Error)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
'Remove the mouse hook
Me.MouseHook1.RemoveHook()
Catch ex As Exception
MessageBox.Show(ex.Message)
Form1.Log.WriteException(ex, TraceEventType.Error)
End Try
End Sub
These event handlers handle the events that are raised by the library. You will obviously need to remove the code which writes to the textbox, and rather start and stop your timer instead.Code:Private Sub MouseHook1_MouseDown(ByVal sender As Object, ByVal e As WindowsHook.MouseEventArgs) Handles MouseHook1.MouseDown
'Set the mouse down Handled property
e.Handled = Me.HandleMouseCheckBox.Checked And Not Me.mList.Contains(CType(sender, IntPtr))
'Print the mouse down data
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("===================== MouseDown")
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Handled: " & e.Handled)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Button: " & e.Button.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Clicks: " & e.Clicks)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Delta: " & e.Delta)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Location: " & e.Location.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Control Handle: " & sender.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("===================== End MouseDown")
End Sub
Private Sub MouseHook1_MouseUp(ByVal sender As Object, ByVal e As WindowsHook.MouseEventArgs) Handles MouseHook1.MouseUp
'Set the mouse up Handled property
e.Handled = Me.HandleMouseCheckBox.Checked And Not Me.mList.Contains(CType(sender, IntPtr))
'Print the mouse up data
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("===================== MouseUp")
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Handled: " & e.Handled)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Button: " & e.Button.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Clicks: " & e.Clicks)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Delta: " & e.Delta)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Location: " & e.Location.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("Control Handle: " & sender.ToString)
Me.DisplayTextBox.AppendText(System.Environment.NewLine)
Me.DisplayTextBox.AppendText("===================== End MouseUp")
End Sub
You will also need the following code to declare an instance of MouseHook:
GaryCode:Friend WithEvents MouseHook1 As WindowsHook.MouseHook
In the Button3_Click and Button4_Click event handlers, it would also be wise to check the proper state of the hook - you wouldn't want to try and install a hook which has already been installed.
can i put the hook to install on openning and close on exiting the form?
Hey,
Sure, there is nothing to stop you putting the installation of the hook somewhere else, but as obi mentioned, you should make sure that the hook isn't already registered.
Gary
ok, i put two buttons, and when i click to install hook this comes up:
http://i39.tinypic.com/21azigm.jpg
and, when not debugging theres no errors
Hey,
What does the IDE tell you is going wrong? There has got to be an error generated?!?
What is it?
Did you follow all the steps as I laid them out?
Gary
it says: NullReferenceException was unhandled
and, i followed all the steps u said
Hey,
Not meaning to be blunt, but if you have followed all the steps that I have lined out, then the application should be working.
To recap, here are the exact steps that I have just carried out, and the application is working as I expect it to....
1) Create a new project
2) Add a reference to the WindowsHookLib.dll
3) Added a New Object called MouseHook1 and a New Timer called myTimer
4) Created event handlers for the Form Load and Form Closing Event
5) Added code to Install and Remove the hook in these event handlers
6) Created the event handlers for the global mouse up and down events
7) Added code to Start and Stop the Timer in these event handlers
8) Ran the application
9) It works
Here is the final code (obviously, this is a basic version that doesn't account for error handling and which will need to be modified):
GaryCode:Public Class Form1
Dim WithEvents MouseHook1 As New WindowsHook.MouseHook
Dim myTimer As New Timer
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.MouseHook1.RemoveHook()
Me.MouseHook1.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MouseHook1.InstallHook()
End Sub
Private Sub MouseHook1_MouseDown(ByVal sender As Object, ByVal e As WindowsHook.MouseEventArgs) Handles MouseHook1.MouseDown
myTimer.Start()
End Sub
Private Sub MouseHook1_MouseUp(ByVal sender As Object, ByVal e As WindowsHook.MouseEventArgs) Handles MouseHook1.MouseUp
myTimer.Stop()
End Sub
End Class
i followed those steps, and checked about 10 times the code but this keeps coming up when i try to start the form: NullReferenceException was unhandled
Have you copied and pasted the code that I have just given you?
I have literally just run that code, and it works fine.
Gary
i wrote the SAME code earlier and it wont work
Try adding the New keyword when declaring the hook.
Instead of
useCode:Dim MouseHook1 As MouseHook
Code:Dim MouseHook1 As New MouseHook
this was the problem (i finnaly got it working now):
firs i declared this:
Friend WithEvents MouseHook1 As WindowsHook.MouseHook
and now i used obi1kenobi's way
thx, works great
You are missing my point, you can't have written the SAME code!! All other things being equal, the code that I have posted works, your doesn't.Quote:
Originally Posted by Erco21
Gary
@gep13: In post #63, you seem to have missed the constructor call and the MouseHook was never instantiated, thus leading to the exception.
Hey,
The sample application seems to have separated the instantiation of the MouseHook into two separate lines, hence, what I put in post #63 does not have the New Keyword, and that was an oversight on my part.
However, you will see that the code in post #70 does have the New Keyword declared, and copying and pasting of this code would have resulted in it working.
Gary
Is there any chance that this example could be updated to support VB 2010 ?
Thanks!
Hi,Quote:
Originally Posted by Calab
I am not aware of any issues with framework 4. If there is one than provide the error please.
Hi VBDT,
its fascinating. I downloaded ya Code cause I thought, I'm to stupid. Seems so. First of all: I use VB.Net 2010 Express under Win7. Well. I opened ya source and started it. Works perfect. I can hook and all. I wrote similar code on my own and it didn't work. Now I took your code and copied it into a classes and stuff under 2010. Well. Guess what. It doesn't work. Can you confirm or perhaps even solve me that riddle?
Hi VBDT, thanks a lot for your help! I want the latest version but I don't know how to get there, here is the page when I click "here": http://ww38.code2point.com/Post?id=4
Please tell me how to get the latest version!
Thanks again as I am new here!
Hi Friends,
I got that you are using Low level WH_KEYBOARD_LL to hook from the Keyboard,
Please tell me how to make the same sub InstallHook using WH_KEYBOARD?
I need to hook from WH_KEYBOARD to combine this with the Raw Input to block the input from special keyboard which i only want to use for my application only, do not want this keyboard works for another application.
Thanks,
Public Sub InstallHook()Quote:
Originally Posted by nhanvvqsqn
If Me._state = HookState.Uninstalled Then
Dim hinstDLL As IntPtr = Runtime.InteropServices.Marshal.GetHINSTANCE( _
Reflection.Assembly.GetExecutingAssembly().GetModules()(0))
Me._hKeyboardHook = UnsafeNativeMethods.SetWindowsHookEx( _
UnsafeNativeMethods.WH_KEYBOARD_LL, Me._keyboardProc, hinstDLL, 0)
If Me._hKeyboardHook = IntPtr.Zero Then
'Failed to hook. Throw a HookException
Dim eCode As Integer = Runtime.InteropServices.Marshal.GetLastWin32Error
Throw New KeyboardHookException(New System.ComponentModel.Win32Exception(eCode).Message)
Else
If Me._state <> HookState.Installed Then
Me._state = HookState.Installed
Me.OnStateChanged(New WindowsHook.StateChangedEventArgs(Me._state))
End If
End If
End If
End Sub
this thread is 14 years old and VBDT didn't came back since 2020....