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

[Pasha_Sh]

Вот новый код:

var
a: TStringList;
buff, photo, chas, secure: string;
begin
buff:=idhttp1.Get('http://vkontakte.ru/mail.php?act=write&to=17063024');
photo:=buff;
chas:=buff;
secure:=buff;
memo1.Lines.Text:=buff;
//-----chas------//
Delete(chas, Pos('<!DOCTYPE', chas), Pos('name="chas"', chas));
Delete(chas, Pos('ame="chas"', chas), Pos('value="', chas) + 6);
Delete(chas, Pos('" />', chas), Length(chas));
//-----photo-----//
Delete(photo, Pos('<!DOCTYPE', photo), Pos('name="photo"', photo));
Delete(photo, Pos('ame="photo"', photo), Pos('value="', photo) + 6);
Delete(photo, Pos('" />', photo), Length(photo));
//----secure-----//
Delete(secure, Pos('<!DOCTYPE', secure), Pos('name="secure"', secure));
Delete(secure, Pos('ame="secure"', secure), Pos('value="', secure) + 6);
Delete(secure, Pos('" />', secure), Length(secure));
//---------------//
a:=TStringList.Create;
//a.Add('id=17063024');
a.Add('act=sent');
a.Add('ajax=1');
a.Add('misc=');
a.Add('secure='+ secure);
a.Add('chas='+ chas);
a.Add('photo='+ photo);
a.Add('to_id=17063024');
a.Add('to_reply=0');
a.Add('toFriends=');
a.Add('title=123');
a.Add('message=proverka');
a.Add('oid=');
a.Add('vid=');
a.Add('fid=');
a.Add('aid=');
try
idhttp1.Post('http://vkontakte.ru/mail.php', a);
finally
  a.Free;
end;
end;

При попытке отправки сообщения выдаёт ошибку:

First chance exception at $7C812AFB. Exception class EIdHTTPProtocolException with message 'HTTP/1.1 400 Bad Request'. Process Project1.exe (3028)

[mishalive]

а где вы нашли параметр name="chas" на странице контакта?

[vershik]

var
a:Variant;

procedure TForm1.FormActivate(Sender: TObject);
begin
WebBrowser1.Silent:=True; // Чтобы не было проблем с ошибками браузера
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://vk.com/login.php?m=1&email=ЛОГИН&pass=ПАРО ЛЬ'); // авторизация вконтакте
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://vk.com/mail.php?act=write&to=000000000'); // вместо 000000000 - id кому писать
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:=Webbrowser1.OleObject.Document.G etElementByid('mail_topic');
a.Value:='Тема'; // Тема сообщения
a:=Webbrowser1.OleObject.Document.G etElementByid('mail_write_field');
a.Value:='Текст'; // Текст сообщения
a:=Webbrowser1.OleObject.Document.G etElementByid('mail_send');
a.Click; // Нажимаем Отправить
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
a:=Webbrowser1.OleObject.Document.G etElementByid('logout_link');
a.Click; // Выходим из контакта, чтобы избежать проверку на спам
end;

//P.S. GetElementByid пишется слитно! (пробовал править - косяк сайта)