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

[scroyler]

Прошел авторизацию на мобильной версии одноклассников.
Далее хочу поставить статус

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;

Но почему то ни чего не происходит, в чем проблема?

[Кольша]

fr.posted=

надо парсить, а не просто подставлять(тупо как то сделано у них) и еще советую сниффом глянуть=) и еще мне так кажеться что пост посылается не просто на m.od.........

[scroyler]

Я сниффером и делал

fr.posted=oqnpmnvfyunzbinnm0ogbfzar lwpaycqaaw

При любом тектсе этому и равен.

А не подскажешь как парсить?

[Кольша]

Оп

[scroyler]

Это я умею)
А что там парсить , я не понял. Где находится это все?

[Кольша]

Сниффер выдал:

POST /dk?st.cmd=userMain&bk=UserStatus&tk n=2298 HTTP/1.1
Host: m.odnoklassniki.ru
Referer: http://m.odnoklassniki.ru/
Accept: application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-RU
Origin: http://m.odnoklassniki.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru-RU) AppleWebKit/533.19.4 (KHTML, like Gecko) Version/5.0.3 Safari/533.19.4
Accept-Encoding: gzip, deflate
Content-Type: application/x-www-form-urlencoded
Cookie: BANNER_LANG=ru; JSESSIONID=9a0b7a37b7c24f5988f2583a 339a4c69898fdb85c3146c49.1945a1b0; community-lang=ru; AUTHCODE=qirxplqedcgbgmitf_qhxurquy jgbpjvuaak_qndqttctjgsjbphgqg
Content-Length: 77
Connection: keep-alive

fr.posted=bobhpygybkwrooubnq0cocoex nwdvsiccpdbot&fr.status=&button_sub mit=%2B

ссылка пост=

url:=stringreplace(pars('<form action="','"',html),'amp;','',[rfreplaceall]);

fr.posted=

fr:=pars('><input value="','" type="hidden"',html);

а дальше сами

[scroyler]

а можешь показать целиком как будет выглядеть?)

[Кольша]

var params,responseres:tstringlist;
html,fr:string;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
try
idhttp1.CookieManager:=idcookiemanager1;
html:=idhttp1.get('http://m.odnoklassniki.ru/');
fr:=pars('><input value="','" type="hidden"',html);
url:=stringreplace(pars('<form action="','"',html),'amp;','',[rfreplaceall]);
params.Add('fr.posted='+fr);
params.Add('fr.status='+edit3.text);
params.Add('button_submit=+');
responseres.Text:=idhttp1.Post('http://m.odnoklassniki.ru'+url,params);
finally
params.free;
responseres.free;
end;
end;

P.S если твоя прога наберет мега популярнсть хочу баннер в программе=)

[scroyler]

Спасибо,пашет!

Сообщение от Кольша

[CODE]
P.S если твоя прога наберет мега популярнсть хочу баннер в программе=)

Как скажешь :D