Эмуляция нажатий клавиш клавиатуры

[ofolfa]

Всем привет!
Только не кричите что тема обсуждалась уже много раз.
Перепробовал все что нашел. Не работает.
Есть виртуальная машина пробовал и с Virtual PC и с Virtual Box.
На вирт машине блокнот, нужно там набрать текст.
Не хочет работать. Помогите!!! Очень нужно, весь день сидел, ничего не придумал (((
Может кто может протестить на своей машине или может подскажите какие способы должные работать.
Пишу на VB.net, но возможны любые решения, даже на VB6.

Зарание всем спасибо!

[ofolfa]

А можно ли как-то узнать по какому принципу работает экранная клавиатура? Она без проблем отправляем нужные события.

[arvitaly]

А нельзя обмениваться данными по сети???

[Xcode]

Где находиться отправляющая команды программа?

А нельзя обмениваться данными по сети???

С чем? С блокнотом?

[ofolfa]

Нет, по сети нельзя, можно конечно написать клиент-серверное приложение, но это не тот случай.

Программа находится в другой ОС в которой и запущена Вирт машина с блокнотом.

Не понимаю, как работает Экранна клавиатура, которая находится в стандартных программах. Неужели она использует другой принцип.

[Xcode]

Что ни SendInput, ни keybd_event, ни SendKeys, ни SendMessage, ни SetKeyboardState не работают так как тебе надо? Может выложишь свои наработки?

[ofolfa]

Да, все перепробовал, ничего не работает (((
Помогите, очень нужно! (((

Вот последний пример, который остался в проекте

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

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

    Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Const WM_SETTEXT = &HC
        Const WM_KEYDOWN = &H100
        Const WM_KEYUP = &H101
        Const VK_RETURN = &HD

        Dim whwnd As Integer

        Dim hwnd_box As Integer

        Dim comment As String

        comment = "ddddd"

        whwnd = FindWindow(Nothing, "Windows XP [Работает] - Sun xVM VirtualBox")

        hwnd_box = FindWindowEx(whwnd, 0, vbNullString, vbNullString)

        If hwnd_box <> 0 Then
            SendMessage(hwnd_box, WM_SETTEXT, 0, comment)

            Threading.Thread.Sleep(500)

            SendMessage(hwnd_box, WM_KEYDOWN, VK_RETURN, 0)
            SendMessage(hwnd_box, WM_KEYUP, VK_RETURN, 0)

            'this is just to verify that I am catching the child
            TextBox2.Text = hwnd_box
        Else
            SendMessage(whwnd, WM_SETTEXT, 0&, comment)
        End If
    End Sub

[ofolfa]

Может кому денег предложить за помощь? (((
Очень нужно, не могу понять, в чем проблема. Может кто у себя протестить? Или кинуть примеры?

[iGrok]

Может кому денег предложить за помощь? (((
Очень нужно, не могу понять, в чем проблема. Может кто у себя протестить? Или кинуть примеры?

Погоди. Ты хочешь сказать, что у тебя "Экранная клавиатура" корректно отправляет нажатия клавиш в виртуальную машину? 0_o

[ofolfa]

Да, абсолютно корректно

[un1]

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


whwnd = FindWindow(Nothing, "Windows XP [Работает] - Sun xVM VirtualBox")

hwnd_box = FindWindowEx(whwnd, 0, vbNullString, vbNullString)


хмм...на вскидку, как то мало у тебя хэндлов, скорее всего нажатия посылаются не тому объекту...


Никогда не работал с виртуальной машиной, соответственно, хэндл чего ты находишь вот этим кодом :

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

hwnd_box = FindWindowEx(whwnd, 0, vbNullString, vbNullString) 

не ясно, но этого явно не достаточно, как мне кажется....

По идее, искать надо так:

1.Находишь хэндл окна виртуальной машины (это у тебя вроде как успешно получаетя)
2.Там найти хэндл окна блокнота, не знаю, будет ли достаточно иметь хэндл окна вирт. машины, что бы следующей же функией найти окно блокнота, либо надо еще какой то дескриптор вначале получить

Тут правда не ясно, регистрируются ли окна, висящие в ОС вирт. машины, в твоей операционке...

3.Получив хэндл блокнота, полчучить хэнд его текстового поля, а далее уже посылаем символы

Но это только "по идее", на практике же, какие могут быть подводные камни при работе с вирт. машиной хез...

[ofolfa]

Спасибо за ответ!!

1.Находишь хэндл окна виртуальной машины (это у тебя вроде как успешно получаетя)
2.Там найти хэндл окна блокнота, не знаю, будет ли достаточно иметь хэндл окна вирт. машины, что бы следующей же функией найти окно блокнота, либо надо еще какой то дескриптор вначале получить

А как найти хэндл блокнота? Я думаю что никак. Нужно отправить вирт машине сообщение, а она уже сама пусть решает кому его передать.

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

hwnd_box = FindWindowEx(whwnd, 0, vbNullString, vbNullString)

Я там понимаю, что этот код отправляем главному окну, а дальше распределение идет автоматически.
С блокнотом работает в обычной винде, хоть и находил пример что нужно писать "Edit" в параметре.

Никаких больше идей нету? (

[un1]

А как найти хэндл блокнота? Я думаю что никак. Нужно отправить вирт машине сообщение, а она уже сама пусть решает кому его передать

Кому его передать, она безусловно решит, только наврядли это будет блокнот

Поэтому, как я уже и говорил, проверь, регистрируются ли объекты, находящиеся внутри виртуальной машины, твоей операционкой, если да, то найти там Хэндл блокнота не составит проблемы (функции: FindWindowEx, GetWindow). Если же нет, то тогда, полагаю Send/Post message тут не прокатит...

Проверить мона элементратно Spy ++, стандартная тулза бейсика!!!

[Xcode]

Если честно пол дня потратил на этот вопрос... Пытался изучить принцип работы экранной клавиатуры(далее ЭК) и ВМ(использовал крякнутую VMware 6.0.2 с ReactOS liveCD). Никаких значащих для автора успехов добиться не смог, принцип работы ЭК до конца так и не понял , ловил вызывемые функции(из exe и всех dll) и конечно сообщения, пробывал сэмулировать последовательность сообщений, ничего не вышло.

Некоторые результаты:
Хэндлы окон виртуальной ОС найти не получается, что логично.
ЭК насколько я понял без хуков не обходится.
Вправду, интересный вопрос по поводу ЭК, в интернете(google) ничего понастоящему аналогичного не нашел, одни только предположения и исходники очевидных мне, но неверных, либо неполных решений.
Пробывал журнальный хук(http://bbs.vbstreets.ru/viewtopic.php?f=15&t=39360), клавиши при активированной ВМ не ловятся.
Вобщем помогайте

[ofolfa]

Спасибо большое, что пытаетесь мне помочь, надеюсь разберусь и кому-то в будущем тоже помогу!
Нашел интересную библиотку, к сожалению платную,
http://www.mini-tools.com/components/input/index.htm

Что самое интересное, так она без проблем отправляет в две мои Виртуальные Машины.
У кого есть идеи, как она работает?
И, к тому же, она отправляет именно в главный хэндл.

[iGrok]

Тут правда не ясно, регистрируются ли окна, висящие в ОС вирт. машины, в твоей операционке...

Тут, вообще, достаточно просто включить голову. Подумать, к примеру о том, что в ВМ может запускаться другая ОС.. Не Win*. И тогда всё встанет на свои места.

По теме:
Вообще с VirtualBox не работал. Только с WMware. Она, к примеру, при получении фокуса полностью перехватывает ввод. Полностью. Для "реальной машины" работает ТОЛЬКО Ctrl-Alt-Del. А при "потере"(комбинация клавиш, либо CAD) фокуса - деактивируется. Т.е. экранная клавиатура с ней не работает.

А насчёт способа посылки нажатия клавиш в VitrualBox, если экранная клавиатура работает, можно действительно включить Spy++, и посмотреть, что посылается.

З.Ы. Spy++ - не "стандартная тулза бейсика", а скорее "стандартная тулза студии". В комплекте с "чистым" VB6.0 её нет.

UPD:
Mini-Input тоже не смог отправить нажатие в VMware...

[ofolfa]

Она, к примеру, при получении фокуса полностью перехватывает ввод.

Перехватывает ввод с мышки, но не с клавиатуры. Если активируешь окно и начнешь вводить, будет вводиться в блокноте запущенном на Вирт машине.

[ofolfa]

Смотрел Spy++ но не понял, как мне применить сообщения которые отправляет ЭК.

[Xcode]

Вообще с VirtualBox не работал. Только с WMware. Она, к примеру, при получении фокуса полностью перехватывает ввод. Полностью. Для "реальной машины" работает ТОЛЬКО Ctrl-Alt-Del.

А вот и работает...

А насчёт способа посылки нажатия клавиш в VitrualBox, если экранная клавиатура работает, можно действительно включить Spy++, и посмотреть, что посылается.

Проделывал это с VMware, не работает, или просто что-то упустил...

[iGrok]

Она, к примеру, при получении фокуса полностью перехватывает ввод.

Перехватывает ввод с мышки, но не с клавиатуры. Если активируешь окно и начнешь вводить, будет вводиться в блокноте запущенном на Вирт машине.

Стоп. Ты вот сейчас о чём?

Я говорил, что вирт. машина (VMware) полностью перехватывает ВЕСЬ ввод. Т.е. все стандартные сочетния клавиш, кроме CAD для "реальной" машины перестают работать. А если я пытаюсь переключиться обратно на экранную клавиатуру - фокус с ВМ уходит.
Возможно, в VirtualBox не так. Не знаю.

А вот и работает...

Что работает?

Проделывал это с VMware, не работает, или просто что-то упустил...

Ничего не упустил. Это действительно не работает.

[ofolfa]

В VirtualBox так:
Запускаешь блокнот. Уходишь с виртбокса, но окно остается активным, клацаешь на клаве, оно набирает текст в блокноте.
В общем решил, буду юзать библиотеку. Пока кто-то не подскажет другого решения

[un1]

В VirtualBox так:
Запускаешь блокнот. Уходишь с виртбокса, но окно остается активным, клацаешь на клаве, оно набирает текст в блокноте.
В общем решил, буду юзать библиотеку. Пока кто-то не подскажет другого решения

Если ты все это время пытался послать сообщение окну (Sendmessage), попробуй вначале что нибудь типа keybd_event (API функция) либо SendKeys, так полюбе должно работать, если окно активное...

[Xcode]

Xcode писал(а):А вот и работает... Что работает?

Сорри, туплю, ночь уже и поддатый слегка. Я имел ввиду что при щелчке мышкой по кнопкам ЭК, при условии что курсор остается в области блокнота ВМ-ы, в блокноте появляются соответствующие символы.

Ничего не упустил. Это действительно не работает.

Я проверял так: запускал логер сообщений, жал кнопки на ЭК, приходили соответствующие сообщения. Но на посылку их тому же окну из своей программы оно не реагировало.

[Xcode]

Если ты все это время пытался послать сообщение окну (Sendmessage), попробуй вначале что нибудь типа keybd_event (API функция) либо SendKeys, так полюбе должно работать, если окно активное...

А ты возьми и проверь вместо "полюбе", я тоже так думал сначала.

[iGrok]

Xcode писал(а):А вот и работает... Что работает?

Сорри, туплю, ночь уже и поддатый слегка. Я имел ввиду что при щелчке мышкой по кнопкам ЭК, при условии что курсор остается в области блокнота ВМ-ы, в блокноте появляются соответствующие символы.

Ох ты ж ё..
Наконец-то удалось заставить экранку работать.
Она отправляла символы ТОЛЬКО тогда, когда находилась непосредственно над окном VMware. Первые два раза я пробовал, уведя ЭК вниз экрана - под окно ВМ. И при нажатии на клавишу ЭК ВМ теряла фокус, и ввод не принимала.

Похоже, ВМ принимает действия мыши/клавиатуры только тогда, когда имеет фокус.

А ты возьми и проверь вместо "полюбе", я тоже так думал сначала.

Он просто, похоже, до сих пор не понял, что такое ВМ...

UPD:
Mini-Tools работает через SendInput.

UPD2:
Охх.. Не только.
Короче, пиши как пользуешься Mt, я напишу, как оно это делает. Или сам смотри в рефлекторе.
Там есть и вариант с keybd_event, но в связке с Attach/DetachThreadInput.. И многое другое.

[un1]

Он просто, похоже, до сих пор не понял, что такое ВМ...

... ммм и что же это ?

А ты возьми и проверь вместо "полюбе", я тоже так думал сначала.

Ставить ВМ влом

[iGrok]

... ммм и что же это ?

Судя по тому, что "должно полюбэ работать", тот факт, что ты знаешь, что такое "Виртуальная машина" ещё ни о чём не говорит.

И если ты таки понимаешь, то отгда откуда взялось предположение о том, что окна гостевой системы "регистрируются" в основной системе?

[un1]

Судя по тому, что "должно полюбэ работать", тот факт, что ты знаешь, что такое "Виртуальная машина" ещё ни о чём не говорит.

И если ты таки понимаешь, то отгда откуда взялось предположение о том, что окна гостевой системы "регистрируются" в основной системе?

Вывод справедливый Правда, я сразу на счет этого оговорился:

Никогда не работал с виртуальной машиной, соответственно, хэндл чего ты находишь вот этим кодом :

поэтому смысла в этих рассуждениях нет