多热键GUI界面开关控制

#Persistent
SetBatchLines, -1
Gui,+AlwaysOnTop -MinimizeBox
Gui, font,,Arial
Gui, Add, Text, Section, 勾选后, 按键按下时进行连招
i:=0,x:=0,y:=25
ArrayKey:={1:"1",   2:"214", 3:"3", 4:"4"
					,5:"5",   6:"6",   7:"7", 8:"8"
					,Z:"ZXCV",X:"XC",  C:"C", V:"VR"
					,Q:"QWE", E:"ERF", F:"DF",Tab:"{Tab}QR"}
For KeyName, Keys in ArrayKey
{
	i+=1,i>1?x+=45:"",i>4?(i:=1,x:=0,y+=25):""
	开关:=Func("热键").Bind(KeyName,Func("按键").Bind(KeyName,Format("{:L}",Keys),10))
	Gui, Add, CheckBox, HwndID vkey_%KeyName% xs+%x% ys+%y%, %KeyName%
	GuiControl, +g, %ID%, %开关% 
}
Gui, Show
ESC::ExitApp
热键(key,Label){
	Gui, Submit, NoHide
	Hotkey, $%key%, %Label%, % key_%key%?"ON":"OFF"
}
按键(Key1,key2,ms:=-1){
	loop{
		Send %key2%
		Sleep %ms%
	}Until !GetKeyState(key1,"P")
}