Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Авторизоваться на рамблер (https://forum.antichat.xyz/showthread.php?t=196691)

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

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

aydar 16.04.2010 15:58
сколько пробовал, уже ниче не получаеться

aydar 16.04.2010 16:01
Цитата:
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 16.04.2010 16:13
а зачем у тя процедура pars?

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

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

EndLeSSDre@M 16.04.2010 16:37
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP;

aydar 16.04.2010 16:39
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 16.04.2010 17:02
вот такую херню пишет http://i053.radikal.ru/1004/34/d3810479b563.jpg

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

Sunstrider 16.04.2010 17:11
скинь исх покываряю

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

aydar 16.04.2010 17:17
http://slil.ru/28968531

fenixelite 16.04.2010 17:44
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 16.04.2010 19:16
Цитата:
Сообщение от EndLeSSDre@M
ну можешь без нее... просто она исходную ссылку делает... можешь сразу

PHP код:
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 16.04.2010 19:22
Цитата:
Сообщение от ZdezBilYa
Называется "Скопируй чужой код, замени "odnoklassniki.ru" на "rambler.ru" и выдай за свой!))
Это код из моего урока про авторизацию на одноклассниках. И это точно не "у меня просто с другого сайта".
Как ты там про других говоришь... "очередной быдло кодер"?
если ты не заметил, то я не говорил что это мой код!

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

ZdezBilYa 16.04.2010 19:32
Цитата:
Сообщение от EndLeSSDre@M
если ты не заметил, то я не говорил что это мой код!

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

EndLeSSDre@M 16.04.2010 19:37
Цитата:
Сообщение от ZdezBilYa
По твоим постам не заметно, что ты сам что-то понимаешь в запросах. Человек попросил помочь с авторизацией на рамблере, а ты скопировал код для авторизации на одноклассниках, заменив ссылку. Спрашивается зачем? На рамблере естественно он работать не будет. Если просто как пример запроса, то зачем заменять ссылку. Это только вводит в заблуждение всех
я не спорю, я не умею пользоваться запросами... все никак заняться не могу, виноват. Но как и большинство других, я учусь по другим примерам... смотрю примерное решение и переделываю под себя... думаю и этот код можно переделать под себя, после работы снифера.

aydar 17.04.2010 17:51
Цитата:
Сообщение от 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.

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

Цитата:
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 17.04.2010 18:20
хм, может это у меня с идни что-то, а ту такое твориться со всеми прогами с инди

[stranger] 17.04.2010 18:20
дайте кто-то мыло-ящик, регать парит
на винсоке накатаю

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

Sunstrider 19.04.2010 18:23
button1.enabled:=true;
вроде как

aydar 19.04.2010 18:25
))) не кнопка на форме, а кнопка запуска проекта F9

fenixelite 19.04.2010 20:08
aydar, проект какой выбрал?

Sunstrider 19.04.2010 20:30
Run?вы точно Project выбераете ?

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

aydar 19.04.2010 21:28
fenixelite
Точно сказал все разобрался))

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

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


Время: 04:10