Исходник процедуры авторизации в вконтакте. Как запустить?

[big_master]

Всем привет! Парни подскажите пожалуйста!
Я новичек, сегодня только установил делфу) ну и написал тестовую программу. Но вопрос не в этом! Вопрос* у меня есть исходник программы, как сделать теперь ее?

вот собственно исходник!

procedure autorisation;
var
uns: String;
s: String;
begin
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
try
idhttp1.get('http://vk.com/profile.php');
finally
if s = '' then
begin
memo1.Lines.add('Не удалось');
end
else
begin
button1.Destroy;
button2.Visible := true;
memo1.Lines.add('Авторизация успешна, ваш remixsid='+s)
end;
end;
end;

[856100]

Ну может стоит начать с чего нибудь попроще?
а по сути: это не исходник, а только код процедуры.

[big_master]

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

а только код процедуры.

Смысли? Что я могу с этим сделать?

[856100]

Это часть исходника (кусок кода). В данный момент со своими знаниями в области программирования на Delphi вы с ним ничего сделать не сможете.

[Terran]

у меня есть исходник программы, как сделать теперь ее?

У Вас процедура авторизации. Чтобы выполнить эту процедуру поставьте на форму компоненты: Button1, Memo1, IdHTTP1, IdCookieManager1, Edit1, Edit2.
И напишите код. Код немного подправил.

procedure autorisation;
var
uns: String;
s: String;
begin
uns:=form1.idhttp1.get('http://login.vk.com/?act=login&email='+form1.edit1.text+'&pass='+form1.edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
form1.idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
form1.IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
try
form1.idhttp1.get('http://vk.com/profile.php');
finally
if s = '' then
begin
form1.memo1.Lines.add('Не удалось');
end
else
begin
form1.memo1.Lines.add('Авторизация успешна, ваш remixsid='+s)
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Autorisation;
end;

P.S. Как уже советовали выше, лучше взять код какой-нибудь попроще.

[NSV]

Эх, расписывал, расписывал - всё равно обогнали
Скажу, напоследок, чтобы человек не мучился, где искать эти компоненты...
IdHTTP (закладка Indy Clients)
IdCookieManager (закладка Indy Misc)
Memo, два Button, два Edit (закладка Standart)

[big_master]

Парни огромное Спасибо! Ща буду пробовать!!!

Чтобы выполнить эту процедуру поставьте на форму компоненты: Button1, Memo1, IdHTTP1, IdCookieManager1, Edit1, Edit2.

я это всё вставил, а вот куда вставлять

procedure autorisation;
var
uns: String;
s: String;
begin
uns:=form1.idhttp1.get('http://login.vk.com/?act=login&email='+form1.edit1.text+'&pass='+form1.edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
form1.idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
form1.IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
try
form1.idhttp1.get('http://vk.com/profile.php');
finally
if s = '' then
begin
form1.memo1.Lines.add('Не удалось');
end
else
begin
form1.memo1.Lines.add('Авторизация успешна, ваш remixsid='+s)
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Autorisation;
end;

??
Подскажите (

[Stilet]

что значит куда вставлять?
Сам же написал

procedure TForm1.Button1Click(Sender: TObject);
begin
Autorisation;
end;

в обработчик клика кнопки OnClick

[big_master]

Button1, Memo1, IdHTTP1, IdCookieManager1, Edit1, Edit2.

это в каждую вставлять?

[XerSon]

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

Button1, Memo1, IdHTTP1, IdCookieManager1, Edit1, Edit2.

это в каждую вставлять?

Оффтоп!
Ну если все по нраву, то вставляй каждой, только не забудь об защите вставлялки, и не оборачивайся, молодость такая штука, проспишь и вот тебе и пенсия, а на ней не повставляешь!