| Вопрос: Управление курсором мыши | Добавлено: 26.07.04 00:35 |
Автор вопроса:  Grayich | Web-сайт: grayich.narod.ru | ICQ: 208280504 |
|
Приветы
Что-то немогу придумать как его реализовать установить курсор мыши в заданные координаты и произвести клик |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 26.07.04 01:08 |
| SetCursorPos + mouse_event = ответ | ||
|
Номер ответа: 2 Автор ответа: Grayich ICQ: 208280504 Вопросов: 56 Ответов: 164 |
Web-сайт: Профиль | | #2 | Добавлено: 26.07.04 01:51 |
| А примерчика негде не завалялось ? | ||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 26.07.04 02:15 |
К чему пример, к двум АПИ  К первой точно найти не сложно, ко второй искать, найду навряд-ли... могу-лишь описание из MSDN выдрать...
Хотя вот что знает APIGuide, он хоть по моим вопросам ничего и не знает, зато на многие другие отвечает  А так, бесполезная штука, имхо...
1. ************************************* 'This Project needs '- two timers, interval=100 '- a button 'in general section Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = True Timer2.Interval = 100 Timer2.Enabled = True Command1.Caption = "  raw Text"
End Sub 'This will draw an Ellipse on the active window Sub Timer1_Timer() im Position As POINTAPI
'Get the cursor position GetCursorPos Position 'Draw the Ellipse on the Screen's DC Ellipse GetWindowDC(0), Position.x - 5, Position.y - 5, Position.x + 5, Position.y + 5 End Sub Sub Command1_Click() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net im intCount As Integer, strString As String
strString = "Cool, text on screen !" For intCount = 0 To 30 'Draw the text on the screen TextOut GetWindowDC(0), intCount * 20, intCount * 20, strString, Len(strString) Next intCount End Sub Private Sub Timer2_Timer() 'Draw the text to the active window TextOut GetWindowDC(GetActiveWindow), 50, 50, "This is a form", 14 End Sub 2. ************************************* 'Before you start this program, I suggest you save everything that wasn't saved yet. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Form_Activate() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net o
'Simulate a mouseclick on the cursor's position mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI oEvents
Loop End Sub |
||
Страница: 1 |