2017年9月
          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
無料ブログはココログ

« メモ帳で改行文字を含めて置換する。(その2) | トップページ | clpファイルをbmpファイルに変換する。 »

2010年11月21日 (日)

Vista以降でsndrec32.exe/play/close相当は?

WSHで代替する以外に方法はなさそうです。

mplay.vbs ファイル...

For Each file In WScript.arguments
  MPlay file
Next

Sub MPlay(file)
Set mp=CreateObject("MediaPlayer.MediaPlayer.1")
mp.FileName=file
mp.Play
Do While mp.PlayState=3 Or mp.PlayState=2
  WScript.Sleep 1000
Loop
End Sub

wmplay.vbs ファイル...

For Each file In WScript.arguments
  WMPlay file
Next

Sub WMPlay(file)
Set wmp=CreateObject("WMPlayer.OCX")
wmp.URL=file
wmp.Controls.Play
Do While wmp.PlayState=9 Or wmp.PlayState=3
  WScript.Sleep 1000
Loop
End Sub

« メモ帳で改行文字を含めて置換する。(その2) | トップページ | clpファイルをbmpファイルに変換する。 »