1. Pascal / Говнокод #22777

    −35

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    procedure TMonThread.Monitoring;
var
  Http:THTTPEx;
  Temp:string;
  Posts, Comms:TStringList;
  I,x:Integer;
  Comm:TGComment;
  NeedsVanish:Boolean;
begin
 if FProcessPosts then
 KillPosts;

  Temp:='';
  NeedsVanish:=False;
  x:=15;
  Http:=THTTPEx.Create(nil);
  Posts:=TStringList.Create;
  Comms:=TStringList.Create;
  try
    Temp:=Http.LoadContent('http://govnokod.ru/comments');
    ParseCommentsPosts(Temp,Posts);
    for I:=0 to Posts.Count -1 do
    begin
      Temp:=Http.LoadContent(Format('http://govnokod.ru/%s',[Posts[i]]));
      ParseComments(Temp, Comms);
    end;
    Posts.Clear;

    for I:=Comms.Count -1 downto 0 do
    begin
      Comm:=TGComment(Comms.Objects[i]);
      try
        if (IsBadUser(Comm.Author)) and ((Comm.Votes > -5) and (abs(comm.Votes) <= x)) then
        begin
          if FVanishComments then
          begin
            if (SameText(Comm.VoteTime,'òîëüêî ÷òî')) and (not SameText(comm.Comment, 'vanished')) then
            begin
              NeedsVanish:=True;
              Posts.Add(Comm.Number+':'+comm.Author);
            end;
          end
          else if FProcessComments then
          Posts.Add(Comm.Number);
        end;
      finally
        Comm.Free;
      end;
    end;
    if posts.Count > 0 then
    Synchronize(OnMonitoring);
    if not NeedsVanish then
    WakeThreads(x,caDown,Posts, True)
    else
    WakeThreads(getactivethreadscount,caVanish,Posts, True)
  finally
    Http.Free;
    Posts.Free;
    Comms.Free;
  end;
end;

    Говнокод АнтиСпама

    Я не удержался

    Запостил: cykablyad, 10 Апреля 2017

    Комментарии (38) RSS

    Добавить комментарий