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

Статус
В этой теме нельзя размещать новые ответы.

k1sher

Известный
Автор темы
201
4
Код:
#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. Вот как сделать чтобы каждая строка работала отдельно?
 

k1sher

Известный
Автор темы
201
4
3zfkvb4uxeqk7.jpg
 

asdzxcjqwe

¯\_(ツ)_/¯
Друг
621
704
если правильно тебя понял, то тебе нужен 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

Известный
Автор темы
201
4
если правильно тебя понял, то тебе нужен 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

¯\_(ツ)_/¯
Друг
621
704
переименуй 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

Известный
Автор темы
201
4
переименуй 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
И нет, не работает. Вот именно время там не хочет правильно работать.
 
Статус
В этой теме нельзя размещать новые ответы.