[Мышь, клавиатура] функция Send не шлет CTRL на Windows 7 x64

[ohos]

Привет,

столкнулся с проблемой отправки клавиши CTRL (^) в функции Send/ControlSend на WIndows 7 - например при нажатии ^v контрол не воспринимается и вместо вставки из буфера просто пишется v

Уже воспользовался поиском и нашел, что кому-то помог запуск скрипта (скомпилированного) с правами администратора, пробовал - не помогло. Есть еще какие-нибудь варианты?

 

[zlo-kazan]

Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7

hotkeyset("^l", "_send")

func _send()
send("^"&"{v}")
endfunc

While 1
   
    Sleep(10)
WEnd

Проверил на нетбуке и стационарнике в обоих случаях windows7 x86 SP1. Прав админа нет и не предвидится...


P.S.
Проверил с ^v, ^{v} работает прекрасно. :whistle:

 

[ohos]

Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7

за hotkeyset("^l"... спасибо, похоже ^q в Win 7 чем-то занято уже...

а вот send("^"&"{v}") нивкакую не хочет работать, это может быть из-за того, что Win 7 64 и при компиляции скипта я тоже ставлю галочку x64?

 

[zlo-kazan]

Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7

;D ^q обычно занимается выходом из программы autoit. т.е. полный код у меня был:

Спойлер: код

hotkeyset("^q", "_quit")
hotkeyset("^l", "_send")

func _send()
send("^v")
endfunc

While 1
    Sleep(10)
WEnd

Func _quit()
exit
endfunc

win7 x64 к сожалению нет, думаю кто-нибудь протестирует скажет.

 

[hikki]

Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7

на 64 битах работает

 

[ohos]

Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7

пробовал этот же код

Спойлер

hotkeyset("^q", "_quit")
hotkeyset("^l", "_send")

func _send()
send("^v")
endfunc

While 1
    Sleep(10)
WEnd

Func _quit()
exit
endfunc

на Win XP и WIn 7, ^1 не воспринимался в упор (проверял месадж боксом), поменял на ^2 и заработало... но ^v на Win 7 x64 ни в какую воспринимать не хочет, просто нажимает v как бы игнорируя ^

p.s. компилировал как с дефолтными настройками, так и с галочкой x64 - визуальной разницы нету

 

[ohos]

вопрос все еще актуален :whistle:

 

[Sniper]

ohos
попробуй использовать вместо "^" это: "{lctrl}" или "{rctrl}"

 

[ohos]

эти варианты не работают, ни на Win 7 x64, ни на Win XP

 

[Sniper]

:laugh:

в коде вместо "^1" стоит "^l"

вот рабочий код:

hotkeyset("^q", "_quit")
hotkeyset("^1", "send1")

func send1()
	send("^v")
endfunc

While 1
    Sleep(10)
WEnd

Func _quit()
exit
endfunc

на XP работает

 

[zlo-kazan]

вот рабочий код:

А теперь назови 10 отличий от кода в 2-м и 4-м посте?

Если на 7/XP 64/32bit все нормально работает и работало, то:
1. Или не работают отключены хоткеи в активном окне. (в игрушках иногда бывает)
2. Или проблема с AutoIt на твоем компьютере или именно в твоей OS.

Скомпилированый EXE. При нажатии на любую цифру 0-9 + Ctrl идет Ctrl+V.
Только на висте не тестил...

 

[ohos]

я использовал самый первый код

Спойлер

hotkeyset("^q", "_quit")
hotkeyset("^2", "_send")

func _send()
send("^v")
MsgBox(0, "",'кнопки нажаты')
endfunc

While 1
    Sleep(10)
WEnd

Func _quit()
exit
endfunc

, назначал там CTRL + 2 и в функции работы с буфером вставлял месадж бокс, результат как и писал выше: на Win XP работает, на Win 7 x32 работает и даже работает на другом компьютере с Win 7 x64, но вот на первом компьютере с Win 7 x64 работать не хочет, поэтому попутные вопросы:

1. где в Win 7 может стоять запрет на программное обращение к буферу обмена? (в IE есть такая настройка и я об неё споткнулся когда когда использовал Cntrlsend в браузере)
2. где могут быть отключены программные горячие клавиши для программ? (если нажимать самому ctrls + v, то все вставляется нормально)
3. возможно ли как-то переназначить горячие клавиши для вставки текста из буфера?

 

[zlo-kazan]

Есть еще Shift + insert.

send("+"&"{INSERT}")

 

[ohos]

товарищ, вы гений, shift + insert почему-то работает :laugh:

 

[Bloodsucker]

Что скажите по поводу Ctrl+a и Ctrl+c ? все выше перечисленные способы не работают и даже #requireadmin не исправил положение.

 

[Guezt]

сто раз поднимали вопрос... во первых надо быть уверенным что высылаем ctrl+v а не ctrl+м (м - русская) то есть либо назначить через функцию окну по умолчанию ввод языка EN либо просто банально дублировать :
вот один скрипт пожалуй решит все ваши сочетания взял тут подправил чуток:

Спойлер

hotkeyset("^q", "_quit") ; - оригинал
hotkeyset("^й", "_quit")  ; - дублирование на русском
hotkeyset("^2", "_send")
hotkeyset("^a", "_send")
hotkeyset("^фvv", "_send")
hotkeyset("^c", "_send")
hotkeyset("^с", "_send")

func _send()
send("^v")
MsgBox(0, "",'кнопки нажаты')
endfunc

While 1
    Sleep(10)
WEnd

Func _quit()
exit
EndFunc

 

[CreatoR]

Guezt Gutsy [?]

вот один скрипт пожалуй решит все ваши сочетания

Для этого есть Обход проблемы с HotKeySet/Accelerators при разных раскладках клавиатуры.

 

[darkwhite]

ohos
Bloodsucker
а раскладка при отправке CTRL+V какая? не русская ли?

 

[Carabin]

[Мышь, клавиатура] Re: [Мышь, клавиатура] функция Send не шлет CTRL на Windows 7 x64

Столкнулся с похожей проблемой. В учебном задании (из справки) не отменялось сохранение документа в блокноте командой Send("!n").

Спойлер

Система - Win7x32 Rus, тему пробовал и Aero и классическую. Язык по умолчанию и русский и английский.
Перепробовал разные варианты команд, в том чиле: "{ALT}{н}", "{LALT}{н}" , "{ALT}н", "{LALT}н"

Помогло только следущее:

Send("{ALTDOWN}")
Send("{н}")
Send("{ALTUP}")

Почему - пока не понял. Кто-нибудь может пояснить, пожалуйста?

ЗЫ. Итоговый вариант отрабатывает вполне корректно при включенной английской раскладке.

 

[madmasles]

Carabin

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

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Модератор.

_WinAPI_LoadKeyboardLayoutEx()

Run('notepad')
$hWin = WinWait('[Class:Notepad]')
If Not $hWin Then Exit 1
ControlSend($hWin, '', '[CLASS:Edit; INSTANCE:1]', '123456789')
Sleep(1000)
ControlSend($hWin, '', '', '^n')
WinWait('[Class:#32770]')
Sleep(1000)
ControlSend($hWin, '', '', '!y')


Func _WinAPI_LoadKeyboardLayoutEx($sLayoutID = 0x0409, $hWnd = 0)
    Local Const $WM_INPUTLANGCHANGEREQUEST = 0x50
    Local $aRet = DllCall("user32.dll", "long", "LoadKeyboardLayoutW", "wstr", Hex($sLayoutID, 8), "int", 0)

    If Not @error And $aRet[0] Then
        If $hWnd = 0 Then
            $hWnd = WinGetHandle(AutoItWinGetTitle())
        EndIf

        DllCall("user32.dll", "ptr", "SendMessage", "hwnd", $hWnd, "int", $WM_INPUTLANGCHANGEREQUEST, "int", 1, "int", $aRet[0])
        Return 1
    EndIf

    Return SetError(1)
EndFunc