Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2737)
3. Куча (2343)
4. JavaScript (2028)
5. C# (1928)
6. Java (1502)
7. Си (1108)
8. Pascal (647)
9. Python (583)
10. 1C (535)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Go (30)
21. Swift (27)
22. Haskell (26)
23. Kotlin (14)

1. VisualBasic / Говнокод #13915

   −117

   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

   Procedure DeleteToBin(FileName$,Confirm)
     Protected len, *mem, ok
     len = Len(FileName$)
     *mem = AllocateMemory(len)
     If *mem
       If FileSize(FileName$) >= 0 ;Если это файл
         PokeS(*mem,FileName$)
       ElseIf FileSize(FileName$) = -2 ;Если это папка
         PokeS(*mem,FileName$)
         PokeB(*mem+len+1,0)
         PokeB(*mem+len+2,0)
       Else
         ProcedureReturn #False
       EndIf
     Else
       ProcedureReturn #False
     EndIf
     SHFileOp.SHFILEOPSTRUCT
     SHFileOp\pFrom=*mem
     SHFileOp\wFunc=#FO_DELETE
     SHFileOp\fFlags=#FOF_ALLOWUNDO|#FOF_SILENT
     If Confirm = 0
       SHFileOp\fFlags = SHFileOp\fFlags|#FOF_NOCONFIRMATION
     EndIf
     FreeMemory(*mem)
     ok = SHFileOperation_(SHFileOp)
     If ok = 0
       ProcedureReturn #True
     Else
       ProcedureReturn #False
     EndIf
   EndProcedure

   *mem = AllocateMemory(len)
   
     If *mem
   
       If FileSize(FileName$) >= 0 ;Если это файл
   
         PokeS(*mem,FileName$)
   
       ElseIf FileSize(FileName$) = -2 ;Если это папка
   
         PokeS(*mem,FileName$)
   
         PokeB(*mem+len+1,0)
   
         PokeB(*mem+len+2,0)
   
       Else
   
         ProcedureReturn #False ; в этом месте происходит выход из процедуры
   
       EndIf
   
     Else
   
       ProcedureReturn #False
   
     EndIf

   Запостил: Stertor, 09 Октября 2013

   Tweet

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

   • anonimb84a2f6fd141 09.10.2013 14:28 # 0

     Жестоко, не освобождает память.
     
     Нашел новый годный сайт?

     Ответить

     • Stertor 09.10.2013 14:33 # −2

       Я тебе так скажу. В отличие от всех сайтов, на которых я флудил и троллил, этот - самый занюханный гадюшник; дали банхамммер какому-то борзому школоло, со всеми вытекающими. Нормальные люди к ним не заходят, только тролли вроде меня и еще спамеры.

       Ответить

       • blandermein 09.10.2013 14:36 # −2

         cleaned

         Ответить

         • Stertor 09.10.2013 14:37 # −2

           Из-за этого "паренька с голубыми глазами" забанили очень много участников.

           Ответить

           • guest 06.12.2013 13:43 # −3

             Сунешься ещё раз - ещё раз забанят

             Ответить

             • Stertor 06.12.2013 16:24 # −2

               Ахах )) К нам пожаловал кто-то из пюрелюбов)
               Так приятно)

               Ответить

               • guest 06.12.2013 18:01 # −3

                 Да чтоб ты сдох

                 Ответить

                 • Stertor 06.12.2013 20:28 # −2

                   http://vk.com/nikita_odnorob, бедняжка, очко тебе припекло, да? Тут тебе не пюрик, где вы беспредельничаете с петром-пидором.

                   Ответить

                   • bormand 06.12.2013 20:36 # +1

                     Идите сритесь в другом месте. ГК не для этого.
                     guest'а это тоже касается.

                     Ответить

                   • guest 06.12.2013 20:36 # +2

                     И скрестили шпаги бравые мушкетёры из 9"Б" и 8"А". Кто же выйдет победителем из этого противостояния?

                     Ответить

                     • LispGovno 06.12.2013 21:01 # 0

                       Всем известно, зачинщик джевушка из 2"Г"

                       Ответить

                       • LispGovno 06.12.2013 21:08 # 0

                         Есть теория, что за каждым толстосумом стоит "кококетка" стерва.

                         Ответить

                         • Stertor 06.12.2013 21:14 # −3

                           Еще раз минуснешь мои посты - заминусую тебя в пух и прах.
                           Я тебя предупредил.

                           Ответить

                           • LispGovno 06.12.2013 21:23 # 0

                             Твой рейтинг меня не интересует. Толсто, бро. Тролли мне нужны. Я на их фоне кажусь лапочкой.

                             Ответить

                             • Stertor 06.12.2013 21:56 # −1

                               Мне плевать на рейтинг. Мне важно, чтобы посты подольше оставались на плаву.

                               Ответить

                               • LispGovno 06.12.2013 22:13 # +2

                                 Не боишься, что однажды на гк введут бан за низкий рейтинг и ввод капчи за право поставить минус или плюс? Не боишься утонуть?

                                 Ответить

                                 • Stertor 06.12.2013 22:21 # +1

                                   >>Не боишься утонуть?
                                   Не боюсь получить низкий рейтинг.

                                   Ответить

                     • Stertor 06.12.2013 21:02 # −3

                       Кто будет победителем? По-моему, это не столь важно, вонять от обоих будет - поберегите нос. Я не буду кормить, договорились.

                       Ответить

             • Stertor 06.12.2013 21:05 # −3

               Хе-хе-хе... Возможно, тебе стоит расспросить об этом владельцев других сайтов, которые я развалил )

               Ответить

       • guest 06.12.2013 16:12 # −2

         Ты путаешь категории "тролль" и "клоун".

         Ответить

         • Stertor 06.12.2013 16:29 # −2

           Возможно. И кто же ты, тролль или клоун?

           Ответить

           • guest 06.12.2013 16:49 # −3

             Переопределить константу "клоун" уже нельзя, в ней хранится значение "Stertor".

             Ответить

           • guest 06.12.2013 17:57 # −3

             Ты больной вообще? Тебе в психушку пора

             Ответить

           • bormand 06.12.2013 18:38 # 0

             Зачем ты привел их сюда?

             Ответить

             • Stertor 06.12.2013 20:59 # −2

               Что значит "привел"? Я не посылал ему пригласительные.

               Ответить

               • bormand 06.12.2013 21:20 # 0

                 Простые рассуждения:
                 - его раньше тут не было
                 - ты его затраллил, если это можно назвать троллингом
                 - он появился тут
                 
                 Кто виноват?

                 Ответить

                 • Stertor 06.12.2013 21:51 # −3

                   Виноват Серый волк. Слово "затраллил" здесь не совсем уместно, дорогой товарищ. Видите ли, я на долгое время превратил их сайт в спам-машину, но об этом позже. Троллинг мой можно посмотреть, почитав сообщения DarkAbyss. Теперь суть. Когда то я увлекался ГуляшBаsic-ом, и попал на их сайт. Троллем я тогда еще не был: это сейчас, видя, что человек упорот, я могу включать иногда тролля. Так вот, когда на форум приходит новый опытный участник, вышеупомянутый Никита Однороб из чувства зависти начинает его провоцировать или оскорблять, чтобы в дальнейшем тот получил бан, а модератор Петр закрывает глаза на его выходки, администратор же посещает сайт крайне редко. Сейчас этого в высшей степени морального урода Однороба назначили модератором - можете представить, что творится на сайте. Участники пытались создать опрос, чтобы по результатам голосования назначить более адекватного модератора, но опрос долго не просуществовал. Удивляет логика администратора: на сайте есть более адекватные люди, зачем давать админку неадекватному школьнику?
                   Короче говоря, мне надоели их выходки и я решил говорить с ними на их же языке. Может, админ наконец-таки обратит внимание на содомию, что развели два этих уродца.

                   Ответить

                   • guest 07.12.2013 01:24 # −1

                     У вас параноидальная шизофрения в терминальной стадии. Не пропускайте приём лекарств.

                     Ответить

                     • Stertor 07.12.2013 13:25 # 0

                       Представьтесь, доктор, мне не отпускают лекарства без рецепта.

                       Ответить

                   • anonimb84a2f6fd141 07.12.2013 16:43 # +2

                     То есть ты загадил им сайт и они теперь за тобой по всему инету бегают?

                     Ответить

                     • 1024-- 07.12.2013 21:50 # 0

                       Представил, как они бегают и оставляют за собой комментарии, даже насильно заставляют себя читать жежешечку Стертора, где он скучным научным языком пишет про реализацию монад и сверхбыстрых алгоритмов поиска в специально организованных структурах данных на своих любимых языках, чтобы оставить там свой гневный коммент, подкреплённый фактами.

                       Ответить

                       • anonimb84a2f6fd141 07.12.2013 21:59 # 0

                         У стертого есть жежешечка, где он описывает мандад? ВТХ?

                         Ответить

                         • 1024-- 07.12.2013 22:01 # 0

                           > У стертого есть жежешечка
                           Да скорее всего нет, это моё больное воображение :)

                           Ответить

                       • anonimb84a2f6fd141 07.12.2013 22:48 # +3

                         Кстати, отчеренкованные Кармановым гонялись за ним по интернету, в т.ч. и там, где он серьезно писал.

                         Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только во вторник, пятницу или субботу

   Помни, guest, за тобой могут следить!

   А не использовать ли нам bbcode?

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *