Помогите доделать

[k1sher]

#IfWinActive GTA:SA:MP
FileInstall, bmp.png, %A_Temp%\bmp.png, 1
gui, add, picture, w500 h-1 x50 y40, %A_Temp%\bmp.png
Gui, Font, bold,
Gui, Add, Text, x55 y43 w40 h20 , 1)
Gui, Add, Text, x55 y73 w40 h20 , 2)
Gui, Add, Text, x55 y103 w40 h20 , 3)
Gui, Add, Text, x55 y133 w40 h20 , 4)
Gui, Add, Text, x55 y163 w40 h20 , 5)
Gui, Add, Text, x55 y193 w40 h20 , 6)
Gui, Add, Text, x55 y223 w40 h20 , 7)
Gui, Add, Text, x55 y253 w20 h20 , 8)
Gui, Add, Text, x95 y10 w420 h30 , Не забудь указать в какой чат будет идти реклама - пример написания "/o Набор в LVPD"
Gui, Add, Text, x10 y10 w60 h30 , Откат в секундах.
Gui, Add, Text, x535 y20 w60 h30 , On/Off
Gui, Add, Text, x166 y295 w300 h20 c0xDC070B , Теперь все настройки сохраниются в файл.
Gui, Add, Text, x10 y390 w280 h70 c0xDC070B , Авторы:  markOvka. , твой ник :D
Gui, Add, Text, x185 y315 w400 h72 c0x800080 , Не забудь настроить скрипт, установить время отката "в секундах", написать текст рекламы "не забываем указать в какой чат /o, /r, /f и тд.", установить галочку какие строчки должны быть активны. Строка скрипта начинает работать после установки галочки напротив.


{
Ypos := 40
loop, 8
{   
MenuNum++
Gui, Show, w600 h410, Автореклама by markOvka.
Gui, Add, Edit, limit4 Number x10 y%Ypos% w35 h20 vEdit1%MenuNum%,   
Gui, Add, Edit, limit48 x80 y%Ypos% w440 h20 vBind%MenuNum%,   
Gui, Add, CheckBox, x550 y%Ypos% w20 h20 vEnterOn%MenuNum%,
Ypos := Ypos + 30
}
}
Gui, Add, Button, x50 y320 w80 h20 gSaveBind2323, Сохранить
Goto, AutoSchool
Return


SaveBind2323:
Gui, Submit, Nohide
Goto, SaveAutoSchool
return

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

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

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


SaveBind:
Gui, Submit, NoHide
Loop, 8
{
If % StrLen(Bind%a_index%) > 1
CountNum++
}
k1sherrekl:
Gui, Submit, NoHide
loop
{
Send, %bind1%
Sleep, Edit1
goto, k1sherrekl
}

Как объединить их?

Gui, Add, Edit, limit4 Number x10 y%Ypos% w35 h20 vEdit1%MenuNum%,
Gui, Add, Edit, limit48 x80 y%Ypos% w440 h20 vBind%MenuNum%,
Gui, Add, CheckBox, x550 y%Ypos% w20 h20 vEnterOn%MenuNum%,
Это у нас одна строчка она идет loop, 8. Вот как сделать чтобы каждая строка работала отдельно?

 

[asdzxcjqwe]

?? ?? ??

 

[k1sher]

?? ?? ??

 

[k1sher]

Нужно объединить edit - edit - checkbox, но каждая строчка работала отдельно

 

[asdzxcjqwe]

если правильно тебя понял, то тебе нужен GuiControlGet

k1sherrekl:
Gui, Submit, NoHide
loop 8
{
   GuiControlGet, Edit1%A_Index%
   GuiControlGet, Bind%A_Index%
   GuiControlGet, EnterOn%A_Index%
   if !EnterOn%A_Index%
      continue
   t := Bind%A_Index%
   w := Edit1%A_Index%
   Send, {F6}%t%{Enter}
   Sleep, w
}
goto, k1sherrekl

и ставь табы плес

 

[k1sher]

если правильно тебя понял, то тебе нужен GuiControlGet

k1sherrekl:
Gui, Submit, NoHide
loop 8
{
   GuiControlGet, Edit1%A_Index%
   GuiControlGet, Bind%A_Index%
   GuiControlGet, EnterOn%A_Index%
   if !EnterOn%A_Index%
      continue
   t := Bind%A_Index%
   w := Edit1%A_Index%
   Send, {F6}%t%{Enter}
   Sleep, w
}
goto, k1sherrekl

и ставь табы плес

Ну тут ты задействовал у строку.
один поток и будет работать. А нужно чтобы все строчки работали.

Вообщем все работает, но время отката не работает. Он берет толи самое долгое время отката или еще что. Нужно сделать чтобы для каждой строчки откат свой был.

 

[asdzxcjqwe]

переименуй edit1 на edit или на timeout, замени некоторые строки

Gui, Add, Edit, limit4 Number x10 y%Ypos% w35 h20 vTimeout%MenuNum% ; (ну или vEdit, главное чтобы единицы не было)
GuiControlGet, Timeout%A_Index% ; в метке k1sherrekl внутри цикла
w := Timeout%A_Index% ; там же

если не сработает, то после пробуй заменить Sleep, w на Sleep % w

 

[k1sher]

переименуй edit1 на edit или на timeout, замени некоторые строки

Gui, Add, Edit, limit4 Number x10 y%Ypos% w35 h20 vTimeout%MenuNum% ; (ну или vEdit, главное чтобы единицы не было)
GuiControlGet, Timeout%A_Index% ; в метке k1sherrekl внутри цикла
w := Timeout%A_Index% ; там же

если не сработает, то после пробуй заменить Sleep, w на Sleep % w

Вот еще раз мой код -

{
Ypos := 40
loop, 8
{   
MenuNum++
Gui, Show, w600 h410, Автореклама by markOvka.
Gui, Add, Edit, limit4 Number x10 y%Ypos% w35 h20 vTimeout%MenuNum%,
Gui, Add, Edit, limit48 x80 y%Ypos% w440 h20 vBind%MenuNum%,   
Gui, Add, CheckBox, x550 y%Ypos% w20 h20 vEnterOn%MenuNum%,
Ypos := Ypos + 30
}
}
return




k1sherrekl:
Gui, Submit, NoHide
loop 8
{
   GuiControlGet, Timeout%A_Index%
   GuiControlGet, Bind%A_Index%
   GuiControlGet, EnterOn%A_Index%
   if !EnterOn%A_Index%
      continue
   t := Bind%A_Index%
   w := Timeout%A_Index%
   Send, %t%
   Sleep % w
}
goto, k1sherrekl

И нет, не работает. Вот именно время там не хочет правильно работать.

 

[asdzxcjqwe]

время в миллисекундах указывается для sleep, не забыл?
умножай w на 1000, если в форме указываешь в секундах

w := Timeout%A_Index% * 1000

 

[k1sher]

Я например в одной строчке делаю 3000sleep в другой 10sleep и пишет он мне текст каждые 3 секунды по 2 символа.
То есть нет не работает, берет самое большое число и работает с ним.

 

[itsLegend]

Я не профи канеш, но у тебя пробел стоит в % w

 

[k1sher]

Я не профи канеш, но у тебя пробел стоит в % w

Нее, тут все верно, по другому вообще не запустится.

 

[k1sher]

up