Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
scroyler
14 / 14 / 1
Регистрация: 01.08.2011
Сообщений: 332
1

Установка статуса на однокассниках

31.03.2012, 18:27. Просмотров 1256. Ответов 2
Метки нет (Все метки)

Прошел авторизацию на мобильной версии одноклассников.
Далее хочу поставить статус
Код
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
idhttp1.CookieManager:=idcookiemanager1;
params.Add('fr.posted=oqnpmnvfyunzbinnm0ogbfzarlwpaycqaaw');
params.Add('fr.status='+edit3.text);
params.Add('button_submit=+');
responseres.Text:=idhttp1.Post('http://m.odnoklassniki.ru/',params);
finally
params.free;
responseres.free;
end;
end;
Но почему то ни чего не происходит, в чем проблема?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 18:27
Ответы с готовыми решениями:

Проверка статуса подключения к инету
Нужно подключиться к прокси серверу и проверить, подключен ли интернет. ...

Вывод статуса работы bat-файла
Доброго времени суток, в программе хочу сделать вывод статуса. Тоесть, к...

Определение статуса
Доброго всем дня! Взялся помочь знакомому справиться с несложным заданием в...

Обновление статуса
Необходимо в Stringgrid добавить статус рейса (отправлен/ожидается), желательно...

Проверка статуса службы
Всем привет. Подскажите, пожалуйста, что не так в этом скрипте? @echo off...

2
Alex_pac
1293 / 699 / 107
Регистрация: 25.05.2011
Сообщений: 2,158
Записей в блоге: 51
31.03.2012, 19:38 2
через TWebbrowser + JavaScript делай

вот модуль

http://jqbook.narod.ru/delphi_js.html

для большего успеха обнови IE до 8-9 версии
0
anonimus
2154 / 1244 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
01.04.2012, 21:30 3
Лучший ответ Сообщение было отмечено scroyler как решение

Решение

вот, рабочий код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var list:TstringList;
    i:byte;
begin
list:=TstringList.Create;
list.Add('gwt.requested=ec46c45a');
list.Add('st.status.postpostForm='+postpostForm);
list.Add('st.status.postfldtab=0');
list.Add('st.status.postcontent_textarea='+UTF8Encode(edit1.Text));
list.Add('urlPattern=(?:(?:https?|ftp):\/\/|(?:mailto:)?[-a-z0-9!#$%&''*+/=?^_`{|}~][-.a-z0-9!#$%&''*+/=?^_`{|}~]*@)?(?:(?:(?:(?:[\wГ*-ГїГЂ-Гџ-]+)\.){1,5})(?:com|net|org|biz|info|name|pro|asia|aero|cat|coop|eco|jobs|mobi'+'|museum|post|tel|travel|xxx|edu|gov|int|mil|ðô|èñïûòГ*Г*ГЁГҐ|xn--[\w-]*|[a-z]{2})|(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))(?::\d{1,5})?(?:\/[;:=\%#\&\?\w\/Г*-ГїГЂ-Гџ\.+\-!_''*()]*)?');
for i:=0 to 8 do
   list.Add('st.status.postpreviewInput=');
list.Add('st.status.postphotoAlbumPolicy=2');
 
IdHTTP1.Post('http://www.odnoklassniki.ru/burukhtan.vtoroyvtoroy?st.cmd=userMain&cmd=MiddleColumnTopCard_StatusPost&tkn=1950&gwt.requested=ec46c45a&p_sId=523758572',list);
 
freeandnil(list);
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2012, 21:30

Ведение статуса заказа
Как реализовать ведение статуса заказа? К примеру покупатель приобретает товар...

Проверка статуса olevariant
строю парсер для магазина. сделал модуль, который тянет информацию о...

Проблема со строкой статуса
Я накрапал сайт и на каждой страничке у меня в строке статуса помещается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru