Как подшутить над другом с помощью vbs скриптов ᴴᴰ

Скрипты: 1. Ошибка do MsgBox"Тут мы можем писать что хотим!",20+1,"Ошибка" loop 2. Мигающая клавиатура. Заставляет мигать лампочки у клавиатуры (Num Lock, Caps Lock, Scroll Lock) Скрипт: 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 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 loop 3. Въезжающий - выезжающий дисковод Заставляет бесконечно въезжать - выезжать дисковод в компьютере Скрипт: Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop 4. Бесконечно пищащий системный динамик Действие: Заставляет бесконечно пищать системный динамик в процессоре компьютера СКРИПТ: Set S = CreateObject("Wscript.Shell") do execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" loop 5. Бесконечно жужжащий разъем для дискет Действие: Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать. СКРИПТ: Set WSHShell=WScript.CreateObject("WScript.Shell") Sub Zapadlo(Fuck,Wait) Set WshShell=WScript.CreateObject("WScript.Shell") C=WshShell.Run(Fuck,Wait) End Sub do Call Zapadlo("A:\",true) loop JOIN QUIZGROUP PARTNER PROGRAM: http://join.quizgroup.com/?ref=86836