GET, POST, Авторизация и отправка сообщения на стену

[sashaxD]

procedure TForm5.Button1Click(Sender: TObject);
var
ss:String;
post333: TStringList;
begin

post333:= TstringList.Create;
post333.Add('act=post')  ;
post333.Add('message=test123')  ;
post333.Add('type=all')  ;
post333.Add('hash=)  ;
post333.Add('to_id=Ваш_номер_страници')  ;
post333.Add('al=1')  ;
post333.Add('facebook_export=')  ;
post333.Add('friends_only=')  ;
post333.Add('note_title=')  ;
post333.Add('official=')  ;
post333.Add('status_export=')  ;



http1.HandleRedirects:=true;


   try
ss := http1.get('http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.text);
       except
       end;

if Pos('top_nav_link',ss)<>0 then memo1.lines.add('Авторизация прошла успешно') else  memo1.lines.add('Ошибка авторизации') ;


try
http1.post('http://vkontakte.ru/al_wall.php',post333);
    except
    post333.Free;
    end;


if Pos('test123',ss)<>0 then memo1.lines.add('Пост успешно отправлен на стену') else  memo1.lines.add('Ошибка отправки поста') ;


end;

Вобщем вот код программы =)
Хотел сделать, чтобы сообщение постилось на стену вконтакте, но почему-то не получается. Хотя авторизация проходит успешно.
Логин и пароль беруться из едит1 и едит2. Помогите пожалуйста разобраться)

[Lesha]

api вконтакте

[sashaxD]

Сообщение от Lesha

api вконтакте

И как это мне поможет?

[Lesha]

И как это мне поможет?

то что простыми GET запросами без парсинга страницы можно выполнять нужные вам действия

[sashaxD]

Сообщение от Lesha

то что простыми GET запросами без парсинга страницы можно выполнять нужные вам действия

Извините, не могу найти то что мне нужно.

[sashaxD]

Ап, помогите разобраться...

[Человек_Борща]

1-ая ссылка. И там все по русски написано.