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

[mustang007]

Пробовал вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
x: TStringList;
begin
x:=TStringList.Create;
x.Add('message' + edit1.text);
idhttp1.Post('http://vkontakte.ru/mail.php?act=write&to=24665056',x);
end;

Но не работает.

[Denager]

И не будет.
там GET'ом получается данная страница, что у вас указана, на которую вы POST'ом пытаетесь послать сообщение.
От туда получается параметры для POST запроса на

http://vkontakte.ru/mail.php

Далее часть кода из собственного проекта:

        Strtosend.Add('secure='+secure);
        Strtosend.Add('chas='+chas);
        Strtosend.Add('photo='+photo);
        Strtosend.Add('to_id='+For_who); //For_who здесь id того, кому шлется сообщения
        Strtosend.Add('to_reply=0');
        Strtosend.Add('act=sent');
        Strtosend.Add('title='+TitlText.Text); //Тема сообщения
        Strtosend.Add('message='+MsgText.Text);//Текст сообщения

Предварительно передаваемые параметры распарсены от GET запроса, о чем сказано выше

procedure ParsText(s_incom:string);
var
  s:string;
begin
  s:=s_incom;
  secure:=copy(s,pos('secure',s),length(s)-pos('secure',s));
  secure:=copy(secure,pos('value',secure),length(secure)-pos('value',secure));
  secure:=copy(secure,pos('"',secure)+1,pos('/>',secure)-10);

  chas:=copy(s,pos('chas',s),length(s)-pos('chas',s));
  chas:=copy(chas,pos('value',chas),length(chas)-pos('value',chas));
  chas:=copy(chas,pos('"',chas)+1,pos('/>',chas)-10);

  photo:=copy(s,pos('"photo"',s),length(s)-pos('"photo"',s));
  photo:=copy(photo,pos('value',photo),length(photo)-pos('"photo"',photo));
  photo:=copy(photo,pos('"',photo)+1,pos('/>',photo)-10);
end;

//Данный код работал ну месяца 3 назад точно, сейчас с различными усовершенствованиями и оптимизациями данной социалки, я не уверен. Но суть, думаю что понятна

[frantic150]

так вот откуда берутся спамеры

[Оптимист2009]

Либо я чего-то не понимаю, либо для отправки сообщения вконтакте нужна была авторизация... Где она?