1

Тема: WSH: подача звукового сигнала через системный динамик

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "%comspec% /c echo " & Chr(7), 0, True
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2

Re: WSH: подача звукового сигнала через системный динамик

Использование системного динамика на JScript.
Имя файла скрипта: beep.js
Запуск:
"beep.js" (пикает 5 раз, пауза 300 миллисекунд)
"beep.js n p" (n - число сигналов, p - пауза в миллисекундах)

/************************************************************
Использование системного динамика на JScript.
Имя: beep.js
Запуск:
"beep.js" (пикает 5 раз, пауза 300 миллисекунд)
"beep.js n p" (n - число сигналов, p - пауза в миллисекундах)
************************************************************/

// VARIABLES

ws=WScript;
sh=ws.CreateObject("WScript.Shell");
args=ws.Arguments;
n=(args.length>0)?args(0):5;
p=(args.length>1)?args(1):300;


// MAIN CODE

for (i=0;i<n;i++)
{
  sh.Run("%comspec% /c echo "+String.fromCharCode(7),0,true);
  ws.Sleep(p);
}

Скрипт опубликовал YMP.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

3

Re: WSH: подача звукового сигнала через системный динамик

Если в командной строке задать код символа несколько раз, то динамик будет выдавать каждый раз кратный "пик" вместо одиночного.
Имя файла скрипта: beep.js
Запуск:
"beep.js" (пикает 5 раз одиночным "пиком", пауза 300 миллисекунд)
"beep.js n p m" (n - число сигналов, p - пауза в миллисекундах,
m - число "пиков" в каждом сигнале)

/****************************************************************
Использование системного динамика на JScript.
Имя: beep.js
Запуск:
"beep.js" (пикает 5 раз одиночным "пиком", пауза 300 миллисекунд)
"beep.js n p m" (n - число сигналов, p - пауза в миллисекундах,
m - число "пиков" в каждом сигнале)
*****************************************************************/

// VARIABLES

ws=WScript;
sh=ws.CreateObject("WScript.Shell");
args=ws.Arguments;
n=(args.length>0)?args(0):5;
p=(args.length>1)?args(1):300;
m=(args.length>2)?args(2):1;
a=new Array(m);
  a[0]=7;


// MAIN CODE

for (i=1;i<m;i++)
{
  a[i]=a[i-1];
}

for (i=0;i<n;i++)
{
  sh.Run("%comspec% /c echo "+eval("String.fromCharCode("+a.join()+")"),0,true);
  ws.Sleep(p);
}

Скрипт опубликовал YMP.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

4

Re: WSH: подача звукового сигнала через системный динамик

Бесплатный COM-сервер T1CSound предоставляет метод для подачи звука системным динамиком, с указанием частоты и длительности звука. Размер дистрибутива (в архиве dll и исходник) — менее 40 Кб. Пример:

Set objBeep = CreateObject("TONEC1.LongBeep")
objBeep.BeepSound 500, 100
objBeep.BeepSound 550, 100
objBeep.BeepSound 600, 500
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.