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

    • ava ADR 14.07.2012 18:44 # +2

      Мені так зручніше - заховати процедури які використовуються лише один раз
      Ответить

    • ava TarasB 14.07.2012 18:48 # +10

      Повністю підтримую, локальні функції - дуже зручний спосіб інкапсуляції фрагментів коду. В хрестоблядскіх хрестах їх дуже не вистачає.
      Ответить

      • ava bormand 15.07.2012 13:38 # +1

        Ось, до речі, як можна вступити до одинадцятий хрестах:
        void test(int x, int y) {
    auto localFunction = [] (int x, int y) {
        return x+y;
    };
    localFunction(x, y);
}

        Хоча недоліки у такого способу, звісно, є.
        Ответить

        • ava HaskellGovno 15.07.2012 13:49 # +6

          Фу фу фу. Смердить.
          test x y =
    let localFunction = (+) in
    localFunction x y

          http://ideone.com/Hgrae
          Ответить

          • ava bormand 15.07.2012 14:02 # +3

            Ну так це Хаскеля. У ньому само-собою локальні функції коротко описуються.
            Ответить

          • ava USB 15.07.2012 14:43 # −3

            Хаскеля?
            Фу фу фу. Смердить.
            Пишіть на хрестах, будьте няшкамі
            Ответить

    • ava sayidandrtfm 14.07.2012 20:52 # +1

      "Та оце ставлюся..."(с)
      По-перше, в улюбленому Сі дозволяють не засмічувати глобальний простір імен.
      По друге, компонувати потрібний функціонал в необхідному місці.

      До речі, якою мірою можна співвіднести С++ inner classes, як якусь подобу Сі nested functions?
      Ответить

      • ava bormand 15.07.2012 13:24 # 0

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

    • ava eth0 14.07.2012 21:38 # +3

      Мой бх. Недели незалежной на говнокоде.
      Ответить

    • ava HaskellGovno 15.07.2012 00:25 # +1

      Сумно. Зовсім старий став дідок Delphi.
      Ответить

    • ava ZX_Spectrum 15.07.2012 01:12 # +1

      Зачем эта кликалка?
      Ответить

      • ava ADR 15.07.2012 01:18 # +1

        По рекламі клікати)) (виконувати завдання по переході на рекламу з одного сайту)

        ПС нікому не раджу використовувати WebBrowser (Internet Explorer) в своїх проектах - він дуууже кривий.
        Ответить

        • ava ZX_Spectrum 17.07.2012 12:51 # 0

          Так обычно же считаются уникальные клики. Или у вас перед каждым кликом меняется айпи?
          Ответить

          • ava roman-kashitsyn 17.07.2012 12:56 # +4

            вот-вот, какой-то наивный подход, забанят махом.
            Настоящие хитрожопики встраивают в страничку жабаскрипт, который кликает по рекламе вместо клиента.
            Ответить

            • ava ADR 17.07.2012 13:14 # 0

              Типу фонові переадресації зі сторінки?

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

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

          • ava ADR 17.07.2012 13:11 # 0

            Є база завдань, які можна виконувати один раз на добу. (з того ж IP)

            (планується добавити проксі - одну на сесію, а поки-що це тестова збірка)
            Ответить

          • ava TarasB 17.07.2012 13:58 # −5

            показать все, что скрытоЯ не розумію тебе. Розмовляй на людській мові, будь ласка.
            Ответить

            • ava ADR 17.07.2012 14:03 # +1

              Ем... Думаю це вже перебір... Не треба починати холівари... (ІМХО)
              Ответить

    • ava Fai 15.07.2012 07:15 # +1

      Не розумію цю мову.
      Ответить

      • ava sayidandrtfm 15.07.2012 08:25 # +4

        Не кажіть дурниць, Паскаль не настільки складна мова щоб її важко було розуміти. Досить кількох днів що б звикнути і почати, хоча б в режими тільки читання.
        Ответить

        • ava bormand 15.07.2012 13:22 # +3

          > Паскаль не настільки складна мова щоб її важко було розуміти.
          Чого не сказати про плюси, в яких і після 5-10 років перебувають моменти, яких не знав.
          Ответить

      • ava ADR 16.07.2012 02:00 # +1

        Код не повний: виконавчі частини опущенні. (begin ... end)
        Ответить

        • ava bormand 16.07.2012 05:30 # +1

          > Код не повний: виконавчі частини опущенні. (begin ... end)
          А я то думав, чого тут не вистачає.
          Ответить

        • ava ADR 17.07.2012 00:49 # +1

          і ще... Може хтось не зрозумів: Відступами Я показав рівень вкладення процедури. напр: цей код 
          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;
          Ответить

    • ava Fai 15.07.2012 13:49 # −4

      Хохлотред на ГК.
      Ответить

    • ava mvuBfZP 25.08.2021 07:55 # 0

      Его одежда, хотя и приличная, сильно пострадала во время Его подвигов на дороге.
      Ответить

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