Webbrowser и цикл

[_ZixeL_]

Привет, ребята. Прошу помочь с циклом.
Суть программы: через webbrowser открываем страницу сайта > проходим авторизацию > переходим на нужную нам страницу > парсим нужное значение > чистим куки.
Всё это есть, но вот как забить это всё в цикл?
Цикл должен брать логин и пароль с Мемо и повторять действие которые находятся в DocumentComplete


Код:

Кнопка для старта:

procedure TForm2.Button1Click(Sender: TObject);
var
   b, list:Integer;
begin
  b:= pos(':', Memo1.Lines.Strings[list]);
  if b > 0 then
   begin
    login := copy(Memo1.Lines.Strings[list], 1, b - 1);
    pass := copy(Memo1.Lines.Strings[list], b + 1, Length(Memo1.Lines.Strings[list]) - b);
   end;
     WebBrowser1.Navigate('https://mail.yandex.ua/');
end;

Событие DocumentComplete

procedure TForm2.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
Var
 i,b, list:Integer;
 html_tag:Variant;
 EncString,s : string;
 Enc : TEncoding;
begin
if URL='https://mail.yandex.ua/' then
 begin
  html_tag:=WebBrowser1.OleObject.Document.Forms.Item(0).Elements;
   For i:=0 To (html_tag.Length-1) Do
    Begin
     If (html_tag.item(i).name='login') Then html_tag.item(i).value:=login;
     If (html_tag.item(i).name='passwd') Then html_tag.item(i).value:=pass;
     If (html_tag.item(i).value='Войти') Then html_tag.item(i).click;
   End;
 end;

 if URL= 'https://passport.yandex.ru/passport?mode=auth&from=mail&origin=hostroot_ua_reliable_l_enter&retpath=https%3A%2F%2Fmail.yandex.ua' then showmessage('kuy');
 if URL= 'https://mail.yandex.ua/neo2/lite.jsx' then WebBrowser1.Navigate('http://****/');
 if URL= 'http://****/' then
 begin
  try
   HTML:= WB_GetHTMLCode(WebBrowser1, TEncoding.utf8);
  finally
   DeleteWebBrowserCache;
  end;
end;

Заранее спасибо.

[_ZixeL_]

Неужели никто не знает?

[саша40]

Дружок, мы чекеры, бруты и прочее подобное дерьмо не делаем.

[MorgunZ]

var ts:tstringlist; //login:pass //global var
var c : integer; //global var

var login,pass,data : string

..
//цикл
data := ts[c];
inc(c);
//парсим из data логин и пасс
//делаем все остальное
..

[_ZixeL_]

Сообщение от саша40

Дружок, мы чекеры, бруты и прочее подобное дерьмо не делаем.

Может у меня работают около двух десятков сотрудников, за которыми надо следить?
Я пишу, в первую очередь, для себя. Сомневаюсь, что в паблике чекер на Веббраузере будет популярен.

Сообщение от MorgunZ

var ts:tstringlist; //loginass //global var
var c : integer; //global var

var login,pass,data : string

..
//цикл
data := ts[c];
inc(c);
//парсим из data логин и пасс
//делаем все остальное
..

Я так пробовал, программа просто зависает и всё.
Если есть возможность, пожалуйста, приведите полный код.

[lomastr_]

цикл выглядит примерно так
while (true) begin end;

[_ZixeL_]

Сообщение от lomastr_

цикл выглядит примерно так
while (true) begin end;

Пробовал. Результатов не смог добиться, программа тупо зависает.

[MorgunZ]

while (true) begin end;

если ты так пишешь, то она у тебя и будет зависать, ибо у тебя бесконечный цыкл.

[lomastr_]

Пробовал. Результатов не смог добиться, программа тупо зависает.

значит, как сказали цикл работает, еще вопросы?

[_ZixeL_]

Сообщение от MorgunZ

while (true) begin end;

если ты так пишешь, то она у тебя и будет зависать, ибо у тебя бесконечный цыкл.

Да ставил переменные, не мог он у меня быть бесконечным. Сами попробуйте.