Отправка сообщений в Vk

[Mrsqler]

Авторизовался

procedure TForm1.Button1Click(Sender: TObject);
var PageProfile:string;
begin

 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 try
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+edit1.Text+'&pass='+edit2.Text);
 except
 end;
 if Pos('logout', PageProfile)<>0 then
  Memo1.Lines.Add('Авторизация удалась')
 else
  Memo1.Lines.Add('Авторизация не удалась');

end;

Как теперь отправить сообщение?Пытался через Http.get('http://pda.vkontakte.ru/write');
Но ничего дельного не вышло...

Ап вот,в принципе можно отправлять так

IdHTTP1.get('http://m.vk.com/mail?act=send&to=55898222&from=dialog&hash=Мой_хеш&message=qewq');

Только это правильно вообще?Хеш будет меняться?Если да,то как его отлавливать можно?Именно в программе,а не через сниффер.

[Delphi_ProGer]

Хеш меняеться! Доставайте его при авторизации из кода страницы.

[Mrsqler]

Ну допусти хеш смогу выдрать,а куда ему потом вставлять?
И вот еще вопрос,список сообщений плохо парсится

haveMsg:='<em>1</em>';
q:=IdHTTP1.get('http://m.vk.com/mail');
       mes:=IntToStr(Pos(haveMsg,q));
       Memo1.Lines.Add(mes);
      
       number:=copy(mes,5,1);
       if StrToIntDef(number,0)<>0 then

     Memo1.Lines.Add('You have a new message')
           else
     Memo1.Lines.Add('You have not a new message');

Авторизация идет без проблем,но выводится что сообщений нет,хотя я специально отправил себе одно непрочитанное сообщение.Попытался вывести то,что парсится Memo1.Lines.Add(mes); в Memo вывелось значение 0 .Почему?По идее же там должна быть строка?

[Delphi_ProGer]

IdHTTP1.get('http://m.vk.com/mail?act=send&to=55898222&from=dialog&hash=Мой_хеш&message=qewq');

вот сюда хеш и вставите.

[Mrsqler]

А почему сообщения-то не парсятся?

[Кольша]

Кмесяца полтора разбиралась такая тема юзайте поиск