1. Список говнокодов пользователя ADR

    Всего: 1

  2. Pascal / Говнокод #11414

    +89

    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
    procedure TClickerAdvertising.Start(Item: TTaskItem);
  procedure StartTask(AURL: string);
  procedure SearchInYandex(Keywords, Domen: string);
    procedure SendSearchRequest;
    procedure CheckSearchRequest;
    procedure SearchLinkAndClick;
      function FindLinkInList: IHTMLElement;
    procedure CheckValidateTransition;

  procedure MoveAndGoBack(Domen: string; MoveCount, MoveDelay: Integer);
    function GetRandomElement: IHTMLElement;

  procedure FindAdvertLinkAndClick(AdvertType: TAdvertType; var AdvertLink: string);
    procedure ClickFromLinkToAdvert;
    procedure ClickFromGoogleAds;

  procedure SendReport(AURL: string);
    function GetIP: string;
    
begin
//...
end;

    А як, Ви, ставитись до вкладених процедур?

    ADR, 14 Июля 2012

    Комментарии (36)