1. Клавиши
2. Мышь
Что такое хуки?Денис писал(а):хуки на mouse move и keypress + таймер... ничего сложного
<DllImport("kernel32.dll")> _
Friend Shared Function GetTickCount() As Integer
End Function
<DllImport("user32.dll", EntryPoint:="GetLastInputInfo")> _
Friend Shared Function GetIdleTime(<MarshalAs(UnmanagedType.Struct)> ByRef plii As PLASTINPUTINFO) As Boolean
End Function
<StructLayout(LayoutKind.Sequential)> _
Friend Structure PLASTINPUTINFO
Public cbSize As Integer
Public dwTime As Integer
End Structure
Friend Function SystemIdleTime() As Integer
Dim Result As Integer
Dim L As External32.user32.PLASTINPUTINFO
L.cbSize = Marshal.SizeOf(L)
External32.user32.GetIdleTime(L)
Result = CInt(Fix(TimeSpan.FromMilliseconds(External32.kernel32.GetTickCount - L.dwTime).TotalSeconds))
Return Result
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 99