• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

[вопрос] Обновление Страницы По Заданным Параметрам.

  • Автор темы XProgrammer
  • Дата начала
X

XProgrammer

Всем доброго дня. У меня такой вопрос, как сделать что-бы по нажатию button1, программа открывала тот url который введён в Edit1 и происходило обновление страницы ровно столько раз какое число записано в Edit2?

Ах да чуть не забыл, и еще такой же пример только с timer1, допустим я ввожу в Edit3 число 5 и 5 минут программа обновлят страницу.

P.s. Желательно пример с компанентом WebBrowser1 на форме.
 
S

sinkopa

:)
Всем доброго дня. У меня такой вопрос, как сделать что-бы по нажатию button1, программа открывала тот url который введён в Edit1
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
и происходило обновление страницы ровно столько раз какое число записано в Edit2?
Код:
var
i,j: Integer;
//...
if not TryStrToInt(Edit2.Text,j) then
j := 0;

for i := 0 to j-1 do
begin
WebBrowser1.Refresh;
while WebBrowser1.Busy do
begin
Application.ProcessMessages;
Sleep(500);
end;
end;
Ах да чуть не забыл, и еще такой же пример только с timer1, допустим я ввожу в Edit3 число 5 и 5 минут программа обновлят страницу.
Код:
var
CountUpdate: Integer;
//...

procedure TForm1.Button2Click(Sender: TObject);
begin
if Timer1.Enabled then
Timer1.Enabled := False;
if not TryStrToInt(Edit3.Text,CountUpdate) then // Таймер будет запускаться CountUpdate раз. А вот 5 минут... уж сами выставляйте... 
Exit;									  // или через Timer1.Interval проставьте минуту задержки переж каждым запуском
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j: Integer;
begin
if CountUpdate < 1 then
begin
Timer1.Enabled := False;
Exit;
end;

if not TryStrToInt(Edit2.Text,j) then
j := -1;

for i := 0 to j do
begin
WebBrowser1.Refresh;
while WebBrowser1.Busy do
begin
Application.ProcessMessages;
Sleep(500);
end;
end;
Dec(CountUpdate);

end;
Больще ничего не забыли? :) :) :D :D
 
S

sinkopa

Большое спасибо, выручил ;)
Не за что... :)
Я забыл предупредить, что через пару минут "гиперактивности" вашей проги, сервер хостера, на который вы собираетесь посылать запросы, сочтет их (циклические запросы) хакерской атакой и заблокирует Ваш IP-шник... :D :D :D
 
X

XProgrammer

Хм... блин, а ведь об этом я и не подумал...
Хотя, ничего страшного, я прокси прикручу к проге ;)

P.s. Я не DoS бота пишу :(
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!