#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $key[26]=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z']
Global $keys[26]
For $i=0 To 25
$keys[$i]=$key[$i]&"|"
Next
$keys[25]="z"
#cs
Переменные $key и $keys - содержат набор букв для установки их в Combo
#ce
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Назначение хоткейчиков", 491, 91, 192, 124)
$Group1 = GUICtrlCreateGroup("HotKey#1", 0, 0, 153, 41)
$Combo1 = GUICtrlCreateCombo("", 2, 16, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $c=0 To 25
GUICtrlSetData($Combo1,$keys[$c])
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("HotKey#2", 160, 0, 161, 41)
$Combo2 = GUICtrlCreateCombo("", 168, 16, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $c=0 To 25
GUICtrlSetData($Combo2,$keys[$c])
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("HotKey#3", 328, 0, 161, 41)
$Combo3 = GUICtrlCreateCombo("", 336, 16, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $c=0 To 25
GUICtrlSetData($Combo3,$keys[$c])
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("HotKey#4", 0, 48, 153, 41)
$Combo4 = GUICtrlCreateCombo("", 2, 64, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $c=0 To 25
GUICtrlSetData($Combo4,$keys[$c])
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Hotkey#5", 160, 48, 161, 41)
$Combo5 = GUICtrlCreateCombo("", 168, 64, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $c=0 To 25
GUICtrlSetData($Combo5,$keys[$c])
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Назначить хот кеи", 328, 56, 115, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1;После установки для всех комбов букв нажмите на кнопку
_regfunc(GUICtrlRead($Combo1),GUICtrlRead($Combo2),GUICtrlRead($Combo3),GUICtrlRead($Combo4),GUICtrlRead($Combo5))
GUIDelete($Form1)
EndSwitch
WEnd
#cs
После нажатия на кнопку произойдет считывание с комбов букв, и потом установка этих букв на функции с помощью HotKeySet
Чтобы выйти из программы при помощи клавиши ESC следует раскоментировать строку которая находится ниже этого коментария
#ce
;~ HotKeySet("{ESC}","__ExitProgramm")
Func __ExitProgramm()
Exit
EndFunc
Func _regfunc($1,$2,$3,$4,$5)
Switch $1
Case ""
;если не выбрано значения то функция не регестрирцется
Case Else
HotKeySet($1,"_Function1")
EndSwitch
Switch $2
Case ""
;если не выбрано значения то функция не регестрирцется
Case Else
HotKeySet($2,"_Function2")
EndSwitch
Switch $3
Case ""
;если не выбрано значения то функция не регестрирцется
Case Else
HotKeySet($3,"_Function3")
EndSwitch
Switch $4
Case ""
;если не выбрано значения то функция не регестрирцется
Case Else
HotKeySet($4,"_Function4")
EndSwitch
Switch $5
Case ""
;если не выбрано значения то функция не регестрирцется
Case Else
HotKeySet($5,"_Function5")
EndSwitch
EndFunc
Func _Function1()
FileWrite("Hello.txt","Hello")
EndFunc
Func _Function2()
EndFunc
Func _Function3()
EndFunc
Func _Function4()
EndFunc
Func _Function5()
EndFunc