Доброе утро.
Нашел на форуме скрипт - множественного буфера обмена.
http://autoit-script.ru/index.php?topic=13517.0
Сочетания "Alt+" - работают, а вот сочетания "Ctrl+" почему-то не работают.
Как заставить сочетания клавиш "Ctrl+" работать ?
Нашел на форуме скрипт - множественного буфера обмена.
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+" работать ?