Проблема с раскладкой по умолчанию и ControlSend("^c")

[konokrad666]

Скрипт должен копировать текст из внешнего приложения, эмулируя нажатие Ctrl+c. Другие способы извлечь текст из приложения не работают.

Функция выглядит так:

ControlFocus ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]" )
ControlSend ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]", "^c")

Понятно, при любой раскладке кроме английской ControlSend("^c") не срабатывает. По неизвестной мне причине найденные на форуме способы принудительной смены раскладки не работают.

Пробовал:

#include <WinAPIex.au3>
$hWnd = WinGetHandle("Внешнее приложение", "")
$hWnd1 = WinGetHandle("Наш скрипт", "")
_WinAPI_SetKeyboardLayout($hWnd, 0x0409)
_WinAPI_SetKeyboardLayout($hWnd1, 0x0409)

$win_handle = WinGetHandle("", "")
_SetKeyboardLayout("00000409", $win_handle)

Func _SetKeyboardLayout($sLayoutID, $hWnd)
    Local $ret = DllCall("user32.dll", "long", "LoadKeyboardLayout", "str", $sLayoutID, "int", 0)
    DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", 0x50, "int", 1, "int", $ret[0])
EndFunc

Так же пробовал заменять

ControlSend("^c") на ControlSend("^{ASC 099}")

- не работает

В чем может быть проблема?
Заранее спасибо за ответ.

 

[C2H5OH]

http://autoit-script.ru/autoit3_docs/functions/ControlSend.htm

 

[konokrad666]

Если вы намекаете что синтаксис не соблюден то это не так.
Сама функция выглядит так:

ControlFocus ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]" )
ControlSend ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]", "^c")

 

[C2H5OH]

Теперь понятно, Ок.
Тогда читаем справку
http://autoit-script.ru/autoit3_docs/functions/Send.htm
видели примечание

для Ctrl+Break

?

 

[InnI]

konokrad666 [?]

эмулируя нажатие Ctrl+c

В большинстве приложений для копирования можно использовать Ctrl+Ins (независимо от раскладки).

 

[konokrad666]

Теперь понятно, Ок.
Тогда читаем справку
http://autoit-script.ru/autoit3_docs/functions/Send.htm
видели примечание

для Ctrl+Break

?

В таблице указано

{BREAK} для Ctrl+Break

Не понял, какое примечание?
Больше примечаний с упоминанием "Ctrl+Break" не нашел.

konokrad666 [?]

эмулируя нажатие Ctrl+c

В большинстве приложений для копирования можно использовать Ctrl+Ins (независимо от раскладки).

В этом приложении не работает :stars:

 

[InnI]

konokrad666
Раз уж вы работаете с активным окном и с контролом в фокусе, попробуйте так

#include <WinAPISys.au3>
#include <WinAPIvkeysConstants.au3>

ControlFocus("Внешняя программа", "", "[CLASS:list; INSTANCE:9]")

_WinAPI_Keybd_Event($VK_CONTROL, 0)
_WinAPI_Keybd_Event($VK_C, 0)
_WinAPI_Keybd_Event($VK_C, $KEYEVENTF_KEYUP)
_WinAPI_Keybd_Event($VK_CONTROL, $KEYEVENTF_KEYUP)

 

[alex33]

Понятно, при любой раскладке кроме английской ControlSend("^c") не срабатывает. По неизвестной мне причине найденные на форуме способы принудительной смены раскладки не работают.

А если так?

Local $aRet = DllCall('user32.dll', 'uint_ptr', 'LoadKeyboardLayoutW', 'wstr', '00000409', 'uint', '0x00000101')

ControlFocus ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]" )
ControlSend ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]", "^c")

 

[konokrad666]

Понятно, при любой раскладке кроме английской ControlSend("^c") не срабатывает. По неизвестной мне причине найденные на форуме способы принудительной смены раскладки не работают.

А если так?

Local $aRet = DllCall('user32.dll', 'uint_ptr', 'LoadKeyboardLayoutW', 'wstr', '00000409', 'uint', '0x00000101')

ControlFocus ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]" )
ControlSend ( "Внешняя программа", "", "[CLASS:list; INSTANCE:9]", "^c")

работает, спасибо!

konokrad666
Раз уж вы работаете с активным окном и с контролом в фокусе, попробуйте так

#include <WinAPISys.au3>
#include <WinAPIvkeysConstants.au3>

ControlFocus("Внешняя программа", "", "[CLASS:list; INSTANCE:9]")

_WinAPI_Keybd_Event($VK_CONTROL, 0)
_WinAPI_Keybd_Event($VK_C, 0)
_WinAPI_Keybd_Event($VK_C, $KEYEVENTF_KEYUP)
_WinAPI_Keybd_Event($VK_CONTROL, $KEYEVENTF_KEYUP)

Этот способ тоже работает, спасибо.

 

[madmasles]

konokrad666,

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

 

[alex33]

konokrad666 [?]

работает, спасибо!

А где +?

 

[Garrett]

OffTopic:
alex33 [?]

А где +?

Пожалуйста прочитайте "Правила и условия пребывания на форуме", в частности п. 10 п.п. 5

 

[madmasles]

Garrett [?]

в частности п. 10 п.п. 5

Точнее Общие правила общения (А) п.10.5



Добавлено:

Сообщение автоматически объединено: 22 Июн 2014

alex33,
Предупреждение Вам.

 

[alex33]

OK, значит ща поставлю подпись...