Перейти к содержанию

Автообновление прокси в бруте


Рекомендуемые сообщения

Всем привет!

Помогите сделать автообновление прокси с бруте

Я вот делал, но при получении новых прокси брут просто останавливается и не идет дальше

В чем может быть проблемма?

Вот сам поток обновления

 

procedure TMyThread.Execute;varHTTP: TIdHTTP;Send: TStringList;Proxy1: String;begin  HTTP:=tidhttp.Create(nil);  Send:=TStringList.Create;  Send.Add('c='+Form23.sEdit2.Text);  try    HTTP.Post('http://hideme.ru/login' Send)  except  if Form23.sComboBox2.Text='http/s' then begin  Proxy1:=Http.Get('http://hideme.ru/api/proxylist.txt?maxtime=2000&type=hs&out=plain〈=ru');  ProxyList.Clear;  ProxyList.Insert(0,proxy1);  end;  end;  Form23.proxylabel.Caption := inttostr(ProxyList.Count); // показывает что 1 прокси, а на самом деле их многоend;
 
Изменено пользователем Denis97832
Ссылка на комментарий
Поделиться на другие сайты

ProxyList.Clear;  // чистим старые прокси, то есть сейчас ProxyList.Count: = 0;

ProxyList.Insert(0,proxy1); // добавляем в ProxyList значение переменной proxy1;

На мой взгляд проблема заключается в том, что весь код этой ссылке парсится как одна строка. 

То есть даже если там и много прокси, все равно для delphi это всего одна строка и в переменную ProxyList (как я понял tstringlist) она входит как первый элемент.

Словами трудно объяснить, под спойлером скриншот

4AkE5XbskZlMmq.png
Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.