[beta] VkClient для Delphi - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 22.11.2012, 22:10   #1 (permalink)
VPN
 
Аватар для kill4you
 
Регистрация: 12.08.2009
Адрес: proxy-base.org
Сообщений: 318
Member ID: 2045
ICQ 316817

Репутация: 1437
Репутация: 1437
Сказал(а) спасибо: 1,407
Поблагодарили 509 раз(а) в 210 сообщениях
Топикстартер (автор темы) По умолчанию [beta] VkClient для Delphi

Компонент создан с использованием synapse.

Рассмотрим создание программы на основе данного компонента которая будет одобрять заявки в друзья:

1. Подключим в uses: VkClient



2. Объявим переменные: vk:TVKClient; id:string; objlist:TStringList;
3. Вписываем код:
vk:=TVKClient.Create(nil); //создаём компонент
vk.Format:=XML; //настраиваем формат возвращаемых данных (JSON или XML)
vk.Login:='Ваш логин ВК';
vk.Password:='Ваш парольВК';

vk.OnLogin; //вызываем функцию авторизации
vk.friends_getRequests('', '', '', '', '', ''); //вызываем функцию которая получает заявки в друзья
objlist:=TStringList.Create;
objlist.Text:=vk.Response.Text; //в vk.Response находится ответ сервера после выполнения функций
while objlist.Count>0 do begin //цикл будет идти до тех пор пока не пробежит по всему списку id
id:=Pars('<uid>', objlist[0], '</uid>'); //парсим id
if Length(id)>5 then vk.friends_add(id, ''); //если это id значит добавляем его
objlist.Delete(0);
end;

objlist.Free;
vk.Free;
Готово! Просто, не правда ли?

Теперь по поводу настроек:

1. Можно каждый раз не авторизироваться, а просто сохранить токен и использовать его потом, например:

После авторизации токен будет в переменной vk.VKToken (тип string), достаточно сохранить его и заменить:
vk.Login:='Ваш логин ВК';
vk.Password:='Ваш парольВК';

vk.OnLogin;
На:
vk.VKToken:='xxxxxxxxxxxxxxxxxxxxxxxxxxx';
Просто, не правда ли?

Компонент устанавливать не нужно, просто закиньте его в папку с программой!

Автор: VanS
Ссылка на оригинал темы.

Скачать

Последний раз редактировалось Krebs; 29.11.2012 в 02:41. Причина: Указал первоисточник.
kill4you вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Ответ

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ICQ Base (Beta #1) .Chuck Программы для ICQ 14 16.04.2012 11:33
Proxifier v3.0 beta 1 zimmer Proxy SOFT 16 16.12.2011 11:49
VCC beta 2 [тестирование] bedlam Cоциальные сети 0 24.04.2011 21:05
ICQMenace v0.9~2.0 Beta .thereal Программы для ICQ 0 28.11.2010 11:35
ICQ Base (Beta #1) Radzhab Дополнительные утилиты 3 22.06.2010 21:44




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.