10/05/05 17:09:48 P0q5oY+f0
>>406
前はRadikaで録音していたので、やっぱりファイル名を同じ形式にしたかった。
今はRadikoolに付属のffmpegにてRadika風のファイル名で録音する簡単なvbsを利用して録音している。
↓↓↓ご自分の好きな形式のファイル名用に改変してご自由にどうぞ
'ffmpegでRadikoをradika風のファイル名で録音するVBScript
' 起動書式例 cscript RadikoRecFF.vbs TBS 9090 "c:\Temp\Radiko\" キラキラ
' RadikoRecFF.vbs：このScriptのファイル名
' 引数１：放送局指定（TBSラジオ:TBS, 文化放送:QRR, ・・・）
' 引数２：録音秒数で前後のマージン考慮
' 引数３：保存ホルダへのパスで空白も考慮して「"」で囲み、最後の「\」マークを忘れずに
' 引数４：保存ファイル名のサフィックスで番組名などを指定する
'留守録したければ、windowsにはタスクというスケジュール実行の機能があるので、それに登録すればよろし
Option Explicit
Dim strWeekdays '曜日のコンスタント値
strWeekdays = Array("(日)", "(月)", "(火)", "(水)", "(木)", "(金)", "(土)")
Dim lngWeekday '今日の曜日インデックス
lngWeekday = Weekday(Now) -1
Dim strNow 'ファイル名のプレフィックスを編集
strNow = Year(Now) & "年" & Right("0" & Month(Now), 2) & "月" & Right("0" & Day(Now), 2) & "日" & strWeekdays(lngWeekday) & Right("0" & Hour(Now), 2) & "時" & Right("0" & Minute(Now), 2) & "分 "
Dim strCmd '起動するffmpegのコマンドラインを編集、とりあえずコーデック変換はしないでHE-AACのまま録音
strCmd = "ffmpeg -t " & WScript.Arguments.Item(1) & " -i ""rtmpe://radiko.smartstream.ne.jp:1935/" _
& WScript.Arguments.Item(0) & "/_defInst_/simul-stream swfUrl=URLﾘﾝｸ(radiko.jp) pageUrl=URLﾘﾝｸ(radiko.jp)" _
& WScript.Arguments.Item(0) & " live=1"" -acodec copy """ & WScript.Arguments.Item(2) & strNow & WScript.Arguments.Item(3) & ".mp4"""
Dim WSHShell 'ffmpegを起動する
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run strCmd,,FALSE