Работа с клавай

[FolderTEMP]

Как с помощью ВБ произвести нажатие какой-либо клавиши, или кнопки мыши?

[Amed]

1) SendKeys
2) keybd_event
3) mouse_event

Использование ищем в поиске

[FolderTEMP]

Спасибо, конечно, но примерчик не дашь?:)

[hCORe]

Создаешь новую форму, кидаешь туда кнопку и текстовое поле. Названия оставляешь по умолчанию.

Открываешь редактор кода, пишешь:

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

Private Sub Command1_Click()
On Error Resume Next
    Text1.SetFocus
    Text1.Text = vbNullString
    SendKeys "Здрасте, я очень лохматый и злой. "
    SendKeys "И я сегодня совсем не ел!"
    SendKeys "+{HOME}"
    SendKeys "^C"
    SendKeys "{END}"
    SendKeys " "
    SendKeys "^V"
End Sub

Сохраняешь проект, запускаешь (F5), нажимаешь на кнопку, наслаждаешься зрелищем. И см. справку по SendKeys в MSDN.

[FolderTEMP]

Спасибо

[FolderTEMP]

А как насчет мыши?

[A.A.Z.]

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

'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
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
        DoEvents
    Loop
End Sub


[Kovu]

Создаешь новую форму, кидаешь туда кнопку и текстовое поле. Названия оставляешь по умолчанию.

Открываешь редактор кода, пишешь:

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

Private Sub Command1_Click()
On Error Resume Next
    Text1.SetFocus
    Text1.Text = vbNullString
    SendKeys "Здрасте, я очень лохматый и злой. "
    SendKeys "И я сегодня совсем не ел!"
    SendKeys "+{HOME}"
    SendKeys "^C"
    SendKeys "{END}"
    SendKeys " "
    SendKeys "^V"
End Sub

Сохраняешь проект, запускаешь (F5), нажимаешь на кнопку, наслаждаешься зрелищем. И см. справку по SendKeys в MSDN.

Зрелищем насладился такого количества знаков вопроса я ещё не видел

[hCORe]

Вопросики где? В самом тексте поста или уже при вставке кода в VB?

Если при вставке, то:
а) выстави в настройках шрифт типа "Courier New CYR" - обязательно CYR (кириллический);
б) перед вставкой переключись на русскую раскладку клавиатуры.
Также можно поправить настройки кодовых страниц в реестре. Ищи по слову "NLS".

Если в самом тексте, то я "перевставлю" и все будет хорошо