procedure TForm1.Button1Click(Sender: TObject);
var
PostData, Getdata:TStringList;
shash:string;
data1, data2:string;
begin
PostData:=TstringList.Create;
GetData:=TstringList.Create;
PostData.Add('op=a_login_attempt');
GetData.Text:=Idhttp1.Post('http://vkontakte.ru/login.php',PostData);
PostData.Clear;
PostData.Add('email=login');
PostData.Add('pass=pass');
PostData.Add('expire=');
PostData.Add('vk=');
shash:=Idhttp1.Post('http://login.vk.com/?act=login',PostData);
PostData.Clear;
PostData.Add('s='+Copy(shash,Pos('value',shash)+7,56));
PostData.Add('op=slogin');
PostData.Add('redirect=1');
PostData.Add('expire=0');
PostData.Add('to=');
GetData.Text:=IdHttp1.Post('http://vkontakte.ru/login.php',PostData);
data1:=idhttp1.Get('http://vkontakte.ru/login.php');
PostData.Clear;
Memo1.Text:=data1;
data2:=Copy(data1,Pos('{postWall',data1)+9,Pos(')}}"',data1)-Pos('{postWall',data1)-8);
hash:=Copy(data2,Pos(',',data2)+3,Pos(')',data2)-Pos(',',data2)-4);
Memo3.Text:=hash;
memo2.Text:=dec_hash(hash);
PostData.Add('act=do_edit');
PostData.Add('id=id');
PostData.Add('view=2');
PostData.Add('edit=1');
PostData.Add('text=111111');
Idhttp1.Post('http://vkontakte.ru/pages.php',PostData);
end;