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

    • ava xXx_totalwar 10.08.2010 14:26 # +2

      ололо троян на васике
      ололо скрипт кидди на ГК
      Ответить

    • ava ErmineMD 10.08.2010 15:30 # 0

      Не знаю, где тут троян, но у меня и на очищенный код антивирус не ругается.
      Ответить

      • ava Kornew 10.08.2010 17:32 # +2

        антивирусы даже на "Hello world!", написанный на VB будут ругаться xD
        Ответить

    • ava Lure Of Chaos 10.08.2010 17:07 # 0

      это не троян это http://www.symantec.com/security_response/detected_writeup.jsp?name=Joke+Program
      мигает локами клавы
      Ответить

      • ava Анонимус 10.08.2010 17:17 # +1

        господи, я в детстве на асме мигал лампочками клавы (через IO порт), потом делал на основе этого модуль на паскале, а нынешние дети вон через скрипт-хостовый activex клавши "нажимают"
        Ответить

        • ava 3.14159265 10.08.2010 17:37 # +1

          >>>я в детстве на асме мигал лампочками клавы (через IO порт)
          +1 60h кажись + флоппиком мигал ))
          я даже драйвер писал, который при загрузке это делал ))
          а устанавливал топорно - заменяя драйвер какой-нить херни

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

          • ava Анонимус 10.08.2010 18:22 # 0

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

            • ava Lure Of Chaos 10.08.2010 21:26 # −1

              вот потому и нету флопиков - потому что так и затирают флоповоды до дыр детишки, сразу )))
              Ответить

              • ava 3.14159265 11.08.2010 10:12 # 0

                нифига - счас детишки не те - они юзают актив-иксы и учат пыхапе с жабаскриптом

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

                >>>вот потому и нету флопиков
                потому что это ненадежное уставревшее говно, и я окончательно отказался от него лет 7-8 назад - купив себе флеху.
                ностальгии не испытываю.
                Ответить

        • ava ErmineMD 10.08.2010 17:44 # 0

          У USB-клавиатур, насколько я знаю, нет возможности включать светодиоды без «нажатия».
          Ответить

          • ava Анонимус 10.08.2010 18:20 # 0

            Зависит от того -- есть ли эмуляция 8042 на USB контроллере, или нет.
            В соответствии с последней спецификацией ACPI она уже не обязательна:-/
            Ответить

        • ava bugmenot 26.03.2011 13:28 # 0

          когда winamp еще был годным плеером, к нему был доставляющий плагин превращающий индикаторы num-caps-scroll в графический индикатор уровня сигнала
          Ответить

    • ava TheHamstertamer 26.03.2011 10:52 # −1

      facepalm.vb
      Ответить

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