みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

vbsでwavを連続(繰り返し)再生させるには?

vbsでメッセージと共にwavファイルをsndrec32(サウンドレコーダ)で警告音を鳴らしたいのですが、

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

上記のソースだとwavファイルが一回再生されるだけなのですが、メッセジボックスのOKを答えるまで繰り返し再生させるにはどうしたら良いのでしょうか?

投稿日時 - 2007-01-13 08:06:38

QNo.2662630

mlk

暇なときに回答ください

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

こんな感じでいいのかな。

strSoundFile="C:\Windows\Media\Chimes.wav" '-------------適当に戻して
Set objShell=CreateObject("Wscript.Shell")
strCommand="Mplay32.Exe /play /close " & chr(34) & strSoundFile & chr(34)
wscript.echo strCommand
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("異常発生",2,"警告") = 1 Then Exit Do '2秒待機、無限ループ脱出
loop

投稿日時 - 2007-01-13 14:27:37

あなたにオススメの質問