4

Скрипт-прикол ''мигающая клавиатура''

Вот сам скрипт. Вставляем в блокнот и сохраняем в формате .vbs


Set s = CreateObject("Wscript.Shell")


do


wscript.sleep 80


s.sendkeys"{numlock}"


wscript.sleep 80


s.sendkeys"{capslock}"


wscript.sleep 80


s.sendkeys"{scrolllock}"


wscript.sleep 80


wscript.sleep 80


s.sendkeys"{numlock}"


wscript.sleep 80


s.sendkeys"{capslock}"


wscript.sleep 80


s.sendkeys"{scrolllock}"


wscript.sleep 80


s.sendkeys"{scrolllock}"


wscript.sleep 80


s.sendkeys"{capslock}"


wscript.sleep 80


s.sendkeys"{numlock}"


wscript.sleep 80


wscript.sleep 80


s.sendkeys"{scrolllock}"


wscript.sleep 80


s.sendkeys"{capslock}"


wscript.sleep 80


s.sendkeys"{numlock}"


wscript.sleep 80


s.sendkeys"{numlock}"


wscript.sleep 0


s.sendkeys"{capslock}"


wscript.sleep 0


s.sendkeys"{scrolllock}"


wscript.sleep 80


loop

P.S. Отключается в диспетчере задач