【スクリプト改造依頼スレ】(丸投げ) part6

【スクリプト改造依� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

812:pQGHRsgqcotjKfYF
 07/11/20 12:31:29 
O4A0Sc <a href="http://rblvwbmlvajz.com/">rblvwbmlvajz</a>, [url=http://sbbxvvjmxnoy.com/]sbbxvvjmxnoy[/url], [link=http://ctedpylveaab.com/]ctedpylveaab[/link], http://jtqjsvardjud.com/

813:UXVrCWCDajqcvWs
 07/11/20 12:33:37 
LQqdCg  <a href="http://kdwioyestycu.com/">kdwioyestycu</a>, [url=http://sxxlkconbkej.com/]sxxlkconbkej[/url], [link=http://ohljgniotpme.com/]ohljgniotpme[/link], http://jiyxairstsfy.com/

814:nobodyさん
 07/11/20 19:16:10 
スクリプト改造スレということなので、こちらで質問させて下さい 
スレ違いでしたらどうかお許し下さい 
 
【こんなスクリプトにしたい】 
「サウンドとオーディオのプロパティ」の「音量」タブが開いた状態でスクリプトを実行させて、 
 「オーディオ」タブ の「音の再生」の「既定のデバイス」を切り替えたい 。 
 
 
以下のスクリプトを改造すればできそうなのですが、アドバイスを頂けないでしょうか。 
また、全く新規のスクリプトでもかまいません。 
WinXPsp2 
 
 
「サウンドとオーディオのプロパティ」の「オーディオ」タブ  を開き、「音の再生」の「既定のデバイス」を切り替えます。 
Dim objWshShell 
Set objWshShell = WScript.CreateObject("WScript.Shell") 
objWshShell.Run "control MMsys.cpl ,2", 0, False 
WScript.Sleep 500 
objWshShell.AppActivate "サウンドとオーディオデバイスのプロパティ" 
WScript.Sleep 100 
objWshShell.SendKeys "{DOWN}", True 
WScript.Sleep 500 
objWshShell.SendKeys "{ENTER}", True 
http://kamakura.cool.ne.jp/vaio_r/tips/etc/usb_audio.htm

次ページ