Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.07.2012, 20:29   #1
Mrsqler
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 146
По умолчанию Vk отправка сообщений в группы

Нужно чтобы какое-то сообщение отправлялось по диапазону групп
допустим начальная группа 1,а конечная 10.В этом интервале сообщения должны отправиться на стену.

Авторизация проходит без проблем,сама отправка на стену тоже идет нормально,а вот с интервалом уже проблемы
Код:
var
s,hash,ConnectToGroup:string;
GroupNumber1,toGroupNumber1:integer;
  begin
    GroupNumber1:=StrToInt(GroupNumber.Text);//начальное ID гуппы
    toGroupNumber1:=StrToInt(toGroupNumber.Text);//конечное ID гуппы    
   while GroupNumber1 < toGroupNumber1 do
    begin
    S:=form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1) );
    hash:=Copy(S, Pos('post&hash=', S)+10, 18);
     if Pos('<a name="posts"></a>',S)<>0 then
     begin
     form1.IdHTTP1.get('http://m.vk.com/wall-'+IntToStr(GroupNumber1)+'?act=post&hash='+hash+'&message='+UrlEncode(ansitoutf8(Memo1.Text)));
     messagebox(0,'Сообщение успешно отправлено на стену!','Vk_Spamer',MB_OK or MB_ICONINFORMATION);
     GroupNumber1:=GroupNumber1+1;
     end
      else
      begin
      showmessage('Err!');
      GroupNumber1:=GroupNumber1+1;
       end;

    end;
  try
  form1.IdHTTP1.Disconnect;
except
end;
end;
Сообщение в первую группу отправляется,а вот в конечную не хочет.Всего их 4,писать я могу только в самой первой по счету,и в самой конечной.В первую отсылается,а в последнюю нет.
Писать я в ней могу.В чем может быть проблемы?Хеш не правильно парсится?Или что высчитываю не так?

Последний раз редактировалось Mrsqler; 03.07.2012 в 20:51.
Mrsqler вне форума Ответить с цитированием
Старый 03.07.2012, 20:54   #2
Mrsqler
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 146
По умолчанию

Чееееерт)Сори за тупую тему,всё работает и отправляется,надо было просто
вместо GroupNumber1 < toGroupNumber1 поставить GroupNumber1 <= toGroupNumber1

Теперь всё отправляется)
Mrsqler вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка сообщений в Vk Mrsqler Работа с сетью в Delphi 5 26.05.2012 21:31
отправка сообщений Proffi2010 Помощь студентам 1 27.05.2011 08:43
Отправка сообщений CalvinKlein Работа с сетью в Delphi 1 27.01.2010 20:46
Отправка сообщений вконтакте.ру mustang007 Работа с сетью в Delphi 3 28.06.2009 12:53
отправка сообщений Pitbull Работа с сетью в Delphi 6 03.08.2007 17:06