Авторизация на сайте

[uberchel]

Писать код не буду, говорю вам правильную конструкцию:
Для начала если есть в запросе сессия или какие либо еще нужные переменные для запроса, сначала гетите их, далее не занимайтесь гемороем с формой, посылайте пост запрос со всеми нужными переменными и после успешной авторизации работайте уже с созданным обьектом.
Для реализации этой задачи подойдет реализация через OleVariant, iDHttp, WinSock, примеры работы с компонентами есть в интернете.

[Don_Capone]

сори что так долго :P щас токо освободился вот код Сразу скажу чтобы ы включил в IDHTTP1 handlerecredit (должно быть true)
вот код все лично проверил авторизацию проверил :P

var
LOL, Pro: TStrings;
begin
lol := TStringList.Create;
pro := TStringList.Create;
try
lol.Add('vb_login_username='+Edit1. Text);
lol.Add('vb_login_password='+Edit2. Text);
lol.Add('x=17');
lol.Add('y=6');
pro.Text := IdHTTP1.Post('http://cheaton.ru/login.php?do=login',lol);
if Pos('Выход',pro.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
lol.Free;
pro.Free;
end;

будут вопросы не стесняйся задовай :P

[Don_Capone]

Использовать прокси :P

uses urlmon, wininet
...
...
procedure lol;
var
Proxytest: Pinternetproxyinfo;
begin
new (Proxytest);
proxytest^.dwAccessType:= INTERNET_OPEN_TYPE_PROXY;
proxytest^.lpszProxy:=PAnsichar ('116.231.217.172:8080'); // прокси которая использует программа
proxytest^.lpszProxyBypass:= PAnsichar ('');
URLMKSETSESSIONOPTION (INTERNET_OPTION_PROXY , PROXYTEST , SIZEOF (iNTERNET_PROXY_INFO),0);
WB.Navigate('vk.com');
dispose(proxytest);