Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

вторник, 22 июня 2010 г.

Synapse авторизация на www.free-lance.ru

var
  html:TStringList;
  httpsend: THTTPSend;
  stream:TStringStream;
  sSecur:TStringList;
begin
  //инициализация всего необходимого
  html:=TStringList.Create;
  stream:=TStringStream.Create('');
  httpsend:=THTTPSend.Create;
  //очистка
  httpsend.Document.Clear;
  //получение страницы
  httpsend.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3';
  if not httpsend.HTTPMethod('get','http://www.free-lance.ru/') then
    ShowMessage('Не получилось скачать:(');
  //запись страницы
  httpsend.Document.SaveToStream(stream);
  //вывод страницы
  Memo1.Lines.add(stream.DataString);
  sSecur:=TStringList.Create;
  sSecur.Clear;
  sSecur:=Security(stream.DataString);
  //Memo2.Lines:=sSecur;
  stream:=TStringStream.Create('');
  stream.WriteString('action=login');
  stream.WriteString('&login=ЛОГИН');
  stream.WriteString('&passwd=ПАРОЛЬ');
  stream.WriteString('&x=3');//хотели обмануть)) нужно менять рандомно иначе забанят
  stream.WriteString('&y=3');//хотели обмануть))
  httpsend.Document.Clear;
  httpsend.Document.LoadFromStream(stream);
  httpsend.MimeType:='application/x-www-form-urlencoded';
  if httpsend.HTTPMethod('post','http://www.free-lance.ru/') then
    Memo2.Lines.Add(httpsend.Headers.Text);
  Memo2.Lines.Add(IntToStr(httpsend.ResultCode));
  sSecur.Free;
end;

Комментариев нет:

Отправить комментарий