Школоло / Говнокод #3923 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 Snake2101, (Updated )

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

  • ava ErmineMD # Ссылка на оригинал 0

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

    • ava Kornew # Ссылка на оригинал 0 ⇈

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

    • ava Анонимус # Ссылка на оригинал 0 ⇈

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

      • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

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

        • ava Анонимус # Ссылка на оригинал 0 ⇈

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

          • ava Lure Of Chaos # Ссылка на оригинал 0 ⇈

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

            • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

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

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

      • ava ErmineMD # Ссылка на оригинал 0 ⇈

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

        • ava Анонимус # Ссылка на оригинал 0 ⇈

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

      • ava bugmenot # Ссылка на оригинал 0 ⇈

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

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

Переведи на "PHP", guest!

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

    ↑
    8
    ↓