procedure login;     var  html:string;  s:string ;  begin      Form1.Label1.Caption:='Получам доступ в хранилище' ;   html := form1.IdHTTP1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');   if (html='vklogin') then   begin   Form1.Label1.Caption:='Обмениваемся информацией с хранилищем' ;   html:=form1.IdHTTP1.Get('http://login.vk.com/?act=login&email=sss@ddd.ru&pass=pass&expire=&vk=');   s:= RegexProc('value='''+'([\w]{15,80})',html);   s:= RegexProc('[\w]{15,80}',s);       Form1.IdHTTP1.HandleRedirects:=true;       Form1.IdHTTP1.RedirectMaximum:=0;       Form1.IdHTTP1.CookieManager:= form1.IdCookieManager1;       Form1.IdHTTP1.AllowCookies:=true;     Try   html:= Form1.IdHTTP1.Get('http://vkontakte.ru/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;    Except      ShowMessage('Неизвестная ошибка');    end;    cook:=  RegexProc('remixsid=([\w]{20,100})', form1.IdHTTP1.Response.RawHeaders.GetText  );    cook:=  RegexProc('([\w]{20,100})',cook);   end   else   begin   Form1.Label1.Caption:='Доступ невозможен, т.к. на ваш айпи повешенна капча!' ;   end;       end;

Form1.IdCookieManager1.AddCookie('remixsid='+cook+'; path=/; ','vkontakte.ru');    Form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vkontakte.ru');      Form1.IdHTTP1.CookieManager:= Form1.IdCookieManager1;    Form1.IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';    request:=TStringList.Create;    Form1.IdHTTP1.AllowCookies := true;    //request.Add('midAuth=1');    //request.Add('user='+'jjj');    //request.Add('pswd='+'lll');    Form1.Label1.Caption:='Переходим на vkontakte.ru' ;    try    bufer:=Form1.IdHTTP1.Get('http://vkontakte.ru/');      except  ShowMessage('Ошибка связи!');