Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

Сообщение от _antony

Смотри MessageBeep()
http://msdn.microsoft.com/en-us/library/ms680356(VS.85).aspx

насколько знаю єто в скриптах vbs работаь не будет. если знаешь как вызвать эту функцию в vbs скрипте - раскажи, с меня +

касательно вопроса:
vbs
1-й способ:

Код:

set wshShell = Wscript.CreateObject("wscript.Shell")
beep = chr(007)
WshShell.Run "cmd /c @echo " & beep, 0

2-й способ:

Код:

strSoundFile = "C:\WINNT\Media\Notify.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True

во втором способе мы просто проигрываем один из стандартных звуковых файлов ОС

upd: перепрочитал вопрос, заметил что ты говоришь на счет спикера и изменения тонов. тогда второй способ отпадает. в первом способе проигрываеться только один тон с стандартной задержкой. насколько я знаю - других варинтов нету. сам хотел своей девушке переслать смской текст vbs скрипта пианино-клавиатуры))) чтоб было себя чем развлечь в селе где был только ноут. долго очень копал, но не нашел. везде пишут что в vbs не была заложена такая функциональность