VBS приколы Опции

[stunder]

Собственно вот, можно над кем-нибудь прикалываться (IMG:style_emoticons/def/smile.gif)
Буду выкладывать постепенно эти самые приколы.

Клавиатурная гирлянда

[Dante]

Пора бы может быть уже начать выкладывать?

[stunder]

Да, пожалуй :D

Клавиатурная гирлянда

Сегодня будет экзотический прикол. Мы будем мигать лампочками на клавиатуре с помощью VBS!

Создайте файл 1.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 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
loop

В принципе, код не сложный, можно сказать легкий.

Код

s.sendkeys»{numlock}

- какую кнопку следует нажать. Поищите, может найдете имена клавиш. Я поэкспериментировал, нашел кнопку esc. Запустил — сущий ад =)

Код

wscript.sleep 80

— Пауза между нажатиями на клавиши. 80 миллисекунд