Get post

[zarginava]

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

var
 sl:tstringlist;
 to_ids, s : string;
begin
to_ids := '7319183';
 s := idhttp1.get('http://vk.com/al_mail.php='+to_ids);
 sl:=tstringlist.create;
 sl.add('to_id='+ InputV(s,'to_id'));
 sl.add('to_reply=0');
 sl.add('chas='+ InputV(s,'chas'));
 sl.add('title=346456');
 sl.add('message=23455763');
 idhttp1.post('http://q64.queue.vk.com/im473',sl);
 sl.free;
end;

что может быть не так ?

[zarginava]

to_ids := '7319183';
 s := idhttp1.get('http://vk.com/GET /al_mail.php?='+to_ids);
 sl:=tstringlist.create;
 sl.add('a_send=');
 sl.add('to_id='+ InputV(s,'to_id'));
 sl.add('to_reply=0');
 sl.add('chas='+ InputV(s,'chas'));
 sl.add('title=...');
 sl.add('message=23455763');
 idhttp1.post('http://vk.com/al_mail.php',sl);
 sl.free;
end;

пробывал так ну не получается.

[zarginava]

выскакивает ошибка http
может быть ошибка в получение хеша?

 sl.add('chas='+ InputV(s,'chas'));

[Mifody]

так может приведеш код функции InputV для разнообразия?

[Кольша]

сниффер вам в помощь

[zarginava]

var
  i:integer;
begin
  i := PosEx('"',s,PosEx('value',s,Pos(name,s)));
  result := Copy(s,i+1,PosEx('"',s,i+1)-i-1);

не могу понять может проблема в Get post?

 s := idhttp1.get('http://vk.com/al_mail.php?__query=mail='+al_id);

 idhttp1.post('http://vk.com/al_mail.php',sl);

[Mifody]

кхм.

HandleRedirect = true;

так? тогда наверное редирект на HTTPS

[zarginava]

все равно не получается..

[Кольша]

как мне кажется авторизовались вы не правильно там кукисы надо отлавливать вручную если вы их отлавили тогда смотрите сниффером как отправляется с сайта иначе авторизовывайтесь правильно