Помогите с checkbox

[k1sher]

Вот весь код..

{
Ypos := 50
loop, 4
{   
MenuNum++
Gui, Show, w540 h310, Автореклама by markOvka.
Gui, Add, Edit, limit48 x40 y%Ypos% w440 h20 vBind%MenuNum%,   
Gui, Add, CheckBox, x500 y%Ypos% w20 h20 vEnterOn%MenuNum%,
Ypos := Ypos + 30
}
}
{
Ypos := 190
{   
Gui, Add, Edit, limit4 Number x40 y%Ypos% w45 h20 vEdit1
Ypos := Ypos + 30
}
}
Gui, Add, Button, x50 y240 w80 h20 gSaveBind2323, Сохранить
Goto, AutoSchool
Return


GuiMove:
PostMessage, 0xA1, 2,,,
return

1GuiClose:
ExitApp
return




SaveBind2323:
Gui, Submit, Nohide
Goto, SaveAutoSchool
return

SaveAutoSchool:
loop 8
{
IniWrite, % Edit1, %A_WorkingDir%\Реклама.ini, Key, otkat
IniWrite, % Bind%A_Index%, %A_WorkingDir%\Реклама.ini, Key, text%A_Index%
}
return

AutoSchool:
loop 8
{
IniRead, VarEdit1, %A_WorkingDir%\Реклама.ini, Key, otkat, 180
IniRead, VarBind%A_Index%, %A_WorkingDir%\Реклама.ini, Key, text%A_Index%, %A_Space%

GuiControl,, Edit1, % varEdit1
GuiControl,, Bind%A_Index%, % varBind%A_Index%
}



k1sherrekl:
Gui, Submit, NoHide
loop 8
{
   GuiControlGet, Edit1
   GuiControlGet, Bind%A_Index%
   GuiControlGet, EnterOn%A_Index%
   if !EnterOn%A_Index%
      continue
      if Edit1 =
      MsgBox, Не установлено время отката
      else
   t := Bind%A_Index%
   w := Edit1 * 1000
   Send, %t%
   Sleep, w
}
goto, k1sherrekl

Можно сделать чтобы checkbox (их у меня получается 4 штуки), галочки нельзя было поставить сразу на все. Что-то типа начинаешь вторую галочку ставить а она с первой убирается и на вторую ставиться :D ну как-то так.

 

[AIMP]

Loop, %MenuNum%
GuiControl, EnterOn%A_Index%, 0

Как то так, заплутанный у тебя исходник

 

[k1sher]

Loop, %MenuNum%
GuiControl, EnterOn%A_Index%, 0

Как то так, заплутанный у тебя исходник

Хмм.. А куда вставить? Если заменить просто то что-то не получается.

 

[AIMP]

Gui, Add, CheckBox, x500 y%Ypos% w20 h20 vEnterOn%MenuNum% gGuiControl,

GuiControl:
Loop, %MenuNum%
{
if A_Index != %MenuNum%
         GuiControl, EnterOn%A_Index%, 0
}
return

Не уверен что будет так работать если чесно (возможно напутал переменные)