Не отжимаются клавиши Shift и Ctrl

[vitaliy4us]

После использования Send("{LSHIFT down}{LCTRL down}") .........., а затем Send("{LSHIFT up}{LCTRL up}") клавиши SHIFT и CTRL не отжимаются (по крайней мере какая-то из них), что не позволяет нормально продолжать работу скрипта. Как побороть?

 

[Ganibal95]

А по отдельности зажать не как?

 

[vitaliy4us]

По отдельности то же самое. Причем, зажатым, похоже, остается только CTRL.

 

[zlo-kazan]

А обязательно зажимать?
Просто сколько использую эмуляции клавиатуры... всегда обходился "+!^"

send("+!{N}")

[box title=Модераторам]
Ошибка!
Нет прав на удаление благодарности с этого сообщения! [/box]

 

[agikon]

без всего кода никто вам не сможет помочь. олько весь код надо вылаживать. может вы не так чтото пишите.никто ж этого без всего кода не поймёт. например я делал зажим клавишь на несколько секунд и всё работало.

 

[vitaliy4us]

;Чтение текста с участка экрана при помощи программы Kleptomania.
;Запускаем notepad, вставляем в него текст, зажимаем клавиши CTRL и SHIFT (комбинация для активации Kleptomania). При этой нажатой комбинации выделяем область текста, 	;которая с помощью программы Kleptomania читается и копируется в буфер обмена. После этого отпускаем клавиши CTRL и SHIFT, присваиваем значение буфера обмена 
;переменной $char и выводим его в окне сообщений.
	
Run("C:\WINDOWS\notepad.exe")
WinWaitActive("Безымянный - Блокнот")
Sleep(500)
WinSetState("Безымянный - Блокнот", "", @SW_MAXIMIZE)
Sleep(500)
Send("Это должно быть скопировано в буфер обмена")
Sleep(500)
Send("{LCTRL down}{LSHIFT down}")
MouseClickDrag("left", 0, 50, 350, 70)
Sleep(500)
Send("{DOWN}")
Sleep(500)
Send("{ENTER}")
sleep(500)
Send("{LCTRL up}{LSHIFT up}") ;Вот здесь клавиши CTRL и SHIFT должны отпускаться, но клавиша CTRL не хочет.
sleep(500)
$Char = ClipGet()
MsgBox(0, "Прочитано из буфера обмена", "Значение выделенного фрагмента = " & $Char)

Добавлено:

Сообщение автоматически объединено: 8 Окт 2011

Появилась такая мысль: может кто-нибудь подскажет как можно очистить буфер клавиатуры? Может быть тогда информация о нажатии клавиши будет удалена и она окажется отпущенной?

 

[Yashied]

DllCall('user32.dll', 'int', 'keybd_event', 'int', 0x10, 'int', 0x02, 'int', 0, 'ptr', 0) ; SHIFT UP
DllCall('user32.dll', 'int', 'keybd_event', 'int', 0x11, 'int', 0x02, 'int', 0, 'ptr', 0) ; CTRL UP
DllCall('user32.dll', 'int', 'keybd_event', 'int', 0x12, 'int', 0x02, 'int', 0, 'ptr', 0) ; ALT UP

 

[vitaliy4us]

Если в случае Send("{LCTRL up}{LSHIFT up}") оставался нажатым только CTRL, то с применением DllCall не хочет отжимать ни шифт, ни контрол о чем говорит то, что даже значок выделения Клептомании не исчезает.


Добавлено:

Сообщение автоматически объединено: 8 Окт 2011

Так как насчет очистки буфера клавиатуры? Кто-нибудь может подсказать как это сделать?


Добавлено:

Сообщение автоматически объединено: 8 Окт 2011

Спешу поделиться радостью: проблема решена удивительно просто - вместо {LCTRL up} и {LSHIFT up} использовал {CTRLUP} и {SHIFTUP}, ну и соответственно также с DOWN.

 

[Yashied]

Очистить клавиши напрямую нельзя, т.к. этим управляет драйвер. Попробуй так:

DllCall('user32.dll', 'int', 'keybd_event', 'int', 0xA0, 'int', 0x02, 'int', 0, 'ptr', 0) ; LSHIFT UP
DllCall('user32.dll', 'int', 'keybd_event', 'int', 0xA2, 'int', 0x02, 'int', 0, 'ptr', 0) ; LCTRL UP