Мышь за хвост из СистемТрея!

[Went]

Как отследить координаты курсора мыши вне своей программы? Как задать эти координаты? Предположительно, программа в SystemTray, на экране Word, VisualBasic, игра или DOS-секция. Программа следит за перемещением курсора и, в случае чего корректирует его траекторию.

[tyomitch]

GetCursorPos и SetCursorPos.

[Went]

А ежли поподробнее? Как выглядит полная Declar'ация, примерчик, если можно...

[Konst_One]

а поиск на что?
или MSDN

[Qubicz]

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type

[PUNK-GRUNGER]

Public Type POINTAPI
x As Long
y As Long
End Type

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

dim coor as POINTAPI
Private Sub Timer1_Timer()
call getcursorpos(coor)
me.caption = coor.x & ":" & coor.y
End Sub

[GM]

Насчет SetCursorPos:

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

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
sub main()
call setcursorpos(0,0) 'устанавливает курсор в верхний левый угол
end sub


[Max!]

А если дапустим надо во время записи движения мышки ещё и клики учитывать ! ??

[tyomitch]

А если дапустим надо во время записи движения мышки ещё и клики учитывать ! ??

Тогда спасёт журнальный хук.

[KDima]

А если дапустим надо во время записи движения мышки ещё и клики учитывать ! ??

Тогда спасёт журнальный хук.

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

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Public Const VK_LBUTTON As Long = &H1
Public Const VK_MBUTTON As Long = &H4
Public Const VK_RBUTTON As Long = &H2

Public Sub Timer1_Timer ()
If GetAsyncKeyState(VK_LBUTTON) Then
MsgBox "Хватит Кликать!!!!!!"
End If
End Sub