Если ты задаешь такой вопрос, значить ты не когда не писал программы под ВКонтакте. Это не страшно я росскажу как это все реализовать. Будем использовать Delphi7 и для роботы с социальной сетью IdHttp(будем создавать динамичиский) Ну конечно нам нужен снифер, для этого отлично подойдет HttpAnalyzerStdV5 . Для начала нам нужен алгоритм работы программы. 1* Первое действие это авторизация. 2* Получение главной страницы пользователя. 3* Парсинг activityhash с главной страницы анкеты(Нужно будет для запроса). 4* Отправка запроса на смену статуса где: setactivity="Че у нас будет в статусе"; activityhash="Сам hash" Ну и все, а в сети ты готового примера не найдешь.
GhostOnline, наверно он будет создавать его в процедуре ТС, Могу скинуть код, только хеш со страницы, надо будет тебе самому спарсить...
Спасибо кто откликнулся. Кто сможет помочь через TeamViewer?Просто хочу с чего то стартануть а не могу,а так я буду смотреть по примеру вашему,для написание других программ.
var Kuka,serv:string; ...... Kuka:=http.Get('http://vkontakte.ru/'); serv:=copy(kuka,pos('activityhash',kuka),pos('>',kuka)); serv:=Copy(serv,22,32); idhttp.Get('http://vkontakte.ru/profile.php?setactivity=status&activityhash='+serv); Вот
пользуйся на здоровье, учи indy, winapi, winsock ну и конечно же основы Delphi Как раз потестишь, делал фастом) хотя время убил нормал) будут ошибки пиши... + надеюсь от тебя увидеть P.S. хотя мне бы самому Win API , winsock выучить
ну что же вы так серьёзны человек еще не совсем понимает как работать с пост запросами..а мб и начальным уровнем дельфи всё прийдёт с практикой
Да Я в Делфи Начинающий,Юзал до этого VB/ Если бы я знал как организовать код тот я бы не спрашивал о помощи в теам вире. Вы понимаите что мне сразу тяжело то? Немножко по учусь легче будет.. Ой прикольно как то получилось но мне это и нужно.Блин сможешь помочь то?
Ну а что тебе помогать то тогда? Тебе дал рабочий пример. Почему всё должны сделать за тебя? Напрягись, пойми как это работает и сделай сам. А тупо взять готовый пример скомпилить его - это идиотизм.