Мигающая клавиатура
#266
Отправлено 31 August 2011 - 11:42
А если этот код прописать, то получатся бегущие огоньки
Set s = CreateObject("Wscript.Shell")
do
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
loop
Set s = CreateObject("Wscript.Shell")
do
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
wscript.sleep 80
loop
#270
Отправлено 29 November 2012 - 18:23
ааххАХАхахаХАхаАхААха прИкОЛ КАйв ВАщЕ збС ТемА НаД дРУГОМ прИкОльНуСя))))