1. 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) RSS

    • Мені так зручніше - заховати процедури які використовуються лише один раз
      Ответить
    • Повністю підтримую, локальні функції - дуже зручний спосіб інкапсуляції фрагментів коду. В хрестоблядскіх хрестах їх дуже не вистачає.
      Ответить
      • Ось, до речі, як можна вступити до одинадцятий хрестах:
        void test(int x, int y) {
            auto localFunction = [] (int x, int y) {
                return x+y;
            };
            localFunction(x, y);
        }

        Хоча недоліки у такого способу, звісно, є.
        Ответить
        • Фу фу фу. Смердить.
          test x y =
              let localFunction = (+) in
              localFunction x y

          http://ideone.com/Hgrae
          Ответить
          • Ну так це Хаскеля. У ньому само-собою локальні функції коротко описуються.
            Ответить
          • Хаскеля?
            Фу фу фу. Смердить.
            Пишіть на хрестах, будьте няшкамі
            Ответить
    • "Та оце ставлюся..."(с)
      По-перше, в улюбленому Сі дозволяють не засмічувати глобальний простір імен.
      По друге, компонувати потрібний функціонал в необхідному місці.

      До речі, якою мірою можна співвіднести С++ inner classes, як якусь подобу Сі nested functions?
      Ответить
      • > До речі, якою мірою можна співвіднести С++ inner classes, як якусь подобу Сі nested functions?
        Локальний клас в якості вкладеної функції, це як забиття цвяхів мікроскопом.
        Ответить
    • Мой бх. Недели незалежной на говнокоде.
      Ответить
    • Сумно. Зовсім старий став дідок Delphi.
      Ответить
    • Зачем эта кликалка?
      Ответить
      • По рекламі клікати)) (виконувати завдання по переході на рекламу з одного сайту)

        ПС нікому не раджу використовувати WebBrowser (Internet Explorer) в своїх проектах - він дуууже кривий.
        Ответить
        • Так обычно же считаются уникальные клики. Или у вас перед каждым кликом меняется айпи?
          Ответить
          • вот-вот, какой-то наивный подход, забанят махом.
            Настоящие хитрожопики встраивают в страничку жабаскрипт, который кликает по рекламе вместо клиента.
            Ответить
            • Типу фонові переадресації зі сторінки?

              Ця програма має трошки інше завдання: виконувати завдання вказані на сайті, а скільки отримує автор завдань за кліки - не моє діло)

              ПС програма буде продаватись, а поки-що тестується і обходжу баги IE)
              Ответить
          • Є база завдань, які можна виконувати один раз на добу. (з того ж IP)

            (планується добавити проксі - одну на сесію, а поки-що це тестова збірка)
            Ответить
          • показать все, что скрытоЯ не розумію тебе. Розмовляй на людській мові, будь ласка.
            Ответить
            • Ем... Думаю це вже перебір... Не треба починати холівари... (ІМХО)
              Ответить
    • Не розумію цю мову.
      Ответить
      • Не кажіть дурниць, Паскаль не настільки складна мова щоб її важко було розуміти. Досить кількох днів що б звикнути і почати, хоча б в режими тільки читання.
        Ответить
        • > Паскаль не настільки складна мова щоб її важко було розуміти.
          Чого не сказати про плюси, в яких і після 5-10 років перебувають моменти, яких не знав.
          Ответить
      • Код не повний: виконавчі частини опущенні. (begin ... end)
        Ответить
        • > Код не повний: виконавчі частини опущенні. (begin ... end)
          А я то думав, чого тут не вистачає.
          Ответить
        • і ще... Може хтось не зрозумів: Відступами Я показав рівень вкладення процедури. напр: цей код
          procedure TClickerAdvertising.Start(Item: TTaskItem);
            procedure SearchInYandex(Keywords, Domen: string);
              procedure SendSearchRequest;

          насправді виглядає так
          procedure TClickerAdvertising.Start(Item: TTaskItem);
            procedure SearchInYandex(Keywords, Domen: string);
              procedure SendSearchRequest;
              begin
              //...
              end;
            begin
            //...
            end;
          begin
          //...
          end;
          Ответить
    • Хохлотред на ГК.
      Ответить
    • Его одежда, хотя и приличная, сильно пострадала во время Его подвигов на дороге.
      Ответить

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