Что нового

Не работают сочетания клавиш "Ctrl+"

Grell

Новичок
Сообщения
127
Репутация
0
Доброе утро.
Нашел на форуме скрипт - множественного буфера обмена.
http://autoit-script.ru/index.php?topic=13517.0
Код:
#NoTrayIcon
#include<SendMessage.au3>

#cs =====================

Скрипт организовывает несколько буферов обмена

Author: Maalik Nurlanovic
Version: 1.0

#ce =====================

Global $BUFFERS[5]


Global Const $WM_COPY = 0x0301
Global Const $WM_PASTE = 0x0302

HotKeySet("!1", "_OnCopy1")
HotKeySet("!2", "_OnCopy2")
HotKeySet("!3", "_OnCopy3")
HotKeySet("!4", "_OnCopy4")
HotKeySet("!5", "_OnCopy5")

HotKeySet("^1", "_OnPaste1")
HotKeySet("^2", "_OnPaste2")
HotKeySet("^3", "_OnPaste3")
HotKeySet("^4", "_OnPaste4")
HotKeySet("^5", "_OnPaste5")

HotKeySet("!q", "_Exit")


While 1
   Sleep(111)
WEnd


Func _OnCopy()
   $CNT = ControlGetFocus("[ACTIVE]")
   $ActiveControl = ControlGetHandle("[ACTIVE]", "", $CNT)
   
   _SendMessage($ActiveControl, $WM_COPY);
   
   $Selected = ClipGet()

   Return $Selected
EndFunc



;; Buffers copy
Func _OnCopy1()
   $BUFFERS[0] = _OnCopy()
EndFunc

Func _OnCopy2()
   $BUFFERS[1] = _OnCopy()
EndFunc

Func _OnCopy3()
   $BUFFERS[2] = _OnCopy()
EndFunc

Func _OnCopy4()
   $BUFFERS[3] = _OnCopy()
EndFunc

Func _OnCopy5()
   $BUFFERS[4] = _OnCopy()
EndFunc

;; Buffers Paste

Func _OnPaste($num)
   ClipPut($BUFFERS[$num])
   
   $CNT = ControlGetFocus("[ACTIVE]")
   $ActiveControl = ControlGetHandle("[ACTIVE]", "", $CNT)
   
   _SendMessage($ActiveControl, $WM_PASTE);
EndFunc

Func _OnPaste1()
   _OnPaste(0)
EndFunc

Func _OnPaste2()
   _OnPaste(1)
EndFunc

Func _OnPaste3()
   _OnPaste(2)
EndFunc

Func _OnPaste4()
   _OnPaste(3)
EndFunc

Func _OnPaste5()
   _OnPaste(4)
EndFunc

Func _Exit()
   Exit
EndFunc

Сочетания "Alt+" - работают, а вот сочетания "Ctrl+" почему-то не работают.
Как заставить сочетания клавиш "Ctrl+" работать ?
 
Верх