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

    +80

    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
    Главная » Усыпление программы
    Усыпление программы
    Автор: -Гепард97-
    Написать автору
    [просмотров 751]
    
    В VBS есть функция wscript.sleep, позволяющая усыпить скрипт. Но как такое сделать в VB? Ответ прост: делаем новый модуль и пишем код:
    
    Public Declare Sub Sleep Lib "kernel32" (byval dwMilliseconds As Long)
    
    И все. Когда прогу нужно усыпить, просто пишем в коде проги, если например прога должна остановиться на 2 секунды то пишем
    
    Sleep 2000
    
    Этого способа нет на MSDN, я его сам отрыл

    Билл Гатэс прочел это и уснул...
    Z-z-z-z...

    Запостил: Stertor, 10 Сентября 2013

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

    • http://vbbook.ru/visual-basic/ysuplenie-programmu/
      Ответить
      • Ох, бля, в паскаль закинул. Лурик, на помощь.
        Ответить
        • показать все, что скрыто
          ...Глотать или не глотать вот в чем вопрос.
          Я уже нашел ответ.
          ГЛОТАТЬ, ОДНОЗНАЧНО!
          Если ты крут в натуре, напиши мне, не ссы:
          [email protected]
          сделай меня мужчиной.
          Ответить
        • показать все, что скрыто
          ~...Глотать или не глотать вот в чем вопрос.~
          
          
           Я уже нашел ответ - ГЛОТАТЬ, ОДНОЗНАЧНО!
          Если ты крут в натуре, напиши мне, не ссы:
          
                       [email protected]
          
          сделай меня мужчиной.




          httр://govnokod.ru/13785/#comment196186http://content.gaydemon.com/pictures/3/0/3b1ccdc0d9b482cc8e0cb0760641e8b0.jpg














          Ответить
          • Бля, да я РУЧАЮСЬ что он не пидор. Обычный парень, я фотку его видел в фейсбуке.(может в вк, не помню уже).
            Ответить
    • Это изобретатель, типа моего вузовского преподавателя по программированию.
      И статья новая. Сначала подумал, что она ровестник superhackkiller'а.
      Ответить
      • А Вы тоже заглядываете на ситэ к этим товарищам?
        Ответить
        • Нет. У меня линукс дома. Думал, что 97 это год регистрации, но похоже это год рождения). АнтиСуперХакКиллер лол.
          Ответить
          • И причем тут линукс, дорогой crastinus? Что-то я недопонимаю. Может, Вы троллите, или того хуже, Вы-бот? Ну да ладно. Спасибо, что заглянули ко мне на статью.
            Ответить
            • Если ты не заметил, то Гепард извращается с функцией ядра NT. Думаешь в лине так можно?
              Ответить
              • > функцией ядра NT
                > Думаешь в лине так можно?
                Можно. Но с функцией ядра линукса :)

                Кстати sleep, емнип, не функция ядра. kernel32 это просто более-менее удобные обертки над ntdll, которая и взаимодействует с ядром.
                Ответить
                • >Можно. Но с функцией ядра линукса :)
                  А в каком интерпретаторе и как это вызвать?
                  Ответить
                  • > А в каком интерпретаторе и как это вызвать?
                    В питоне например:
                    from ctypes import cdll
                    
                    libc = cdll.LoadLibrary("libc.so.6")
                    my_sleep = libc.sleep
                    
                    print "ZZZzzz..."
                    my_sleep(5)
                    print "Good morning!"
                    Да и в любом другом, где есть FFI.

                    P.S. Естественно, это вызов функции из какой-нибудь библиотеки, а не из ядра. Но и в VB ведь то же самое.
                    Ответить
                  • Линуксовые (как минимум) сисколлы в Perl: http://perldoc.perl.org/functions/syscall.html
                    Ответить
              • Я спросил, заглядываете ли Вы на сайт к товарищам. Я не спрашивал, какая у Вас операционка.
                Ответить
                • Нахрена заглядывать на сайт про vb, если его у тебя нет?
                  Ответить
                  • Странная логика. Но мне нравятся нестандартные личности, это кульно.
                    +1
                    Ответить
                    • Я тоже не исключаю, что вы, программируя под .NET заглядываете на ЛОР, и обсуждаете с пацанами какое говно systemd :))
                      Ответить
                  • > если его у тебя нет
                    Сайта?
                    Ответить
            • показать все, что скрыто
              ...Глотать или не глотать вот в чем вопрос.
                     Я уже нашел ответ:
                ГЛОТАТЬ, ОДНОЗНАЧНО!
              Если ты крут в натуре, напиши мне, не ссы:
              [email protected]
              сделай меня мужчиной.
              Ответить
          • Сообщение удалено.

            Модератор
            Ответить
    • Сенсация! Сишники и жабисты нервно курят и подыскивают себе новую работу! Русский хакер Гепард97 совершил гениальное открытие! Теперь, благодаря его изысканиям, каждый программист на VB может поюзать любые функции WinAPI!

      Читать далее >>>
      Ответить
      • <Сишники и жабисты нервно курят>
        а кого и жаба душит
        Ответить
      • Борманд, ты жесток. Я попытался "перейти по ссылке"

        D
        Ответить
        • И что там? Я теперь боюсь нажимать её...
          Ответить
          • См. лучше это:
            http://www.youtube.com/watch?v=2Ajp9L17Dm8

            эта гениальная мелодия живет в моей душе уже лет 6, если не больше, вот только качество воспроизведения на ютубе, к сожалению, не очень.
            Этот трек, будучи извлечен из ресурсов и открыт в renoise, звучит раз в 10 лучше.
            Ответить
            • >эта гениальная мелодия
              >мелодия
              Куда катится мир?
              Ответить
              • А что за мелодия там?
                Ответить
                • раз уж тут всё равно офтоп - посмотри личку, которая на яндексе
                  Ответить
              • Это ты с непривычки. Трекерные мелодии имеют своеобразное звучание.
                Ответить
              • > Куда катится мир?
                Да не, что-то тёплое и ламповое прямоугольно-модулированное и восьмибитное в chiptune музыке все-таки есть... Демки, кейгены, старые игрушки... Ностальгия, мать ее :P
                Ответить
                • kohina.net - крутят в прямом эфире солидный треклист чипдисков, саундов от демок и кейгенов и из старых игрушек.

                  > прямоугольно-модулированное
                  ЧИМ же почти у всех форматов модулей (по крайней мере для инструментов), верно?
                  Ответить
                  • Просит установить Java: все, сайт в черном списке.
                    Ответить
                    • О да, попасть в твой чёрный список - это же так страшно. Кто теперь вообще будет ходить на этот сайт? Ума не приложу.
                      По существу: криворучка, скачай расшаренный плейлист и слушай в том плеере, который тебе удобен.
                      Ответить
                      • У меня в черном списке. Я никуда ничего не отсылаю, никаких данных. Просто не буду ходить на сайт, и точка.
                        Ответить
                      • Ну жаву в браузере на сегодня таки можно считать угрозой безопасности.
                        Ответить
                        • Да и на компе не стоит держать. После установки открывает порт и устанавливает соединение с каким-то своим сервером. Можно было бы списать на обновление, но зачем же тогда держать соединение открытым?
                          Ответить
                          • Закрой фаером, если тебя это так беспокоит. Начиная с XP фаер искоропки блочит все входящие.
                            Ответить
                            • Фаер/антивирь - это все от шайтана. Не буду ставить. Самым лучшим эвристиком был и остается Панда. Но я не мог позволить себе купить лицензию. А из бесплатных антивирей у меня снискал славу православного аваст! 4.8, так как обладал хорошей эвристикой и совершенно не грузил комп. Но теперь рука сатаны Гугла простерлась и над их конторой... В топку.
                              Ответить
                              • Один только кашпер чего стоит. Многие вирмейкеры, троянописцы и прочий маргинальный сброд выбирают его, закрывая глаза на то, что разработчик оного - бывший кгб-шник. Потом выпучив глазища, долго удивляются, почему их новенький вирь - только что из под компилятора - уже палится. А это он, сукин сын, уже отправил образец к себе в офис. NOD32 вообще жопа. Эвристика полностью слизана у кава: одни и те же замашки, глюки и просчеты. Возможно, это произошло после инцидента в 2008, когда исходники антивируса касперского утекли в сеть. Расскажу небольшую историйку, когда я еще учился. Захожу я на кафедру и вижу, что комп странно себя ведет. После недолгих манипуляций выяснилось, что нод32 с просроченными базами (на календаре 2010 год, базы 2009) мирно соседствуетс с 5 червями, которые буквально вели борьбу за существование, по 1001 раз переписывая созданный на флешке autorun.inf. По моему совету поставили аваст с такими же базами и просканировали комп до загрузки. Аваст обнаружил около 300 инфицированных файлов - 4-5 в system32, более 100 в application data, обозначая их как win32:malware-gen. Это значит, вредоносная программа отсутствует в базах, и вывод сделан на основании эвристического анализа. Через пару недель провели интернет, аваст обновился и долечил комп. Вот такая история, гасспода. В другой раз кашпер упорно отказывался видеть червя на автоите. Червь грузил библиотечку к процессам и становился невидим в менеджере задач. Аваст со старыми базами даже открыть не дал флешку.
                                Ответить
                                • ты хоть с разный аккаунтов пиши, а то как шизофренник
                                  Ответить
                                  • Почему "как"? Я и не отрицаю.
                                    D

                                    кстати, "шизофреник" с 1 "н".
                                    И ставить диагнозы имеет право только врач. У тебя есть мед.образование?
                                    Ответить
                                    • У меня девушка психиатор, мне можно
                                      Ответить
                                      • Скажи ей, пусть аминазин тебе поколет. Рецепт я выпишу.
                                        Ответить
                                        • вот скажи, кого она послушает, тебя, шизофренника или меня, ее парня?)
                                          Ответить
                                          • А ты сначала покажи ей свои комментарии здесь. Посмотрит она на твою содомию, возьмет свой самый большой литровый шприц и вколет тебе 30 тройных смертельных доз.
                                            Ответить
                                • >на календаре 2010 год
                                  В вашей забегаловке не было хотя бы локалки с автоапдейтом баз? Нод еще и пиратский небось?
                                  Ответить
                                  • Конечно, пиратский. Во всем вузе софт пиратский.
                                    Ответить
                                    • Если кого-то и привлекут за использование ломаного софта, то на суде он в любом случае сможет выкрутиться да еще и сыграть роль Трололо, задав один единственный вопрос:
                                      - А на чем Вы, батенька, приговор печатаете, м?

                                      100% из 100 что Ворд на компе у секретутки будет ломаный )
                                      Ответить
                                      • - А на чем Вы, батенька, приговор печатаете, м?
                                        - На бумаге.
                                        Ответить
                                    • Тем не менее, автоапдейт сделать можно? Скажи еще, у вас всеинститутской локалки нет или она еще на коаксиале.
                                      Ответить
                              • >Фаер ... - это все от шайтана.Не буду ставить.
                                Но он же искаропки?
                                Ответить
                                • Это уже 6 лет, как не играет роли, мой йуный друк.

                                  как последный баран купил отпост лет 5 назад, поставил и тут же снес по причине херовости. коробка валяется под кроватью.
                                  Ответить
                                  • > по причине херовости
                                    В чем заключалась херовость?
                                    Ответить
                                  • >Это уже 6 лет, как не играет роли, мой йуный друк.
                                    Что, из семерки убрали?
                                    Ответить
          • Ответить
            • За что плюс то поставили? ) Интересный у нас народ. Минусуют вкусные посты и плюсуют пустые.
              Ответить
              • > За что плюс то поставили?
                Иногда лучше жевать, чем говорить :)
                Ответить
                • Позвольте немного подправить:
                  Иногда лучше сосать, чем говорить :)
                  , о чем красноречиво говорит вот этот маэстро: http://govnokod.ru/13763#comment196175
                  Гм, Борманд, Вы тоже плюсанули (
                  если я вас всех так напрягаю, я лучше уйду. Это так?
                  Ответить
                  • > я лучше уйду
                    Говнокод. Только здесь тролли уходят сами.
                    Ответить
                    • <Только здесь тролли уходят сами.>
                      ...чтобы уступить место новым.

                      p/s/
                      Никогда не имел привычки троллить местных.
                      Ответить
                      • Что-то у вас совсем упадок. Все какие-то злые, спамят, минусуют.
                        Очевидно, это начало конца (C)
                        Ответить
                • код - вместо тысячи слов...
                  Ответить
                  • кегдан, ты бы хоть постеснялся это писать.
                    Ответить
          • Ахахахахах)))) Гость, ты меня убил.

            D
            Ответить
          • показать все, что скрыто
            ...Глотать или не глотать вот в чем вопрос.
             Я уже нашел ответ:
                                       ГЛОТАТЬ, ОДНОЗНАЧНО!
            Если ты крут в натуре, напиши мне, не ссы:
            [email protected]
            сделай меня мужчиной.
            Ответить
      • Даже изобретенные гепардом97
        Ответить
        • А какие он изобрел?
          Ответить
          • Он изобрел, а американец выкупил, похитил, сплагиатил у него его шедевры и создал эту свою Windows.

            Билл Гатэс: спиздил Гепардовы API, и доволен:
            http://www.volynnews.com/files/news/2010/09-21/17995-1u.jpg
            - Эх, спиздить бы еще антивирус Бабушкина, тогда моя Винда всех порвет!
            Ответить
            • Гепард опять поделил на ноль:

              http://dev.by/ckeditor_assets/pictures/791/content_babushkin-12.jpg
              Ответить
        • > гепардом97
          Кто такой?
          Ответить
          • Прочти топик, а именно третью строку.
            Ответить
          • Тамошний быдлошкодер.
            Ответить
            • Я уж подумал, это новое имя Царя.
              Ответить
              • Царь забросил сишку и линух, переименовался в гепарда, и засел за VB под венду...
                Ответить
                • достойное завершение карьеры
                  Ответить
                  • Уж лучше спиться и в один прекрасный день попасть под камаз, чем так.
                    Ответить
                    • Царь решил замолить свои грехи и уйти в пустыню?
                      Ответить
                      • и тебе пора на бейсик^W покой
                        Ответить
                        • А тебе пора на выбор или сюда
                          @
                          0
                          0
                          @@

                          или сюда:
                          (_O_)
                          Выбор за тоб-о-ой.
                          Упс. хуй какой-то кривой получился, сорри.
                          Ответить
                          • =((_O_))=
                            goatse
                            Ответить
                            • В perl'овской доке описан такой оператор.

                              http://search.cpan.org/dist/perlsecret/lib/perlsecret.pod#Goatse__=%28_%29=

                              If you don't understand the name of this operator, consider yourself lucky. You are advised not to search the Internet for a visual explanation.
                              Ответить
                            • мини-гоатсе, goatsex-lite я бы сказал.
                              Ответить
                          • -Пациент, что вы видите на картинке
                            - хуй
                            - это буква О
                            Ответить
                            • На верхней картинке нет буквы О (но есть на нижней между скобок). Смени шрифты :)
                              Ответить
        • показать все, что скрыто
          ...Глотать или не глотать вот в чем вопрос.
           Я уже нашел ответ:
                             ГЛОТАТЬ, ОДНОЗНАЧНО!
          Если ты крут в натуре, напиши мне, не ссы:
          [email protected]
          сделай меня мужчиной.
          Ответить
    • В jscript нет функции а-ля MsgBox, а в vbscript - есть. Потому особо хитрые создают эктивикс компонет ScriptControl типа VBScript, которому скармливают через eval кусочек кода с функцией.
      Ответить
      • < jscript нет функции а-ля MsgBox>
        есть, и не одна:
        * Wscript.Echo('');
        * alert('');
        Вот только не могу понять, при чем тут msgbox :/
        Ответить
        • А если требуется не тупо окошко с ОК, а что-нибудь с Yes/No/Cancel или Abort/Retry/Ignore. Или окошко, запрашивающее строку (в бейсике вроде бы prompt)?
          Ответить
    • Не знаю какая разница между "VB" и "VBS"
      Ответить
      • А я - между "Java" и "JavaScript". Я так догадываюсь, различие в том, что первый является адаптацией второго для серверов; но тогда непонятно, зачем ещё "NodeJS" создали...
        Ответить
        • А я не знаю, какая разница между тобой и министром иностранных дел Эстонии:
          https://ru.wikipedia.org/wiki/Миксер,_Свен
          Ответить
        • А я - между "C" и "ObjectiveC"
          Ответить
    • > Этого способа нет на MSDN, я его сам отрыл
      Какой скилл )))
      Ответить
      • не надо будить стертора, пожалуйста

        пускай он и дальше открывает для себя вот эту обезьянью книгу
        https://www.oreilly.com/pub/pr/1004
        https://www.litres.ru/stiven-roman/programmirovanie-v-win32-api-na-visual-basic-22879690/

        Картинка намекаеь
        Ответить
        • https://i.ytimg.com/vi/9RcJezrr4F8/hqdefault.jpg
          Ответить
          • Под воздействием науки
            Наши дети или внуки
            Перейдут писать на "си"
            Ответить
          • Кстати
            Про тебя тоже песня есть
            https://www.youtube.com/watch?v=Hp2tggUlG2g
            Ответить
          • Клёвая, ябпогулял
            Ответить

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