Помогите знающие! Ну вот не могу я! Не могу понять как авторизироваться на SWBlife.com! Умоляю помогите. Я только освоил недавно Procedure и boolean, а это не знаю. В либах ковырялся, мне не доходит как пароль с логином отправить!
program SWB;
uses proweb,suspend,vibra;
var enter:command;
id,pwd:integer;
acc:string;
begin
{ Создание формы на экране }
enter:=createCommand('Войти',CM_OK,1);
showForm;
addCommand(enter);
id:=formAddTextField('ID аккаунта:','',20,TF_NUMERIC);
pwd:=formAddTextField('Пароль:','',20,TF_ANY);
{ожидание, пока пользователь нажмёт кнопку Войти}
while (getClickedCommand<>enter) do
delay(100);
acc:=formGetText(id);
open('http://swblife.com');
set_method(post);
set_body(16529107);
end.
Сразу спасибо! Если надо то вот логин/пароль:
id: 16529107
pwd: avon1234567