Помогите с исходником записи движений мыши и нажатий клавиш

[sQx]

Может кто встречал исходник записи движений и нажатий клавиш мыши, а также запись нажатий клавиш на клаве...
Желательно последующее восспроизведение...

[KiloGraf]

Где нарыл - не помню... Придется выложить у себя. Но это то, что ты просил.

[sQx]

Спасибо...

[Лёха_Virus]

кстати делал такую штуку... очень забавно над юзверями развлекаться с такой прогой сначала действия запишешь а поом на их компе запустишь =) гг

[i'm pissed]

вот для клавы тока подделай под себя

[SHURUP]

А никто, часом, не встречал класс для мышки? Там и операции с курсорами были и с кликами, и передвижение. Другими словами всё кроме обработки колеса (я так понимаю, на ВБ это вообще невозможно).
Где-то видел, найти не могу.

[Лёха_Virus]

я кажется через АПИшки делал и для мыши. правда не помню сейчас какие. но это вполне возможно.

[sQx]

а есть у кго пример попроще?

[KiloGraf]

Код: Выделить всё

Private Type POINTAPI
  X As Long
  Y As Long
End Type
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI
Private Sub Form_Load()
  SetCapture Me.hwnd
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  SetCapture Me.hwnd
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  'Get the current cursor position
  GetCursorPos Pt
  Me.CurrentX = 0
  Me.CurrentY = 0
  'Clear the screen
  Me.Cls
  Me.Print "Cursor position:"
  'Print the mouse coцrdinates to the form
  Me.Print "X:" + Str$(Pt.X) + " Y:" + Str$(Pt.Y)
  Me.Print " (Press ALT-F4 to unload this form)"
  SetCapture Me.hwnd
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  SetCapture Me.hwnd
End Sub


[tyomitch]

Кэпчур неизбежно потеряется, если переднее окно - не твоей нити. Без хука не обойтись.

[KDima]

(я так понимаю, на ВБ это вообще невозможно).

На VB Net есть экземпл!

[SHURUP]

Ну то на ВБ.НЕТ! А На обычном VB - Нет!
(извиняюсь за каламбур)

[_Мика_]

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Type POINTAPI
x As Long
y As Long
End Type
Dim S As Integer

Dim pnt As POINTAPI

Private Sub Command1_Click()
Timer1 = True
End Sub

Private Sub Command2_Click()
Timer1 = False
Timer2 = False
End Sub

Private Sub Command3_Click()
Timer2 = True
S = 0
End Sub

Private Sub Command4_Click()
List1.Clear
List2.Clear
End Sub

Private Sub Timer1_Timer()
GetCursorPos pnt
List1.AddItem Str$(pnt.x)
List2.AddItem Str$(pnt.y)
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
S = S + 1
SetCursorPos List1.List(S), List2.List(S)

If S = List1.ListCount - 1 Then Timer2 = False
End Sub

[KiloGraf]

...насчет самого верхнего примера: согласен... Налеплено всякой бяки много. Но, пример живой! Бяку то лишнюю обрезать ведь можно.

[sQx]

...насчет самого верхнего примера: согласен... Налеплено всякой бяки много. Но, пример живой! Бяку то лишнюю обрезать ведь можно.

К сожелению, у меня нету времени обрезать, мне желательно уже готовый найти...

Спасибо всем кто помогал, буду разбираться с тем примером...
Но если у кого-нить есть реальный просто пример, прошу скидать... буду очень благодарен...
Мне нужно не только мышь, а еще и клава...