2018年10月
  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 31      
無料ブログはココログ

« メモ帳で改行文字を含めて置換する。(その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ファイルに変換する。 »