2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 2010年5月 | トップページ | 2010年7月 »

2010年6月29日 (火)

Vistaで音量を調節する。

ミュート オン、オフを切り換える。

ToggleMute.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "%m{esc}"

ミュート オンに切り換える。

MuteOn.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "{up}{down}%m{esc}"

ミュート オフに切り換える。

MuteOff.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "{up}{down}{esc}"

音量を最大にする。

VolumeMax.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "{home}{esc}"

音量を最小にする。

VolumeMin.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "{end}{esc}"

音量を50にする。

Volume50.vbs

Set wShell=CreateObject("WScript.Shell")
wShell.Run "sndvol.exe"
Do While Not wShell.AppActivate("音量ミキサ")
  WScript.Sleep 100
Loop
wShell.SendKeys "{home}{pgdn 2}{down 10}{esc}"

2010年6月14日 (月)

バッチファイルの実行を逐次化する。(その2)

バッチファイルの先頭に以下の8行を追加します。

:top
(
call :main %*
goto :eof
)  4>>"%~0:Zone.Identifier"
sleep.exe 10 || ping.exe -n 11 localhost >nul
goto :top
:main

2010年6月13日 (日)

バッチファイルの二重起動を防止する。(その2)

バッチファイルの先頭に以下の3行を追加します。

call :main %* 4>>%0
goto :eof
:main

« 2010年5月 | トップページ | 2010年7月 »