Авторизация ************ + 4 парса.

Исходник Странника, добавил чекер на Сообшения, видео, реферальную ссылку :C
там где написано **************** это значит = просто шитает как спам сайта. Клуб партнерс, токо на английском.
Data:= TStringStream.Create;
data.WriteString('email='+login+'&password='+ pass+'&log_in=');
HTTP.Document.LoadFromStream(Data);

if HTTP.HTTPMethod('POST', 'http://****************') then
begin
if Pos('Set-Cookie: password=', HTTP.Headers.Text)<>0 then
begin
HTTP.Headers.Clear;
if HTTP.HTTPMethod('GET', 'http://****************/balance') then begin
Response:= TStringList.Create;
Response.LoadFromStream(HTTP.Document);
html:=Pars('id="rub2">', Response.Text, '</b>');
//<div class="allbar_title" style="margin-bottom:0px;border-bottom:0px">
Response.Clear;

end;


if HTTP.HTTPMethod('GET', 'http://****************/messages') then begin
Response:= TStringList.Create;
Response.LoadFromStream(HTTP.Document);
name:=Pars('<span id="all_msg_num">', (Response.Text), '</span>'); //Парс количество сообшений
end;
if HTTP.HTTPMethod('GET', 'http://****************/videos') then begin
Response:= TStringList.Create;
Response.LoadFromStream(HTTP.Document);
lalka:=Pars('<span id="nums">', utf8toansi(Response.Text), '</span>'); // Парс количество видео
end;
if HTTP.HTTPMethod('GET', 'http://****************/balance?act=invite') then begin
Response:= TStringList.Create;
Response.LoadFromStream(HTTP.Document);
gp:=Pars('<div onClick="this.select()" class="videos_input" style="border: 1px solid #6796C6; width:200px">', utf8toansi(Response.Text), // парс реферальной ссылки '</div>');
end;

 

что не получается то?

кстати перед каждым новым запросом надо чистить хттп документ headers ну и твой стринлист response.

 

ММ, как бы я парс слил... всё получается и не обязательно чистить хттп headers.. в исходе странника.

 

А это обязательно. Ибо они пойдут и в след запрос и он может не получиться

 

А зачем ты это пишешь сюда? Нормальный кодер и так знает. Трукодеры пишут с исходов им не чего не нужно показывать и так все в исходе есть а исходов последнее время все больше и больше.

 

Поддерживаю,Чистить всегда надо если хочешь чтобы все гладко было.