Авторизоваться на рамблер

[aydar]

Ребят помогите пожалуйста с кодом авториз на рамблере, дельфи инди

[jecka3000]

поддерживаю))
только вот мне был бы полезен C# =))

[aydar]

сколько пробовал, уже ниче не получаеться

[aydar]

procedure TForm1.Button1Click(Sender: TObject);
var
params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('login=programmers');
params.Add('domain=rambler.ru');
params.Add('passw=1234');
responseres.Text:= IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
if Pos('logout',responseres.Text)>0 then
ShowMessage('Автороизовались!');
finally
params.free;
responseres.free;

end;

end;
end.

Что не правильно?

[aydar]

а зачем у тя процедура pars?

[aydar]

вот такую ошибку выдает
[Error] dclIndyCore70.dpk(34): Packages 'indy' and 'IndyCore70' both contain unit 'IdThreadComponent'

в чем проблема?

[EndLeSSDre@M]

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

[aydar]

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

Это наверно мой сраный инди, пытался новую версию установить, но выдает ошибку при установке((

Packages 'indy' and 'IndyCore70' both contain unit 'IdThreadComponent'

[aydar]

вот такую херню пишет http://i053.radikal.ru/1004/34/d3810479b563.jpg

зы как узнать установленную версию инди в дельфи 7?

[Sunstrider]

скинь исх покываряю

[fenixelite]

aydar
showmessage(x.version);
Где X - любой компонент инди.

[aydar]

http://slil.ru/28968531

[fenixelite]

aydar, вот попробуй

procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=логин');
params.Add('domain=rambler.ru');
params.Add('passw=пароль');
mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',mmo1.Text)>0 then
ShowMessage('âîøëè');
params.Free;

end;
end;

В idhttp - AllowCookie = false.

[ZdezBilYa]

ну можешь без нее... просто она исходную ссылку делает... можешь сразу

procedure TForm1.Button1Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
Data:=TstringList.Create;
Data.Add('st.posted=set');
Data.Add('st.email='+Edit1.Text);
Data.Add('st.password='+Edit2.Text);
Data.Add('button_go=Войти');
StrPage:=idhttp1.Post('http://id.rambler.ru/script/auth.cgi', Data);
if Pos('Logoff', StrPage)<>0 then
Label3.Caption:='Залогинились'
else Label3.Caption:='Не получилось';
Data.Free;
end;

это у меня просто с другого сайта было... там так надо было делать...


Называется "Скопируй чужой код, замени "odnoklassniki.ru" на "rambler.ru" и выдай за свой!))
Это код из моего урока про авторизацию на одноклассниках. И это точно не "у меня просто с другого сайта".
Как ты там про других говоришь... "очередной быдло кодер"?

[EndLeSSDre@M]

Называется "Скопируй чужой код, замени "odnoklassniki.ru" на "rambler.ru" и выдай за свой!))
Это код из моего урока про авторизацию на одноклассниках. И это точно не "у меня просто с другого сайта".
Как ты там про других говоришь... "очередной быдло кодер"?

если ты не заметил, то я не говорил что это мой код!

да говорю! и буду говорить, если вижу что элементарные вещи сделать не могут и собираются что то стоящее написать...

[ZdezBilYa]

если ты не заметил, то я не говорил что это мой код!

да говорю! и буду говорить, если вижу что элементарные вещи сделать не могут и собираются что то стоящее написать...
По твоим постам не заметно, что ты сам что-то понимаешь в запросах. Человек попросил помочь с авторизацией на рамблере, а ты скопировал код для авторизации на одноклассниках, заменив ссылку. Спрашивается зачем? На рамблере естественно он работать не будет. Если просто как пример запроса, то зачем заменять ссылку. Это только вводит в заблуждение всех

[EndLeSSDre@M]

По твоим постам не заметно, что ты сам что-то понимаешь в запросах. Человек попросил помочь с авторизацией на рамблере, а ты скопировал код для авторизации на одноклассниках, заменив ссылку. Спрашивается зачем? На рамблере естественно он работать не будет. Если просто как пример запроса, то зачем заменять ссылку. Это только вводит в заблуждение всех

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

[aydar]

aydar, вот попробуй

procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=логин');
params.Add('domain=rambler.ru');
params.Add('passw=пароль');
mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',mmo1.Text)>0 then
ShowMessage('все ок!!!');
params.Free;

end;
end;

В idhttp - AllowCookie = false.


В роде щас без ошибок, но запускаю проект и он сразу исчезает вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login=ëîãèí');
params.Add('domain=rambler.ru');
params.Add('passw=ïàðîëü');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
ShowMessage('все ок');
params.Free;

end;
end;

[aydar]

хм, может это у меня с идни что-то, а ту такое твориться со всеми прогами с инди

[[stranger]]

дайте кто-то мыло-ящик, регать парит
на винсоке накатаю

[aydar]

Ребят скачал дельфи 10 создал проект, а кнопка запуска не активна что делать?

[Sunstrider]

button1.enabled:=true;
вроде как

[aydar]

))) не кнопка на форме, а кнопка запуска проекта F9

[fenixelite]

aydar, проект какой выбрал?

[Sunstrider]

Run?вы точно Project выбераете ?

[fenixelite]

aydar, ты видать просто форму создал а не проект и все :)

[aydar]

fenixelite
Точно сказал все разобрался))

[aydar]

что за ошибка http://imglink.ru/pictures/19-04-10/ea32945f19e072687ad3c29590f645cd.jpg, вроде если континью нажать пишет что все ок?

[aydar]

И еще через инди получаю хтмл страницу рамблера только она как то убого выглядит (http://slil.ru/28983981)