отправка сообщений ВКонтакте [Delphi7]

[Кольша]

непонел вас...Загружаем диалог http://vk.com/im?sel=322345234234234234(без id просто цифры) парсим hash послылаем запросн на al_im.php и все!

[unbanned]

чтобы парсить нужно получить код странички, так?
вот я и пытаюсь его получить

try
  temp:= http.Get('http://vk.com/im?sel=122017324231');
finally
end;

вот тут и выбивает

[Кольша]

Меня даже в браузере эта ссылка редиректит=! так что нужен id реального user'a, а не с потолка!

[unbanned]

ну я в принципе и брал реальный id
это сюда от балды

[Кольша]

ну ка скиньте с реальным!И вообще говорю же лучше через write!

[unbanned]

try
  temp:= http.Get('http://vk.com/im?sel=122017831');
  finally
  end;

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

возможно криво авторизовался?

[Кольша]

скорей всего потому что сейчас брпузер без проблем загрузился диалог с каким то телом =)

[unbanned]

хм... ну если даже так посудить то авторизация у меня очень похожа на ту что вы мне указали в самом начале... даже можно сказать точно такая же. правда я руководствовался другим сайтом.

function TForm1.auth(login, pass: string): boolean;
var
  test, res, remixchk, remixsid: string;
  i: integer;

begin
  cookie := Tidcookiemanager.Create(nil);
  http := TIdHTTP.Create(nil);
  freeze := TIdAntiFreeze.Create(nil);
  http.CookieManager := cookie;
  http.AllowCookies := False;
  http.HandleRedirects := False;
  http.Request.UserAgent :=
    'Chrome/15.0.874.121';
  try
    test := http.Get('http://vk.com/?act=login&email=' + login + '&pass=' +
      pass);
  except
    if http.ResponseCode = 302 then
    begin
      res := http.Response.RawHeaders.Text;
      i := posex('remixchk', res) + 9;
      remixchk := Copy(res, i, PosEx(';', res, i) - i);
      i := posex('remixsid', res) + 9;
      remixsid := Copy(res, i, PosEx(';', res, i) - i);
      http.Request.CustomHeaders.Text := 'Cookie: remixchk=' + remixchk +
        '; remixsid=' + remixsid;
      http.CookieManager.AddCookie('remixchk=' + remixchk + '; remixsid=' +
        remixsid, 'http://vk.com');
      test := http.Get('http://vk.com' + http.Response.Location);
    end
  end;

  if pos('Вход', test) > 0 then
    result := false
  else
    result := true;
end;

[Кольша]

ну тогда хз

[unbanned]

все-таки ошибка в авторизации... вместо профиля возвращает вот такую страничку Новый текстовый документ.html.txt