Авторизация на сайте idhttp

[Fahman]

Сообщение от eval

хотеть, как грицца, не вредно

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

[eval]

тут понимать надо что к чему и почему, а "реализации" на 3 секунды с перекуром
а не хочешь сам понять, то хоть кому-то денежка капнет.

[Человек_Борща]

Спасибо работает, 1 вопрос. После авторизации не могу я зайти на страницу "Сейчас онлайн" и спарсить почему?

Потому что наличие заглушки не исправляет проблему, а только убирает сообщение о ней. Варианта 2:
1. Тебя перенаправляет на гл. страницу уже будучи авторизованным.
2. Тебя перенаправляет куда-то ещё т.к. не авторизовался нормально.

Решение тоже самое:
Переходишь по перенаправлению и изучаешь, куда послали.

1) Сам
2) Хочу сам
3) Знаю о фрилансе, интересовался.
4) Для личного пользования программа...

Да еслиб сам хотел, давно бы уже узнал что это за код 303 от HTTP-сервера )

[-=Virus=-]

Сообщение от Fahman

href="/dk?st.cmd=friendMain&st.friendId=45 2320839302&_prevCmd=usersOnline&tkn =5085"

=

http://www.odnoklassniki.ru/dk?st.cm...nline&tkn=5085

Спрашивается нафига?

Вот тебе API одноклассников http://apiok.ru/wiki/display/TS/Home

[Fahman]

Сообщение от Человек_Борща

Потому что наличие заглушки не исправляет проблему, а только убирает сообщение о ней. Варианта 2:
1. Тебя перенаправляет на гл. страницу уже будучи авторизованным.
2. Тебя перенаправляет куда-то ещё т.к. не авторизовался нормально.

Решение тоже самое:
Переходишь по перенаправлению и изучаешь, куда послали.


Да еслиб сам хотел, давно бы уже узнал что это за код 303 от HTTP-сервера )

почему же не решил? вот=)

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL2: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  SSL:  TIdSSLIOHandlerSocketOpenSSL;
  Post: TStringList;
  Pagedata: String;
begin
  HTTP := TIdHTTP.Create(nil);
  SSL  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  HTTP.IOHandler := SSL;
  HTTP.HandleRedirects := True;
   Post := TStringList.Create;
   Post:=Tstringlist.Create;
   Post.Add('fr.posted=set');
   Post.Add('fr.needCaptcha=');
   Post.Add('fr.login='+edit1.text);
   Post.Add('fr.password='+sedit2.text);
   Post.Add('button_login=Войти');
   try
     Pagedata := HTTP.Post('https://m.odnoklassniki.ru/dk?bk=GuestMain&st.cmd=main&_prevCmd=main&tkn=3996', Post);
      if Pos('logoff', pagedata)<>0 then Showmessage('GooD') else ShowMessage('Bad');
   except
     ShowMessage('Возникла ошибка!');
   end;
   Post.Free;
   HTTP.Free;
end;


end.

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

Сообщение от -=Virus=-

=




Спрашивается нафига?

Вот тебе API одноклассников http://apiok.ru/wiki/display/TS/Home

это я что то ступил....

Стойте, вот 1 вопрос.... И от него много что зависит может я и не все так делаю...
Моя задача такая...
Зайти на сайт (свой акк)
взять список тех кто онлайн к примеру
Петя
Вася
Карина
Марина
и перейти к ним на страницу, потом
У Пети 32 друга
У Васи 45 друзей
у Карины 89 друзей
У Марины 130 друзей
Хочу и к ним в гости пройти) ну или взять 1 акк и заходить к нему в гости потом к его друзьям в гости а потом к его друзей друзьям в гости и т.п. =)
Думал делать запросы парсить страничку потом чистить и переходить по ним...
Возможно же так? Вчера целый день сидел думал как реализовать сегодня тоже примеров пересмотрел кое как решил авторизацию теперь застрял....((( Трафик еще на исходе)))))

[eval]

во фриланс

[doktor255]

Сообщение от Fahman

Возможно же так?

В делфи возможно всё. Вопрос, хватит ли знаний реализовать.

[Fahman]

Сообщение от doktor255

В делфи возможно всё. Вопрос, хватит ли знаний реализовать.

Знаний маловато по этому и пришел на форум=) Знал бы не писал бы наверно сюда?

[doktor255]

То что пришёл, это конечно хорошо, но подумай, кто будет писать за тебя твою программу? Кому оно надо?

[Fahman]

Сообщение от doktor255

То что пришёл, это конечно хорошо, но подумай, кто будет писать за тебя твою программу? Кому оно надо?

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