#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $var[100], $ime[100], $imee = "", $keylist = "Alt + 0|Alt + 1|Alt + 2|Alt + 3|Alt + 4|Alt + 5|Alt + 6|Alt + 7|Alt + 8|Alt + 9"
#Region ### START Koda GUI section ### Form=e:\bak\system\!desktop\form1.kxf
$Form1 = GUICreate("LP快捷辅助", 456, 437, 233, 139)
$Label1 = GUICtrlCreateLabel("英文输入法", 8, 10, 64, 17)
$Label2 = GUICtrlCreateLabel("中文输入法", 8, 42, 64, 17)
$Language1 = GUICtrlCreateCombo("None", 73, 6, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Language2 = GUICtrlCreateCombo("None", 73, 38, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Save = GUICtrlCreateButton("保存配置", 376, 8, 73, 49)
$Label3 = GUICtrlCreateLabel("快捷", 32, 72, 28, 17)
$Label4 = GUICtrlCreateLabel("热键", 100, 72, 28, 17)
$Label5 = GUICtrlCreateLabel("自定义快捷", 185, 72, 60, 17)
$Label6 = GUICtrlCreateLabel("%s 为剪贴板内容", 300, 72, 90, 17)
$Altbox0 = GUICtrlCreateCheckbox("A → 0", 10, 96, 52, 17)
GUICtrlSetState(-1, 1)
$Altbox1 = GUICtrlCreateCheckbox("A → 1", 10, 120, 52, 17)
$Altbox2 = GUICtrlCreateCheckbox("A → 2", 10, 144, 52, 17)
GUICtrlSetState(-1, 1)
$Altbox3 = GUICtrlCreateCheckbox("A → 3", 10, 168, 52, 17)
GUICtrlSetState(-1, 1)
$Altbox4 = GUICtrlCreateCheckbox("A → 4", 10, 192, 52, 17)
$Altbox5 = GUICtrlCreateCheckbox("A → 5", 10, 216, 52, 17)
$Altbox6 = GUICtrlCreateCheckbox("A → 6", 10, 240, 52, 17)
$Altbox7 = GUICtrlCreateCheckbox("A → 7", 10, 264, 52, 17)
$Altbox8 = GUICtrlCreateCheckbox("A → 8", 10, 288, 52, 17)
$Altbox9 = GUICtrlCreateCheckbox("A → 9", 10, 312, 52, 17)
$Altbo0 = GUICtrlCreateCombo("None", 75, 93, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo1 = GUICtrlCreateCombo("None", 75, 117, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo2 = GUICtrlCreateCombo("None", 75, 141, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo3 = GUICtrlCreateCombo("None", 75, 165, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo4 = GUICtrlCreateCombo("None", 75, 189, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo5 = GUICtrlCreateCombo("None", 75, 213, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo6 = GUICtrlCreateCombo("None", 75, 237, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo7 = GUICtrlCreateCombo("None", 75, 261, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo8 = GUICtrlCreateCombo("None", 75, 285, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Altbo9 = GUICtrlCreateCombo("None", 75, 309, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Ctrlbox0 = GUICtrlCreateCheckbox("Ctrl + 0", 180, 96, 70, 17)
$Ctrlbox1 = GUICtrlCreateCheckbox("Ctrl + 1", 180, 120, 70, 17)
GUICtrlSetState(-1, 1)
$Ctrlbox2 = GUICtrlCreateCheckbox("Ctrl + 2", 180, 144, 70, 17)
$Ctrlbox3 = GUICtrlCreateCheckbox("Ctrl + 3", 180, 168, 70, 17)
$Ctrlbox4 = GUICtrlCreateCheckbox("Ctrl + 4", 180, 192, 70, 17)
$Ctrlbox5 = GUICtrlCreateCheckbox("Ctrl + 5", 180, 216, 70, 17)
$Ctrlbox6 = GUICtrlCreateCheckbox("Ctrl + 6", 180, 240, 70, 17)
$Ctrlbox7 = GUICtrlCreateCheckbox("Ctrl + 7", 180, 264, 70, 17)
$Ctrlbox8 = GUICtrlCreateCheckbox("Ctrl + 8", 180, 288, 70, 17)
$Ctrlbox9 = GUICtrlCreateCheckbox("Ctrl + 9", 180, 312, 70, 17)
$Ctrlinput0 = GUICtrlCreateInput("None", 255, 96, 190, 17)
$Ctrlinput1 = GUICtrlCreateInput("亲,为了更好的为您服务,请问【%s】是您的游戏账户吗?", 255, 120, 190, 17)
$Ctrlinput2 = GUICtrlCreateInput("None", 255, 144, 190, 17)
$Ctrlinput3 = GUICtrlCreateInput("None", 255, 168, 190, 17)
$Ctrlinput4 = GUICtrlCreateInput("None", 255, 192, 190, 17)
$Ctrlinput5 = GUICtrlCreateInput("None", 255, 216, 190, 17)
$Ctrlinput6 = GUICtrlCreateInput("None", 255, 240, 190, 17)
$Ctrlinput7 = GUICtrlCreateInput("None", 255, 264, 190, 17)
$Ctrlinput8 = GUICtrlCreateInput("None", 255, 288, 190, 17)
$Ctrlinput9 = GUICtrlCreateInput("None", 255, 312, 190, 17)
For $i = 1 To 100
$var[$i] = RegRead("HKEY_CURRENT_USER\keyboard layout\preload", $i)
If Not $var[$i] Then
$var[0] = $i - 1
ExitLoop
EndIf
Next
For $i = 1 To $var[0]
$ime[$i] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layouts" & $var[$i], "Layout Text")
If $ime[$i] Then $imee = $imee & $ime[$i] & "|"
Next
If StringRight($imee, 1) = "|" Then $imee = StringTrimRight($imee, 1)
GUICtrlSetData($Language1, $imee, 0)
GUICtrlSetData($Language2, $imee, 0)
GUICtrlSetData($Altbo0, $keylist, "Alt + 1")
GUICtrlSetData($Altbo1, $keylist, 0)
GUICtrlSetData($Altbo2, $keylist, "Alt + 2")
GUICtrlSetData($Altbo3, $keylist, "Alt + 3")
GUICtrlSetData($Altbo4, $keylist, 0)
GUICtrlSetData($Altbo5, $keylist, 0)
GUICtrlSetData($Altbo6, $keylist, 0)
GUICtrlSetData($Altbo7, $keylist, 0)
GUICtrlSetData($Altbo8, $keylist, 0)
GUICtrlSetData($Altbo9, $keylist, 0)
If GUICtrlRead($Ctrlbox0) = 1 Then HotKeySet("^0","SendCtrlMsg0")
If GUICtrlRead($Ctrlbox1) = 1 Then HotKeySet("^1","SendCtrlMsg1")
If GUICtrlRead($Ctrlbox2) = 1 Then HotKeySet("^2","SendCtrlMsg2")
If GUICtrlRead($Ctrlbox3) = 1 Then HotKeySet("^3","SendCtrlMsg3")
If GUICtrlRead($Ctrlbox4) = 1 Then HotKeySet("^4","SendCtrlMsg4")
If GUICtrlRead($Ctrlbox5) = 1 Then HotKeySet("^5","SendCtrlMsg5")
If GUICtrlRead($Ctrlbox6) = 1 Then HotKeySet("^6","SendCtrlMsg6")
If GUICtrlRead($Ctrlbox7) = 1 Then HotKeySet("^7","SendCtrlMsg7")
If GUICtrlRead($Ctrlbox8) = 1 Then HotKeySet("^8","SendCtrlMsg8")
If GUICtrlRead($Ctrlbox9) = 1 Then HotKeySet("^9","SendCtrlMsg9")
If GUICtrlRead($Altbo0) <> "None" Then $AltHKS0 = "!" & StringRight(GUICtrlRead($Altbo0),1)
If GUICtrlRead($Altbo1) <> "None" Then $AltHKS1 = "!" & StringRight(GUICtrlRead($Altbo1),1)
If GUICtrlRead($Altbo2) <> "None" Then $AltHKS2 = "!" & StringRight(GUICtrlRead($Altbo2),1)
If GUICtrlRead($Altbo3) <> "None" Then $AltHKS3 = "!" & StringRight(GUICtrlRead($Altbo3),1)
If GUICtrlRead($Altbo4) <> "None" Then $AltHKS4 = "!" & StringRight(GUICtrlRead($Altbo4),1)
If GUICtrlRead($Altbo5) <> "None" Then $AltHKS5 = "!" & StringRight(GUICtrlRead($Altbo5),1)
If GUICtrlRead($Altbo6) <> "None" Then $AltHKS6 = "!" & StringRight(GUICtrlRead($Altbo6),1)
If GUICtrlRead($Altbo7) <> "None" Then $AltHKS7 = "!" & StringRight(GUICtrlRead($Altbo7),1)
If GUICtrlRead($Altbo8) <> "None" Then $AltHKS8 = "!" & StringRight(GUICtrlRead($Altbo8),1)
If GUICtrlRead($Altbo9) <> "None" Then $AltHKS9 = "!" & StringRight(GUICtrlRead($Altbo9),1)
If GUICtrlRead($Altbox0) = 1 And GUICtrlRead($Altbo0) <> "None" Then
HotKeySet($AltHKS0,"SendAltMsg0")
GUICtrlSetState($Altbo0,128)
Else
GUICtrlSetState($Altbox0,4)
EndIf
If GUICtrlRead($Altbox1) = 1 And GUICtrlRead($Altbo1) <> "None" Then
HotKeySet($AltHKS1,"SendAltMsg1")
GUICtrlSetState($Altbo1,128)
Else
GUICtrlSetState($Altbox1,4)
EndIf
If GUICtrlRead($Altbox2) = 1 And GUICtrlRead($Altbo2) <> "None" Then
HotKeySet($AltHKS2,"SendAltMsg2")
GUICtrlSetState($Altbo2,128)
Else
GUICtrlSetState($Altbox2,4)
EndIf
If GUICtrlRead($Altbox3) = 1 And GUICtrlRead($Altbo3) <> "None" Then
HotKeySet($AltHKS3,"SendAltMsg3")
GUICtrlSetState($Altbo3,128)
Else
GUICtrlSetState($Altbox3,4)
EndIf
If GUICtrlRead($Altbox4) = 1 And GUICtrlRead($Altbo4) <> "None" Then
HotKeySet($AltHKS4,"SendAltMsg4")
GUICtrlSetState($Altbo4,128)
Else
GUICtrlSetState($Altbox4,4)
EndIf
If GUICtrlRead($Altbox5) = 1 And GUICtrlRead($Altbo5) <> "None" Then
HotKeySet($AltHKS5,"SendAltMsg5")
GUICtrlSetState($Altbo5,128)
Else
GUICtrlSetState($Altbox5,4)
EndIf
If GUICtrlRead($Altbox6) = 1 And GUICtrlRead($Altbo6) <> "None" Then
HotKeySet($AltHKS6,"SendAltMsg6")
GUICtrlSetState($Altbo6,128)
Else
GUICtrlSetState($Altbox6,4)
EndIf
If GUICtrlRead($Altbox7) = 1 And GUICtrlRead($Altbo7) <> "None" Then
HotKeySet($AltHKS7,"SendAltMsg7")
GUICtrlSetState($Altbo7,128)
Else
GUICtrlSetState($Altbox7,4)
EndIf
If GUICtrlRead($Altbox8) = 1 And GUICtrlRead($Altbo8) <> "None" Then
HotKeySet($AltHKS8,"SendAltMsg8")
GUICtrlSetState($Altbo8,128)
Else
GUICtrlSetState($Altbox8,4)
EndIf
If GUICtrlRead($Altbox9) = 1 And GUICtrlRead($Altbo9) <> "None" Then
HotKeySet($AltHKS9,"SendAltMsg9")
GUICtrlSetState($Altbo9,128)
Else
GUICtrlSetState($Altbox9,4)
EndIf
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Altbox0
If GUICtrlRead($Altbox0) = 1 Then
If GUICtrlRead($Altbo0) <> "None" Then
$AltHKS0 = "!" & StringRight(GUICtrlRead($Altbo0),1)
GUICtrlSetState($Altbo0,128)
HotKeySet($AltHKS0,"SendAltMsg0")
Else
GUICtrlSetState($Altbox0,4)
MsgBox(0,"警告","A → 0 未设置热键")
EndIf
Else
HotKeySet($AltHKS0)
GUICtrlSetState($Altbo0,64)
EndIf
Case $Altbox1
If GUICtrlRead($Altbox1) = 1 Then
If GUICtrlRead($Altbo1) <> "None" Then
$AltHKS1 = "!" & StringRight(GUICtrlRead($Altbo1),1)
GUICtrlSetState($Altbo1,128)
HotKeySet($AltHKS1,"SendAltMsg1")
Else
GUICtrlSetState($Altbox1,4)
MsgBox(0,"警告","A → 1 未设置热键")
EndIf
Else
HotKeySet($AltHKS1)
GUICtrlSetState($Altbo1,64)
EndIf
Case $Altbox2
If GUICtrlRead($Altbox2) = 1 Then
If GUICtrlRead($Altbo2) <> "None" Then
$AltHKS2 = "!" & StringRight(GUICtrlRead($Altbo2),1)
GUICtrlSetState($Altbo2,128)
HotKeySet($AltHKS2,"SendAltMsg2")
Else
GUICtrlSetState($Altbox2,4)
MsgBox(0,"警告","A → 2 未设置热键")
EndIf
Else
HotKeySet($AltHKS2)
GUICtrlSetState($Altbo2,64)
EndIf
Case $Altbox3
If GUICtrlRead($Altbox3) = 1 Then
If GUICtrlRead($Altbo3) <> "None" Then
$AltHKS3 = "!" & StringRight(GUICtrlRead($Altbo3),1)
GUICtrlSetState($Altbo3,128)
HotKeySet($AltHKS3,"SendAltMsg3")
Else
GUICtrlSetState($Altbox3,4)
MsgBox(0,"警告","A → 3 未设置热键")
EndIf
Else
HotKeySet($AltHKS3)
GUICtrlSetState($Altbo3,64)
EndIf
Case $Altbox4
If GUICtrlRead($Altbox4) = 1 Then
If GUICtrlRead($Altbo4) <> "None" Then
$AltHKS4 = "!" & StringRight(GUICtrlRead($Altbo4),1)
GUICtrlSetState($Altbo4,128)
HotKeySet($AltHKS4,"SendAltMsg4")
Else
GUICtrlSetState($Altbox4,4)
MsgBox(0,"警告","A → 4 未设置热键")
EndIf
Else
HotKeySet($AltHKS4)
GUICtrlSetState($Altbo4,64)
EndIf
Case $Altbox5
If GUICtrlRead($Altbox5) = 1 Then
If GUICtrlRead($Altbo5) <> "None" Then
$AltHKS5 = "!" & StringRight(GUICtrlRead($Altbo5),1)
GUICtrlSetState($Altbo5,128)
HotKeySet($AltHKS5,"SendAltMsg5")
Else
GUICtrlSetState($Altbox5,4)
MsgBox(0,"警告","A → 5 未设置热键")
EndIf
Else
HotKeySet($AltHKS5)
GUICtrlSetState($Altbo5,64)
EndIf
Case $Altbox6
If GUICtrlRead($Altbox6) = 1 Then
If GUICtrlRead($Altbo6) <> "None" Then
$AltHKS6 = "!" & StringRight(GUICtrlRead($Altbo6),1)
GUICtrlSetState($Altbo6,128)
HotKeySet($AltHKS6,"SendAltMsg6")
Else
GUICtrlSetState($Altbox6,4)
MsgBox(0,"警告","A → 6 未设置热键")
EndIf
Else
HotKeySet($AltHKS6)
GUICtrlSetState($Altbo6,64)
EndIf
Case $Altbox7
If GUICtrlRead($Altbox7) = 1 Then
If GUICtrlRead($Altbo7) <> "None" Then
$AltHKS7 = "!" & StringRight(GUICtrlRead($Altbo7),1)
GUICtrlSetState($Altbo7,128)
HotKeySet($AltHKS7,"SendAltMsg7")
Else
GUICtrlSetState($Altbox7,4)
MsgBox(0,"警告","A → 7 未设置热键")
EndIf
Else
HotKeySet($AltHKS7)
GUICtrlSetState($Altbo7,64)
EndIf
Case $Altbox8
If GUICtrlRead($Altbox8) = 1 Then
If GUICtrlRead($Altbo8) <> "None" Then
$AltHKS8 = "!" & StringRight(GUICtrlRead($Altbo8),1)
GUICtrlSetState($Altbo8,128)
HotKeySet($AltHKS8,"SendAltMsg8")
Else
GUICtrlSetState($Altbox8,4)
MsgBox(0,"警告","A → 8 未设置热键")
EndIf
Else
HotKeySet($AltHKS8)
GUICtrlSetState($Altbo8,64)
EndIf
Case $Altbox9
If GUICtrlRead($Altbox9) = 1 Then
If GUICtrlRead($Altbo9) <> "None" Then
$AltHKS9 = "!" & StringRight(GUICtrlRead($Altbo9),1)
GUICtrlSetState($Altbo9,128)
HotKeySet($AltHKS9,"SendAltMsg9")
Else
GUICtrlSetState($Altbox9,4)
MsgBox(0,"警告","A → 9 未设置热键")
EndIf
Else
HotKeySet($AltHKS9)
GUICtrlSetState($Altbo9,64)
EndIf
Case $Ctrlbox0
If GUICtrlRead($Ctrlbox0) = 1 Then
HotKeySet("^0","SendCtrlMsg0")
Else
HotKeySet("^0")
EndIf
Case $Ctrlbox1
If GUICtrlRead($Ctrlbox1) = 1 Then
HotKeySet("^1","SendCtrlMsg1")
Else
HotKeySet("^1")
EndIf
Case $Ctrlbox2
If GUICtrlRead($Ctrlbox2) = 1 Then
HotKeySet("^2","SendCtrlMsg2")
Else
HotKeySet("^2")
EndIf
Case $Ctrlbox3
If GUICtrlRead($Ctrlbox3) = 1 Then
HotKeySet("^3","SendCtrlMsg3")
Else
HotKeySet("^3")
EndIf
Case $Ctrlbox4
If GUICtrlRead($Ctrlbox4) = 1 Then
HotKeySet("^4","SendCtrlMsg4")
Else
HotKeySet("^4")
EndIf
Case $Ctrlbox5
If GUICtrlRead($Ctrlbox5) = 1 Then
HotKeySet("^5","SendCtrlMsg5")
Else
HotKeySet("^5")
EndIf
Case $Ctrlbox6
If GUICtrlRead($Ctrlbox6) = 1 Then
HotKeySet("^6","SendCtrlMsg6")
Else
HotKeySet("^6")
EndIf
Case $Ctrlbox7
If GUICtrlRead($Ctrlbox7) = 1 Then
HotKeySet("^7","SendCtrlMsg7")
Else
HotKeySet("^7")
EndIf
Case $Ctrlbox8
If GUICtrlRead($Ctrlbox8) = 1 Then
HotKeySet("^8","SendCtrlMsg8")
Else
HotKeySet("^8")
EndIf
Case $Ctrlbox9
If GUICtrlRead($Ctrlbox9) = 1 Then
HotKeySet("^9","SendCtrlMsg9")
Else
HotKeySet("^9")
EndIf
EndSwitch
WEnd
Func SendCtrlMsg0()
FixMsg(GUICtrlRead($Ctrlinput0))
EndFunc
Func SendCtrlMsg1()
FixMsg(GUICtrlRead($Ctrlinput1))
EndFunc
Func SendCtrlMsg2()
FixMsg(GUICtrlRead($Ctrlinput2))
EndFunc
Func SendCtrlMsg3()
FixMsg(GUICtrlRead($Ctrlinput3))
EndFunc
Func SendCtrlMsg4()
FixMsg(GUICtrlRead($Ctrlinput4))
EndFunc
Func SendCtrlMsg5()
FixMsg(GUICtrlRead($Ctrlinput5))
EndFunc
Func SendCtrlMsg6()
FixMsg(GUICtrlRead($Ctrlinput6))
EndFunc
Func SendCtrlMsg7()
FixMsg(GUICtrlRead($Ctrlinput7))
EndFunc
Func SendCtrlMsg8()
FixMsg(GUICtrlRead($Ctrlinput8))
EndFunc
Func SendCtrlMsg9()
FixMsg(GUICtrlRead($Ctrlinput9))
EndFunc
Func FixMsg($FixString)
If StringInStr($FixString, "%s") Then
Local $sData = StringRegExpReplace(ClipGet(), ' | | ', '')
If StringLeft($sData, 2) <> "tb" Then $sData = "tb" & $sData
$Msg = StringRegExpReplace($FixString, '%s', $sData)
Else
$sData = ClipGet()
$Msg = $FixString
EndIf
ClipPut($Msg)
Send("^v")
ClipPut($sData)
EndFunc
Func SendAltMsg0()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg1()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg2()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg3()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg4()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg5()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg6()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg7()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg8()
MsgBox(0,0,0)
EndFunc
Func SendAltMsg9()
MsgBox(0,0,0)
EndFunc