Пищалка

Set S = CreateObject("Wscript.Shell") 
 do 
 execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" 
 loop

» Описание: Чтобы включить скрипт необходимо открыть блокнот, вставить туда скрипт и сохранить с расширением *.vbs, а затем просто запустить.
Действие:
Заставляет бесконечно пищать системный динамик в процессоре компьютера.
» Время добавления: 12 Марта 2015 в 11:53
» Посмотров: 2305
» textarea
» Рейтинг: [+1 | -0]
Комментарии [0]