| Вопрос: Мышь за хвост из СистемТрея! | Добавлено: 21.01.05 20:05 |
Автор вопроса:  Dark Engine | Web-сайт: www.wentas.2bb.ru | ICQ: 343191665 |
| Как отследить координаты курсора мыши вне своей программы? Как задать эти координаты? Предположительно, программа в SystemTray, на экране Word, VisualBasic, игра или DOS-секция. Программа следит за перемещением курсора и, в случае чего корректирует его траекторию. Огромная просьба: ответ желательно с примером! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 21.01.05 20:12 |
| (GetCursorPos, SetCursorPos) + таймер/хук | ||
|
Номер ответа: 2 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #2 | Добавлено: 21.01.05 20:14 |
|
Можно так:
Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Sub Timer1_Timer()  im Point As POINTAPI
im res As Long
im sBuffer As String * 255
GetCursorPos Point res = GetWindowText(WindowFromPoint(Point.x, Point.y), sBuffer, 255) Me.Caption = Left(sBuffer, res) End Sub |
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 21.01.05 22:53 |
| SetCapture | ||
Страница: 1 |