доработать помочь код

[alex0097]

Собствено проблема в авторизации с контактом. Кто нить сможет помочь. спамер работает, только не авторизовыввается. он может ток работать через куки в которых есть данные уже. а надо чтобы он авторизовывался под новым. но с сайтом он не коннектится

procedure TForm1.AutorizeClick(Sender: TObject);
begin
//
 New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar(proxy.Items[proxy.ItemIndex]);
  //  указать  прокси  напр.

  PIInfo^.lpszProxyBypass := PChar('');

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);

    Dispose(PIInfo);
//



Web.Show;
  if ansipos(';', EmailPass.Items[EmailPass.Itemindex])<>0
 then begin
 WhatIdo:='Authorize';

 {тут типа парсинг емайл-пасс строки}
Email:=copy(EmailPass.Items[EmailPass.Itemindex],0,ansipos(';', EmailPass.Items[EmailPass.Itemindex])-1);
Pass:=copy(EmailPass.Items[EmailPass.Itemindex],ansipos(';', EmailPass.Items[EmailPass.Itemindex])+1, length(EmailPass.Items[EmailPass.Itemindex]));
//

  MyStat.Lines.Add(SysUtils.TimeToStr(time)+'||'+' Попытка авторизироваться под '+Email);
Web.Navigate(http://vkontakte.ru/login.php?email='+Email+'&pass='+Pass+'&HTTP/1.0');
 //http авторизация


 end else begin
 showMessage('Данные не корректны! Проверте email;Pass');
 end;
end;

[alex0097]

может кто нить мне поможет?

[p51x]

1. Достали спамеры, которые даже простой код написать не могут, а только гадить
2. Все уже выкладывалось
3. Все легко находится в гугле