Vk массовая авторизация

[Mrsqler]

Всем привет!Имеется код для авторизации вконтакте:

var
 PageProfile:string;

 begin
   if edit1.Text='' then messagebox(0,'Введите ваш E-mail','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
       else
      if edit2.Text='' then messagebox(0,'Введите пароль!','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
      else
 begin
  TidCookieManager.Create(IdHTTP1);
   IdHTTP1.Request.Host:='m.vkontakte.ru';
   IdHTTP1.Request.UserAgent:='Mozila/5.0 (Windows; U; Windows NT 5.1; com; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
   IdHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   IdHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   IdHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   IdHTTP1.AllowCookies:=true;
   IdHTTP1.HandleRedirects:=true;
try
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+ListBox1.Items[0]+'&pass='+ListBox1.Items[1]);
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+ListBox1.Items[2]+'&pass='+ListBox1.Items[3]);

except
end;
 if Pos('logout', PageProfile)<>0 then
     begin
      messagebox(0,'Авторизация прошла успешно!','Vk_Infromer',MB_OK or MB_ICONINFORMATION);
     end
 else
   begin

    messagebox(0,'Авторизация не удалась!Попробуйте снова.','Vk_Infromer|Ошибка!',MB_OK or MB_ICONERROR);
   end;
 end;
   end;

Если авторизывывать один аккаунт,то всё работает,а как быть с двумя,или даже с 3-мя аккаунтами?
Добавить еще одну строчку?

PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+ListBox1.Items[2]+'&pass='+ListBox1.Items[3]);

Или же как-то по другому?

[Delphi_ProGer]

Вынести код авторизации в процедуру и вызывать в цыкле, также проверять капчу(а она там быть), следить за выделенную память под обьекты(см.

TidCookieManager.Create(IdHTTP1);

).

[Mrsqler]

А как же я буду добавлять логин и пароль в ссылку?Если весь код в процедуре будет?

[Pein95]

а в процедуре параметров разве нет?

[Mrsqler]

Можете помочь с процедурой?) Через out можно объявить выходные параметры.У меня в это объект ListBox.Но я его похоже как-то не правильно объявил

Procedure Autorisation(PageProfile:string;out ListBox1.Items[0],ListBox1.Items[1]:string );
var
IdHTTP1: TIdHTTP;

Edit1: TEdit;
Edit2: TEdit;
 begin
   if edit1.Text='' then messagebox(0,'Введите ваш E-mail','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
       else
      if edit2.Text='' then messagebox(0,'Введите пароль!','Vk_Infromer',MB_OK or MB_ICONINFORMATION)
      else
 begin
  TidCookieManager.Create(IdHTTP1);
   IdHTTP1.Request.Host:='m.vkontakte.ru';
   IdHTTP1.Request.UserAgent:='Mozila/5.0 (Windows; U; Windows NT 5.1; com; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
   IdHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   IdHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   IdHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   IdHTTP1.AllowCookies:=true;
   IdHTTP1.HandleRedirects:=true;
try
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+ListBox1.Items[0]+'&pass='+ListBox1.Items[1]);
  PageProfile:=IdHTTP1.get('http://vkontakte.ru/login.php?email='+ListBox1.Items[2]+'&pass='+ListBox1.Items[3]);

except
end;
 if Pos('logout', PageProfile)<>0 then
     begin
      messagebox(0,'Авторизация прошла успешно!','Vk_Infromer',MB_OK or MB_ICONINFORMATION);
     end
 else
   begin

    messagebox(0,'Авторизация не удалась!Попробуйте снова.','Vk_Infromer|Ошибка!',MB_OK or MB_ICONERROR);
   end;
 end;
   end;

[Pein95]

У меня ещо вопрос к вам) Вам нужно авторизировать одновременно несколько пользователей или по-очереди?

[Mrsqler]

Одновременно несколько пользователей,а что?)

[QunneD]

Используйте потоки, плюс работа в цикле, и собственно будет Вам счастье.