помогите код рабочий ну сообщения не отправляет вконтакте) s := idhttp1.get('http://vk.com/al_mail.php?__query=mail&al='+to_id); sl:=tstringlist.create; sl.add('act=a_send'); sl.Add('all=1'); sl.add('to_id='+ InputV(s,'to_id')); sl.add('to_reply=0'); sl.add('chas='+ InputV(s,'chas')); sl.add('title='+title.text); sl.add('message='+message.Text); idhttp1.post('http://vk.com/al_mail.php',sl); sl.free;
все равно не отправляет Get s := idhttp1.get('http://m.vk.com/mail?act=send&to='+id); Post idhttp1.post('http://m.vk.com/mail',sl); почему не отправляет?
если запрос, как вы утверждаете, рабочий, то пардон за нескромный вопрос, а вы авторизовываетесь перед отправкой мессаги? =) ps: сниффер в помощь!