「ＶＢＳ」の「ＭsgＢox」について（初歩の質問）

質問

●利用環境
　win XP SP2 PRO
　vbscript　5.6

●質問
「MsgBox」で「OK」ボタンを表示させた時にでる「beep音？」を
　変更する方法が解かる方が、おられましたら教えて頂けません
　でしょうか？

回答No.3

999plus1 · ベストアンサー

VBSどころかプログラミング知識はないのですが、
面白そうなのでレジストリを調べてみました。

こんなのはどうですか？

Dim x
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\.Default\.Current\"
Sh.RegWrite key , "Windows XP Startup.wav", "REG_SZ"
'このwavファイルは任意のものに変えてください。

x = "Hello"
MsgBox x

key = "HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\.Default\.Current\"
Sh.RegWrite key , "Windows XP Ding.wav", "REG_SZ"
'wavファイルを元に戻しています

お礼

プログラミングの知識が無いんですね＾＾；
驚きです、努力不足でお恥ずかしいですが
使わせて頂きます、有難うございました。

回答No.2

999plus1

相当するのが、Windowsの「一般警告音」なので
[コンパネ]→[サウンドとオーディオデバイス]
→[サウンド]タブ内
プログラムイベント(P):の中にある、「一般警告音」
を変更すれば、Msgbox表示時の音も変わります。

但し、Windowsにおける「一般警告音」も全て変わって
しまします。

レジストリでも操作すれば、Msgボックス表示時のみの
音の変更ってできるんですかね～・・・

お礼

有難うございます、やはりそのやり方しかないのでしょうか。

システム音の変更と復元をするVBScriptを汎用でお解かりになら
れる方引き続きお願いいたします。

回答No.1

noname#44015

たぶんできないと思います．