|
SpinEdit - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
19.03.2012, 14:37
|
#1
|
|
|
|
Разведчик
|
Регистрация: 09.03.2012
Сообщений: 12
Популярность: 20
Сказал(а) спасибо: 1
Поблагодарили 5 раз(а) в 1 сообщении
|
SpinEdit
Сделал авторегер(Автоматическая регистрация аккаунта).
И теперь нужно сделать подсчет зарегистрированных аккаунтов аккаунтов.
Как сделать после выполнения таймера, Value SpinEdit'a прибавлялось +1.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Perform(WM_LBUTTONDOWN, 0, 0);
Button1.Perform(WM_LBUTTONUP, 0, 0);
Button2.Perform(WM_LBUTTONDOWN, 0, 0);
Button2.Perform(WM_LBUTTONUP, 0, 0);
Button3.Perform(WM_LBUTTONDOWN, 0, 0);
Button3.Perform(WM_LBUTTONUP, 0, 0);
Button6.Perform(WM_LBUTTONDOWN, 0, 0);
Button6.Perform(WM_LBUTTONUP, 0, 0);
end;
Вот например, когда выполнятся все действия таймера, то Value SpinEdit'а стало "1". После еще одного выполнения Value стало "2" и т.д
Или же например при нажатии на кнопку Button6, SpinEdit1.Value прибавлялось +1, еще одно нажатия, то еще +1...
Последний раз редактировалось Anzorias; 19.03.2012 в 14:40.
|
|
|
19.03.2012, 15:53
|
#2
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: SpinEdit
|
Цитата: |
|
|
|
|
|
|
|
|
|
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Perform(WM_LBUTTONDOWN, 0, 0);
Button1.Perform(WM_LBUTTONUP, 0, 0);
Button2.Perform(WM_LBUTTONDOWN, 0, 0);
Button2.Perform(WM_LBUTTONUP, 0, 0);
Button3.Perform(WM_LBUTTONDOWN, 0, 0);
Button3.Perform(WM_LBUTTONUP, 0, 0);
Button6.Perform(WM_LBUTTONDOWN, 0, 0);
Button6.Perform(WM_LBUTTONUP, 0, 0);
end;
|
|
|
|
|
|
Что это?
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.click(nil);
Button2.click(nil);
Button3.click(nil);
Button6.click(nil);
SpinEdit1.Value:=SpinEdit1.Value+1;
end;
Хотя даже в таком варианте процедура остается для меня загадкой.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
19.03.2012, 16:55
|
#3
|
|
|
|
Разведчик
|
Регистрация: 09.03.2012
Сообщений: 12
Популярность: 20
Сказал(а) спасибо: 1
Поблагодарили 5 раз(а) в 1 сообщении
|
Re: SpinEdit
Последний раз редактировалось Anzorias; 19.03.2012 в 16:57.
Причина: Добавлено сообщение
|
|
|
20.03.2012, 06:46
|
#4
|
|
|
|
Рыцарь-защитник
|
Регистрация: 14.06.2010
Сообщений: 584
Популярность: 6626
Сказал(а) спасибо: 86
Поблагодарили 847 раз(а) в 266 сообщениях
|
Re: SpinEdit
|
Цитата: |
|
|
|
|
|
|
|
|
|
Спасибо. Работает.
Добавлено через 2 минуты
Подсчет зарегистрированных аккаунтов.
|
|
|
|
|
|
i=0;
if (i>-1) then
i++
else
exit
отменили?
|
|
|
20.03.2012, 16:50
|
#5
|
|
|
|
Разведчик
|
Регистрация: 09.03.2012
Сообщений: 12
Популярность: 20
Сказал(а) спасибо: 1
Поблагодарили 5 раз(а) в 1 сообщении
|
Re: SpinEdit
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 11:50.
|
|