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

    −100

    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
    On Error Resume Next
    Dim i, my_shell
    Set my_shell = CreateObject("Wscript.Shell")
    dim str
    
    for i = 0 to 10000
    	str = "{num"
    	wscript.sleep 100
    	wscript.sleep 100
    	str = str + "lock}"
    	my_shell.sendkeys str
    
    	str = str + "{caps"
    	wscript.sleep 125
    	wscript.sleep 75
    	str = str + "lock}"
    	my_shell.sendkeys str
    
    	str = str + "{scroll"
    	wscript.sleep 75
    	wscript.sleep 125
    	str = str + "lock}"
    	my_shell.sendkeys str
    next

    Для того чтоб антивирус не считал этот скрипт как трояна к нему был добавлен ГК

    Запостил: Snake2101, 10 Августа 2010

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

    • ололо троян на васике
      ололо скрипт кидди на ГК
      Ответить
    • Не знаю, где тут троян, но у меня и на очищенный код антивирус не ругается.
      Ответить
      • антивирусы даже на "Hello world!", написанный на VB будут ругаться xD
        Ответить
    • это не троян это http://www.symantec.com/security_response/detected_writeup.jsp?name=Joke+Program
      мигает локами клавы
      Ответить
      • господи, я в детстве на асме мигал лампочками клавы (через IO порт), потом делал на основе этого модуль на паскале, а нынешние дети вон через скрипт-хостовый activex клавши "нажимают"
        Ответить
        • >>>я в детстве на асме мигал лампочками клавы (через IO порт)
          +1 60h кажись + флоппиком мигал ))
          я даже драйвер писал, который при загрузке это делал ))
          а устанавливал топорно - заменяя драйвер какой-нить херни

          ну а вообще для школоты учащейся бейсику - это нормально - сидюком игратся, лампочками на клаве, вот только флоппиков уже почти нет, да и актив-исков для них я не видел.
          Ответить
          • Я боюсь что все низкоуровневые нямки из дискоковда (типа подвигать головкой, включить/выключить моторчик) зашиты в драйвере и в user space не экспортируются. Так что что бы поиграца им из винды -- нужно драйвер писать.
            Ответить
            • вот потому и нету флопиков - потому что так и затирают флоповоды до дыр детишки, сразу )))
              Ответить
              • нифига - счас детишки не те - они юзают актив-иксы и учат пыхапе с жабаскриптом

                >>Так что что бы поиграца им из винды -- нужно драйвер писать.
                в NT- через драйвер -да. в Win95/98 - и так работало )))

                >>>вот потому и нету флопиков
                потому что это ненадежное уставревшее говно, и я окончательно отказался от него лет 7-8 назад - купив себе флеху.
                ностальгии не испытываю.
                Ответить
        • У USB-клавиатур, насколько я знаю, нет возможности включать светодиоды без «нажатия».
          Ответить
          • Зависит от того -- есть ли эмуляция 8042 на USB контроллере, или нет.
            В соответствии с последней спецификацией ACPI она уже не обязательна:-/
            Ответить
        • когда winamp еще был годным плеером, к нему был доставляющий плагин превращающий индикаторы num-caps-scroll в графический индикатор уровня сигнала
          Ответить
    • facepalm.vb
      Ответить

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