VPF::Proxy в потоках - Форум программистов

Rxd

Дата 11.10.2013, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 13.9.2013

Репутация: нет
Всего: нет

И снова привет. Нужно отправить сообщения на сайт, у которого таймаут на отправку сообщений стоит 5 секунд. Но это слишком долго, поэтому я решил пойти через прокси, но и тут та же фигня - даже с прокси можно отправить всего 1 сообщение в 5 секунд. Как можно решить эту проблему? Вот код потока:

Код


procedure TParseThread.Execute;
var post,ast,dest:TStringList;
k:Integer;
temp,t,f,L:string;
begin

   IHttp:=TIdHttp.create;
   Icook:=TIdCookieManager.Create;

   ICook.CookieCollection.AddCookies(form1.idhttp1.cookiemanager.CookieCollection);
   IHttp.CookieManager:=ICook;

   IHttp.ProxyParams.ProxyServer:=ProxyAdr;
   IHttp.ProxyParams.ProxyPort:=StrToInt(ProxyPort);

   LoginList:=TStringList.Create;
   ast:=TStringList.Create;
   dest:=TStringList.Create;
 
  // Получаем код страницы с логинами

   while str2<str do
     begin
       Try
         tt:=IHttp.Get(_LINK+inttostr(str2)+'&view=epx&token='+token+'&pid='+pid);
       Except
         If str-str2<11 then str2:=str-str-str2 else str2:=str2-11;
       End;

    // Парсим логины

       while Pos('"Username":"',tt)>0 do
         Begin
           Delete(tt,1,pos('"Username":"',tt)+length('"Username":"')-1);
           m:=Copy(tt,1,pos('","Points"',tt)-1);
           LoginList.Add(m);
           Inc(IntS);
         End;

   // Собственно отправляем сообщения

         for k := 0 to LoginList.Count-1 do
           Begin
             temp:=CheckTextOfUnicode('"'+Loginlist[k]+'"');
             post:=TStringList.Create;
             Post.Add('messageWrite_Subject=Privet');
             Post.Add('guild=0');
             Post.Add('apply=0');
             Post.Add('messageReceiverRadio=username');
             Post.Add('messageInputUsername='+temp);
             Post.Add('messageWrite_Content=Kak dela');
             t:=IHttp.Post(_SMS+token+'&pid='+pid,post);
             L:=temp+'|'+inttostr(k)+'|'+t;
             Form1.Memo1.Lines.Add(L);
           end;
         End;
   ...
end;

Mifody

Дата 14.10.2013, 08:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2

а прокси действительно рабочие?
попробуй тот же 2ip в многопотоке опросить и посмотреть что отвечает.
да, и кстати, есть, так сказать, "слабо" анонимные (не помню какого они так "по умному" уровня), когда прокся "палит" и заход с прокси, и реальный IP, и прочая.
И еще, есть прокси, которые совсем не анонимные, так называемые "прозрачные", так они в принципе все показывают smile

Так что в первую очередь, я бы посмотрел качество проксей. А по коду, с индейцами не работал - но очень похоже на правильно написанное

Illusion Dolphin

Дата 14.10.2013, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63

А тут не важно работает прокси или нет. Прокси - это в любом случае переадресация на ОДИН другой адрес. Показывает он ваш реальный айпи или нет - какя разница если в итоге это всё равно 1 внешний адрес? Сайт не пропускает чаще 1 раза в 5 секунд фильтруя по айпи а в случае с прокси будет тоже один айпи. Как решение - взять много разных прокси и пускать запросы по очереди - это позволит сделать задуманное.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Akella

Дата 14.10.2013, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

и использовать анонимные прокси

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »