質問: CreateObject("WScript.Shell") oShell.SendKeys(chr(&hAD)) こんなコマンドをやってみましたが、「(」が送信されるだけでだめでした。 Keyswapで、Pauseキーにミュート機能を割り当ててみましたが無反応です。 このスクリプトも試しましたができませんでした。 できればソフトウェアではなく、スクリプトで対応したいです。 ソフトウェアの場合はレジストリに触れないものがいいです。 何かご存じでしたら教えてください。
回答: > ・・・スクリプトで対応したいです。 と明記してあるわけですからね。 やはり、スクリプト対応を紹介するのがベターでしょうね。 下記のscriptを試してみてください。 W8、8.1でも動作しました。(sndvol を使用しているので当然ですが・・・) --- set oShell = CreateObject("WScript.Shell") oShell.run"%Systemroot%\System32\Sndvol.exe" rem 1秒後にミュート WScript.Sleep 1000 rem タブの末尾にスペース キー押下のスペース 1 文字があることに留意 oShell.Sendkeys"{TAB} " rem sndvolダイアログを閉じる。% は Alt キー oShell.Sendkeys"%{F4}" --- 実行後はvolumeが最小になっているわけではなく、 添付画像のようにミキサーが停止していますので、 停止アイコンを解除すれば再開します。 マウスの場合はクリックすれば再開します。 解除のscriptは自分で工夫してみてください。 ! 画像をクリックしてイメージを拡大