Как сделать проверку ?

[grafgrial]

Опять встаёт на одном месте

ну так на одну вперед ты как раз убрал inc(num);
пропиши строку так

TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ IntToStr(num+1));

[grafgrial]

ошибка 403...ну может потому что много лазите очень по страницам?(блочат)

Как я тебе писал в прошлой твоей теме

[HmTH]

Сообщение от Пепел Феникса

вы знаете что такое исключение?

так вот, вы их не ловите(обработка это иное)
ошибка 403...ну может потому что много лазите очень по страницам?(блочат)

насчет браузера, а вы под браузер прикидываетесь?

Нет, исключения не знаю.

Как написал выше, вероятность бана отпадает. Потому что если я в исходном коде ставлю стартовую страницу например 350 , то на 362 (допусти) идет 403 ошибка, если ставлю 360 , то опять на 362 идёт 403 ошибка... дело в странице, что-то там не так.

На счет бразуера, просто если смотреть странизу не авторизированным, то там пишется что "Доступ к этой странице ограничен." , однако ссылку на мой мир всё равно можно было спарсить, но с постоянными 403 ошибками. Поэтому сделал авторизацию. Но тут опять в чем то загвостка.

[Пепел Феникса]

grafgrial, там цикл for вообще то.

пересмотрел ваш код, у вас при исключении он выходит из цикла.

вообще у моего мира сейчас эти ошибки постоянно, на определенные IP, у меня у тещи в её мир не входит просто, только через прокси.

обработка исключений идет через try except(или finally) end;

[grafgrial]

grafgrial, там цикл for вообще то.

Я вкурсе сам вчера посоветовал

Как написал выше, вероятность бана отпадает.

Это под вопросом, потому что через браузер отправка идет мин. через 10 сек, а если превышена то бан

[HmTH]

Сообщение от Пепел Феникса

grafgrial, там цикл for вообще то.

пересмотрел ваш код, у вас при исключении он выходит из цикла.

вообще у моего мира сейчас эти ошибки постоянно, на определенные IP, у меня у тещи в её мир не входит просто, только через прокси.

обработка исключений идет через try except(или finally) end;

Да нет, я уверен что дело не в IP, но с другой стороны, не приложу ума из-за чего это ещё может быть. Да и мой мир тут не причем. Я на него даже не захожу. Я лишь беру его ссылку, не более того. Коннекчусь то я вообще к другой странице, и на ней то и написана ссылка на мой мир.

По поводу исключений, знать бы ещё как этим пользоваться )

[Пепел Феникса]

try
  // Заходим на сайт, ищем form_build_id
  Tmp.Text := HTTP.Get('http://jd.mail.ru/');
  for I:=0 to Tmp.Count-1 do
    begin
      if Pos('name="form_build_id', Tmp[i])<>0 then
        begin
          BuildID := Copy(Tmp[i], Pos('id="', Tmp[i])+4, Length(Tmp[i]));
          BuildID := Copy(BuildID, 0, Pos('"',BuildID)-1);
          MainForm.StatusBar.Panels[0].Text := 'Form Build Id найден';
        end;
    end;
  // Заходим на сайт, ищем form_build_id
  // Код захода на сайт
  Data.Add('name='+Mail);
  Data.Add('pass='+Pass);
  Data.Add('op=');
  Data.Add('form_build_id='+BuildID);
  Data.Add('form_id=user_login_block');
  HTTP.Post('http://jd.mail.ru/node?destination=user', Data);
  // Код захода на сайт
  // Теперь собираем ссылки
  i := 0; // на всякий случай =)
  Tmp.Clear; // так же очищаем
  for num:=350 to 350000 do
    begin
     try
      TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ IntToStr(num));
      for I:=0 to Tmp.Count-1 do
        begin
          if Pos('my.mail.ru', Tmp[i])<>0 then
            begin
              Url := Copy(Tmp[i], Pos('href='#39, Tmp[i])+6, Length(Tmp[i]));
              Url := Copy(Url, 0, Pos(#39'>', Url)-2);
              MainForm.ListBoxUrl.Items.Append(Url);
            end
            else
            begin
              MainForm.StatusBar.Panels[0].Text := 'Ссылку не нашёл, продолжаю дальше';
              continue; // продолжение
            end;
     except
       continue;
     end;
          if (HTTP.ResponseCode = 404) or (HTTP.ResponseCode = 403) then
            begin
              continue;  // продолжение
            end;
        end;
    end;
  // Теперь собираем ссылки
  finally
    Tmp.Free; // освобождаем
    Data.Free;
  end;

попробуй так(это кусок из твоего кода если что), красным пометил то что вставил.

grafgrial, я про то что не inс(тем более изменять счетчик цикла нельзя), ни +1 не надо, надо просто пропускать итерацию цикла раз не вышло.

[HmTH]

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

Я вкурсе сам вчера посоветовал


Это под вопросом, потому что через браузер отправка идет мин. через 10 сек, а если превышена то бан

Да дело не во времени. Я же пишу, есть определенные ссылки, которые стопорят прогу.

Предположим, что одна из этих ссылок, это 362.

Наша программа начинает сбор ссылок с 1.
Идет:
1
2
3
100
300
361

Всё это она собрала и записала.

И вот она 362 ссылка. Прога остановилась, с 403 эррором.

Начинаем всё заного, но уже не с 1, а допустим с 200 ссылки.

Идёт:
200
250
300
350
361
Всё записали и собрали, и вот опять
362 - Прога встала.

Начинаём с 360 ссылки
360 - собрали
361 - собрали
362- встали )

Дело не в IP, прога может и 1000 ссылок собрать, и 100к ссылок, если бы не вот эта загвостка на 362 ссылке.



2Пепел Феникса, сейчас попробую.

[grafgrial]

Сообщение от Пепел Феникса

grafgrial, я про то что не inс(тем более изменять счетчик цикла нельзя), ни +1 не надо, надо просто пропускать итерацию цикла раз не вышло.

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

[grafgrial]

усе понял. ща что нибудь подкину