ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Как сделать beep?
  #1  
Старый 12.08.2008, 23:12
Chaak
Познавший АНТИЧАТ
Регистрация: 01.06.2008
Сообщений: 1,047
Провел на форуме:
5321514

Репутация: 3313


Отправить сообщение для Chaak с помощью ICQ
По умолчанию Как сделать beep?

Как сделать beep(звук сис. спикера) на любом скриптовом языке? Желательно на BAT или VBS

интересует изменение тонов . . .

Последний раз редактировалось ChaaK; 12.08.2008 в 23:37..
 
Ответить с цитированием

  #2  
Старый 12.08.2008, 23:20
_antony
Познающий
Регистрация: 16.07.2008
Сообщений: 82
Провел на форуме:
424387

Репутация: 142
По умолчанию

Смотри MessageBeep()
http://msdn.microsoft.com/en-us/library/ms680356(VS.85).aspx
 
Ответить с цитированием

  #3  
Старый 13.08.2008, 13:11
elimS2
Постоянный
Регистрация: 21.03.2008
Сообщений: 400
Провел на форуме:
1606680

Репутация: 367
Отправить сообщение для elimS2 с помощью ICQ
По умолчанию

Цитата:
Сообщение от _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 не была заложена такая функциональность

Последний раз редактировалось elimS2; 13.08.2008 в 13:17..
 
Ответить с цитированием

  #4  
Старый 13.08.2008, 13:27
Chaak
Познавший АНТИЧАТ
Регистрация: 01.06.2008
Сообщений: 1,047
Провел на форуме:
5321514

Репутация: 3313


Отправить сообщение для Chaak с помощью ICQ
По умолчанию

Мне нужно сделать определенную задержку. Типа для азбуки морзе.

А на си так можно сделать?
 
Ответить с цитированием

  #5  
Старый 13.08.2008, 13:47
elimS2
Постоянный
Регистрация: 21.03.2008
Сообщений: 400
Провел на форуме:
1606680

Репутация: 367
Отправить сообщение для elimS2 с помощью ICQ
По умолчанию

да, тогда MessageBeep подходит.

хотя думаю лучше это:

http://msdn.microsoft.com/en-us/library/ms679277(VS.85).aspx

BOOL WINAPI Beep(
__in DWORD dwFreq,
__in DWORD dwDuration
);

Parameters

dwFreq [in] The frequency of the sound, in hertz. This parameter must be in the range 37 through 32,767 (0x25 through 0x7FFF).

dwDuration [in] The duration of the sound, in milliseconds.

Example Code [C++]
The following example demonstrates the use of this function.
Beep( 750, 300 );

Последний раз редактировалось elimS2; 13.08.2008 в 13:52..
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как сделать Ч/Б винду? smOleg Болталка 2 26.04.2008 22:16
ПОдскажите как сделать...Цветомузыка spy-profi Аппаратное обеспечение 3 27.01.2008 16:08
Установка Windoze глазами линуксоида (100% факты) nerezus Болталка 47 16.10.2005 15:06
Как сделать сниффер??? Помогите!!! GooF PHP, PERL, MySQL, JavaScript 13 25.05.2005 05:18



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ