Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.97/29: Рейтинг темы: голосов - 29, средняя оценка - 4.97
0 / 0 / 1
Регистрация: 12.04.2014
Сообщений: 19

Как имитировать нажатия клавиш

15.04.2014, 19:49. Показов 6143. Ответов 30
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Знаю такое уже было, а именно тут:

http://www.sql.ru/forum/932574... e-klavishi

Не знаю как реализовать на ВБ.
Алгоритм:
Клавиша j нажата
sleep 5000
Клавиша j отжата.

Так как это сделать??!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.04.2014, 19:49
Ответы с готовыми решениями:

Как перехватывать нажатия клавиш в системе?
Проблема такая, я системный админ в школе, мне нужно при нажатии определеных клавишь (вне программы) что бы прога совершала какието...

Как можно фиксировать нажатия клавиш управления курсором?
Здравствуйте. Подскажите, как можно фиксировать нажатия клавиш управления курсором (вверх, вниз, влево, вправо), Print Screen и других...

Имитация нажатия клавиш
Здравствуйте. Пожалуйста помогите с кодом. Нужно написать программу, что бы при нажатии "Q" нажималась ПКМ затем через долю...

30
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
15.04.2014, 21:14
Студворк — интернет-сервис помощи студентам
ByVal означает что переменная не возвращаеться
а создаеться ее клон внутри функции

там возвращается значение функции ScanKeys
1
Модератор
10069 / 3914 / 886
Регистрация: 22.02.2013
Сообщений: 5,863
Записей в блоге: 79
15.04.2014, 21:14
Лучший ответ Сообщение было отмечено Systemtemp как решение

Решение

Используй для этого keybd_event, примеров море.
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
15.04.2014, 21:16
я с помощъю SendKeys сделал программу запускающюю архив с паролем
0
Модератор
10069 / 3914 / 886
Регистрация: 22.02.2013
Сообщений: 5,863
Записей в блоге: 79
15.04.2014, 21:17
FelixMacintosh, нет. Для строковых переменных это означает перевод строки из BSTR (Unicode) в ANSI (strz), передача этой строки в Api функцию, после вызова Api функции VB из этого буфера преобразует в BSTR (Unicode). Для других переменных, передается значение по значению.
0
15.04.2014, 21:18

Не по теме:

ну это наверное никому неинтересно ..

0
Модератор
10069 / 3914 / 886
Регистрация: 22.02.2013
Сообщений: 5,863
Записей в блоге: 79
15.04.2014, 21:20
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
ну это наверное никому неинтересно ..
Не надо просто тогда распространять лжеинформацию если сам не знаешь .
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
15.04.2014, 21:22
Цитата Сообщение от The trick Посмотреть сообщение
FelixMacintosh, нет. Для строковых переменных это означает перевод строки из Unicode в ANSI (strz), передача этой строки в Api функцию, после вызова Api функции VB из этого буфера преобразует в BSTR (Unicode).
я и говорю что тот мой код очень старый но он работает темнеменее
0
0 / 0 / 1
Регистрация: 12.04.2014
Сообщений: 19
15.04.2014, 21:26  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
Используй для этого keybd_event, примеров море.
Накопал:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_CONTROL = &H11
Const VK_MENU = &H12
Const VK_ESCAPE = &H1B
 
Private Sub ShowStartMenu()
Call keybd_event(VK_CONTROL, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)
End Sub
 
Private Sub Command1_Click()
Call ShowStartMenu
End Sub
отсюда: Готовые решения и полезные коды на Visual Basic 6.0

НО тут для пуск делают, тем более я так и не понял, как это делается
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
15.04.2014, 21:28
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
ну это наверное никому неинтересно ..
это я про себя сказал после реплики о том что распароливать архивы никому не интересно
не обижайся пожалуйста, это не тебе ...
нам с тобой предстоит сделать еще много полезных программ
2
0 / 0 / 1
Регистрация: 12.04.2014
Сообщений: 19
15.04.2014, 21:41  [ТС]
Й-Й-Йес!!! !!!
Сделал!
Call keybd_event(VK_J, 0, 0, 0)
Sleep 2000
Call keybd_event(VK_J, 0, KEYEVENTF_KEYUP, 0)
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
15.04.2014, 21:44
Лучший ответ Сообщение было отмечено Systemtemp как решение

Решение

Вот эксэшник внутри которого идет набор сочетаний клавиш
чтоб вызвать справку экселя !
Миниатюры
Как имитировать нажатия клавиш  
Вложения
Тип файла: rar Справка VB.rar (123.3 Кб, 13 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.04.2014, 21:44

Эмуляция нажатия клавиш
Здравствуйте форумчане ! Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate ("Блокнот") , true ...

Эмуляция нажатия клавиш
Хочу написать программу, что бы она сама выполняла определенные действия клавиатуры за меня. как это возможно сделать?8-)

Имитация нажатия клавиш в приложении
в игре нужно постоянно нажимать пробел! подскажите как сделать чтобы это было автоматически?

Отслеживание нажатия комбинаций клавиш
как это сделать? есть примеры?

Имитация нажатия клавиш в стороннем окне
Я знаю текст заголовка окна. Как мне передать в него нажатия клавиш и в том числе специальных - таких как esc, enter? Можно пойти иным...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
Новые блоги и статьи
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL
8Observer8 07.11.2026
Содержание блога | English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .
Проверка полного ФИО в типовом справочнике
Maks 07.11.2026
Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .
Про "Windows must die!"
kumehtar 04.11.2026
Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .
Красочные поля с номером страницы svg+background-image
russiannick 04.11.2026
Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную.
russiannick 02.11.2026
Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru