Delphi Support

Кто нибудь поможет?

 

дай валид акк . напишу авторизацию

 

Чем тебя HTTP Analyzer не устраивает?

 

добавь в скупе. Напишу. И мне объясниш:)

 

если хочешь, давай валидный аккаунт в ЛС, я посмотрю

 

Так зачем для таких целей Charles?
Я как-то снифал через HTTP Analyzer и все ништяк.

P.S. Сколько тут "кодеров" образовалось пока я отсутствовал

 

Блин. отпишитесь кто-нибудь один в лс или скайп. Там поговорим и обучат авторизации, но завтра. Сегодня устал!

 

Analyzer не подходит для программ. Им только с браузером играться

 

От мозилы . ) + дополнительный модуль

 

Смотрите весь код unit Unit4;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls;

type
TForm4 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
IdHTTP1: TIdHTTP;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
data:Tstringlist;
pagedata:string;
begin
data:=TstringList.create;
data.Add('name'+edit1.Text);
data.add('password'+edit2.text);
data.add('cfms=Войти');
Data.add('sid');
data.add('ck=752085640912955');
data.add('link_id=0');
data.add('from=');
pagedata:=idhttp1.get('http://spaces.ru/registration/?r=reg/loginform');
end;

if pos ('logout' ,http://spaces.ru/?logout=1) then
memo1.text:Inttostr(pagedata):='Авторизовались!';
else
memo1.text:='Увы!';

end. Знаю что с проверкой намудрил. Помогите.

 

ЕСть ошибочка но вроде так должна быть
:

data:=TstringList.create;
data.Add('sid=9118354271775575');
data.Add('name'+edit1.Text);
data.add('password'+edit2.text);
data.add('cfms=%D0%92%D0%BE%D0%B9%D1%82%D0%B8');
Data.add('sid=');
data.add('CK=95648606102500');
data.add('link_id=0');
data.add('from=');
pagedata:=idhttp1.get('http://spaces.ru/registration/?r=reg/loginform');

Вот так вроде и да
сид номер берется откуда то .
валиного акка нет так что не могу точно сказать но примерно так

 

Про авторизацию, то я понял, но мне бы проверочку сделать.

 

Помогите в проверкой авторизации.