Что нового

Звук по окончанию скрипта

deffol

Новичок
Сообщения
22
Репутация
0
Как реализовать воспроизведение звука по окончанию работы скрипта? Пробовал делать с помощью команды Beep, но получилось только как бы звуковое сопровождение всех действий.
В дополнение к этому: можно ли воспросизвести свой звук? - не так важно конечно, лишь бы просто услышать что нибудь.
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Код:
OnAutoItExitRegister('Sound')

...

Func Sound()
    SoundPlay ( "1.mp3", 1)
EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
deffol,
Код:
OnAutoItExitRegister('_Play')
HotKeySet('{Esc}', '_Exit')

While 1
	ToolTip(StringFormat('%02d:%02d:%02d', @HOUR, @MIN, @SEC), 0, 0)
	Sleep(1000)
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _Play()
	SoundPlay(@ScriptDir & '\sound.wav', 1)
EndFunc   ;==>_Play
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Код:
_WMP_SoundPlay(@WindowsDir & '\Media\Windows Vista Startup.wav')

Func _WMP_SoundPlay($sFile)
	$oWMP = ObjCreate("WMPlayer.OCX.7")
	$oWMP.Url = $sFile
	$oWMP.Settings.Volume = 100
	$oWMP.Controls.Play
	Do
	Until $oWMP.PlayState = 1
EndFunc


Воспроизводит все форматы которые поддерживает Windows Media Player.
 
Верх