Delphi Studio » Примеры на Delphi » Примеры на Delphi Сеть Интернет » Удаляем все сообщения vkontakte. Пример на Delphi(Synapse) »

 
 
 
Приветствуем нового пользователя: chexiahig
 
Реклама на сайте

Удаляем все сообщения vkontakte. Пример на Delphi(Synapse)

Автор: FeniXElite | 11-04-2011, 14:34 | Просмотров: 189 | Категория: Примеры на Delphi » Примеры на Delphi Сеть Интернет

0
Удаляем все сообщения vkontakte. Пример на Delphi(Synapse)

Всем доброго дня winked
Хочу поделиться с вами небольшим кодом, который позволяет удалять сообщения вконтакте(vkontakte.ru).


procedure DeleleMessage;
var
  ResponseData: TStringStream;
  PostData: TStringStream;
  ids: string;
begin
  HTTP := THTTPSend.Create;
  HTTP.Document.Clear;
  HTTP.Headers.Clear;
  ResponseData := TStringStream.Create;
  PostData := TStringStream.Create;

  {
    Тут нам нужно составить список сообщений для удаления. Список должен быть в таком формате: id1,id2,id3..idX
    Как парсить id я тут рассказывать не буду, способов масса. От банального 10000,9999,9998..1, до парсинга со страницы mail.php

   id := 100,65,32,64 // удалит сообщения с id 100,65,32,64
  }
      PostData.Clear;
      PostData.WriteString('al=1&mark=del&msgs_ids=' + ids);
      HTTp.Document.Clear;
      HTTP.Headers.Clear;
      HTTP.MimeType:='application/x-www-form-urlencoded';
      HTTP.Document.LoadFromStream(PostData);
      HTTP.HTTPMethod('POST', 'http://vkontakte.ru/mail?act=a_mark');

  FreeAndNil(ResponseData);
  FreeAndNil(PostData);
  FreeAndNil(HTTP);
end;
Прямая ссылка на страницу: HTML ссылка: Ссылка для форумов:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
 
-й день
Онлайн:
rss