1 Тема от Ядрён

  • Ядрён
  • Участник
  • Неактивен

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

Доброго времени суток. Есть 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
OS: Win11x64, AutoHotkey v1.1.25.01 (Unicode 64-bit).