Нужно что бы выбрал строку, нажал войти, оно вошло, и после исчерпания таймера, она продолжала выбивать строки +1 и сама входить!
таймер я сделал, кнопку входа тоже, сам код входа написал, осталось только зациклить таймер, что бы она выбирала и входила.
Код:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Button1.Visible:=False;
Button3.Visible:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
post:TStringList;
result:string;
begin
post:=TStringList.Create;
idHTTP1.HandleRedirects:=true;
post.Add('_xfToken=');
post.Add('redirect=/');
post.Add('password=1337');
post.Add('login='); //C этим мне нужно помочь Нужно что бы строки брались из Memo1, что бы после таймера "Timer1.Interval:=20000;" бралась новая строка, и так продолжалось пока строка не закончится полностью.
post.Add('cookie_check=1');
result:=IdHTTP1.Post('Сайт для лога', post);
if pos('Отметить разделы прочитанными', result)>0
then Edit3.Text:='Вход Выполнен!' else Edit3.Text:='Ошибка Входа!';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Button3.Visible:=false;
Button1.Visible:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=20000;
Button2.Click;
end;
