AHK:Объеденить элементы управления DropDownList и CheckBox

2013-11-20T01:04:57Z

Доброго времени суток. Есть 2 скрипта, первый с элементом управления DropDownList , а второй с CheckBox. По отдельности скрипты работают идеально , а соединить никак не могу.Помогите пожалуйста.
первый скрипт

Gui, Color, B0C4DE
Gui, Add, DropDownList, vSetMouseDelay gDropDownList w100, |0|1|2|3|4|5|6|7|8|9|10|
Gui, Add, DropDownList, vMouseMove gDropDownList w100, |0||1|2|3|4|5|6|7|8|9|10|
Gui, Add, DropDownList,  vMouseMove1 gDropDownList w100, |0|-1|-2|-3|-4|-5|-6|-7-8|-9|-10|
Gui, Add, Button, w100 gОК, ОК
Gui, Show,,
Return

~vk79::
Suspend, Off
ExitApp
Return

*~lbutton::
Loop 
{
GetKeyState, state, LButton, P
if state = U
break
SetMouseDelay, %Delay%
MouseMove, %Move%, %RMove%, , R
}
Return
DropDownList:
Return
ОК:
Gui Submit, NoHide
Delay = %SetMouseDelay%
Move = %MouseMove1%
RMove = %MouseMove%
WinMinimize 
Return
GuiClose:
ExitApp

вот второй

Hotkey := {"SendInput":"*~lbutton"} 
    
Gui, Add, CheckBox, gCheckBox vSendInput , повтор
Gui, Show,, CheckBox
Return

CheckBox:

    Gui, Submit, NoHide
    Key := Hotkey[A_GuiControl]
    Label := A_GuiControl
    If %A_GuiControl% = 1
        Options = On
    Else
        Options = Off
    Hotkey, %Key%, %Label%, %Options%
    return

SendInput:
  Loop
    {
         SetKeyDelay, PressDuration -1
         if not GetKeyState("lbutton", "P")
         break
        SendInput, {lbutton 5}
        SetKeyDelay, PressDuration -1
    }
    return
 GuiClose:
    ExitApp

Серый форум — AHK:Объеденить элементы управления DropDownList и CheckBox

AHK:Объеденить элементы управления DropDownList и CheckBox