Ok WindowsHookLib.dll sluzi za pracenje misa i tastature... Evo fajla a i koda:
Public Class Form1
#Region " Variables " 'thies are needed to allow the keys to be logged
Dim WithEvents kHook As New WindowsHookLib.KeyboardHook
Dim WithEvents mHook As New WindowsHookLib.MouseHook
Dim WithEvents EHook As New WindowsHookLib.ClipboardHook
Dim Shiftdown, ctrldown, altdown, started
Dim chrnum
'Alowed control handle list
Dim alowedList As New List(Of IntPtr)
#End Region
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Try
'Install the hooks
kHook.InstallHook()
started = 1
Catch ex As Exception
MessageBox.Show("Failed to install a hook!." & Environment.NewLine & ex.Message, "Hook Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Console.WriteLine(ex.Message)
End Try
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Try
'Remove the hooks
kHook.RemoveHook()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
'you should use this sub for capturing the keys on the press
End Sub
Private Sub kHook_OnKeyDown(ByVal sender As Object, ByVal e As WindowsHookLib.KeyBoardEventArgs) Handles kHook.KeyDown
Me.TextBox1.AppendText(e.KeyCode.ToString)
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Try
'Remove the hooks
kHook.RemoveHook()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
Dodati jedan TextBox i dva dugmeta. Meni je poprilicno lak nacin za pracenje onoga sto se desava na racunaru...
Fajl:
rapidshare.com/files/174859821/WindowsHookLib.rar
|