Problem z petla, rejestrem i proxy

0

Probuje napisac program ktoryby ustawial proxy w rejestrze z danej listy, potem wyswietlal jakas strone www, rozlaczal sie, ustawial nastepnie proxy z listy i tak w kolko dotad, az zaliczy wszystkie serwery z listy. Nie wiem dlaczego czasami wybiera ostatni element z listy, czasami program wpada w petle i ustawia caly czas to samo proxy, a za nic w swiecie nie chce zaczac od poczatku. I jeszcze jak zastopowac petle dotad az sie strona zaladuje, a zeby potem leciala dalej? Oto fragment kodu jaki napisalem:

var
    Reg: TRegistry;
    y: Integer;
begin
    cHome := '\Software\Microsoft\Windows\CurrentVersion\Internet Settings';
    y := -1;
    ProxyIlosc := Memo1.Lines.Count;
        repeat
                begin
                  Inc(y);
                  Reg := TRegistry.Create;
                   try
                      Reg.OpenKey(cHome, False);
                      Reg.WriteString('ProxyServer', Memo1.lines[y]);
                   finally
                      Reg.CloseKey;
                      Reg.Free;
                      WebBrowser1.Navigate(Adres.text);
                   end;
                end
        until y = ProxyIlosc;
end;
0

Ej no?! naprawde nikt niewie co jest zle? czy moze nikomu sie nie chce przeanalizowac tego kodu?

0

po lini

WebBrowser1.Navigate(Adres.text);

dodaj

while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
        Application.ProcessMessages; 

i powinno byc ok.

0

WIELKIE WIELKIE DZIEKI!!! wszystko teraz dziala jak nalezy :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0