Last active
December 31, 2023 05:11
-
-
Save booska/ce06605ccb9d7ba9f1cfc2184935a0bb to your computer and use it in GitHub Desktop.
らじる★らじるを録音するWSHです。 おまけでOTTAVA,Suono Dolce,超！A&G＋,JCBA各局,CSRA各局(一部不可),AFNも録音できます。
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ※重要 お知らせ | |
| このスクリプトは各サイマルラジオの仕様変更に追従しておりません。 | |
| 時間が有る時に、動くコードに変更します。 | |
| らじる★らじるを録音するWSHです。おまけでOTTAVA,Suono Dolce,超！A&G＋,JCBA各局,CSRA各局(一部不可),AFNも録音できます。 | |
| 録音はFFmpeg（A&GのみRTMPDump)で行います。当該RajiruRec.vbsはそれをキックするランチャーです。 | |
| コマンドプロンプトで利用する形態で、超軽量級ですのでパソコン作業の邪魔にはほとんどなりません。 | |
| 落書き人はこれをタスクスケジューラに仕込んで留守録を行っています。タスクスケジューラの使い方と覚えると色々と便利です。 | |
| 録音途中で通信が途切れるなどで中断した場合には、自動的に再接続を試みる様になっています。 | |
| 配信URL設定の確認の為に簡易聴取もできます。 | |
| ※重要：GitHUBからダウンロードしたらShift-JISに変換して下さい。 | |
| Windowsで利用するWSHの文字コードはShift-JISです。GitHUBデフォルトはUTF-8みたいです。 | |
| 文字コードの変換は、変換機能をもった適当なテキスト エディタで行えば簡単です。 | |
| １．導入・・・という程じゃないですが | |
| 適当なフォルダを作成して以下のようにサブフォルダとファイルを配置してください。 | |
| ├ RajiruRec.vbs ※当該スクリプトファイルです。 | |
| ├ bin ※binフォルダを作成して、以下のプログラムをこのフォルダに置いてください。 | |
| │ ├ rtmpdump.exe ※入手先 *1 ※超A&G!を録音しないなら不要 | |
| │ ├ ffmpeg.exe ※入手先 *2 | |
| │ └ ffplay.exe ※入手先 *2 ※簡易聴取しないなら不要 | |
| └ rec 録音ファイルを収めるフォルダ、録音の引数で任意に変えられる。 | |
| *1：RTMPDumpの入手先 | |
| RTMPDump公式サイト http://rtmpdump.mplayerhq.hu/ | |
| *2：FFmpeg,FFplayの最新版の入手先 | |
| FFMpeg公式サイト http://ffmpeg.org/ | |
| ２．動かし方 | |
| (1). 動作環境 | |
| 作成はWindows 7 Pro環境で行っています。Windows 10 Home環境でも動作しています。 | |
| この落書き人は上記以外の環境で当該RajiruRec.vbsを動かすことは有りません。よって他の環境での動作可否は感知できません。 | |
| (2). コマンドラインの仕様 | |
| 例 cscript RadikoRec.vbs JOAK 1:00:00 rec\ テスト no | |
| 例 cscript RadikoRec.vbs /i:JOAK /t:1:00:00 /d:rec\ /o:テスト /s:no | |
| 例 cscript RadikoRec.vbs /i:JOAK /t:1:00:00 /d:rec\ /o:テスト /s:no /mail:yes /sendto:[email protected] /smtp:hogehoge.jp | |
| 例 cscript RadikoRec.vbs /i:JOAK /t:1:00:00 /d:rec\ /o:テスト /s:no /mail:att /sendto:[email protected] /smtp:hogehoge.jp | |
| NHKラジオ第一を、１時間、recというサブフォルダに、テストというファイル名で録音するという意味です。 | |
| なお、ファイル名の接頭辞に録音日時が自動的に付加されます。リトライが発生すると接尾辞にリトライ回数が付加されます。 | |
| ３番目は録音完了をメールで通知している。４番目は録音完了したファイルをメールに添付して通知している。 | |
| 詳細はRajiruRec.vbsのソースコードを読んで下さい。 | |
| 例 cscript RadikoRec.vbs JOAK /p:yes | |
| NHKラジオ第一をFFplayで聴くことができます。 | |
| ３．ライセンス | |
| コピーレフトです。フォークは自由です。 | |
| ４．サポート | |
| このスクリプトは参考として公開しているもので、落書き人が想定していない環境での動作や要望など、いかなるサポートも行えません。 | |
| なお録音失敗等の如何なる損害が発生しても、このスクリプトの落書き人は苦情などを一切受け付けません。 | |
| ５．変遷 | |
| ・2011-吉日 らじる★らじるの録音スクリプトを公開 | |
| ・2012-08-吉日 超！A&G＋の録音に対応 | |
| ・2012-09-吉日 超！A&G＋の録音を調整 | |
| ・2012-09-吉日 Suono Dolceの録音に対応 | |
| ・2012-10-吉日 超！A&G＋の録音を調整 | |
| ・2013-06-吉日 超！A&G＋の録音を調整（配信が安定した） | |
| ・2013-07-吉日 JCBA各局の録音に対応 | |
| ・2013-07-吉日 OTTAVAとCSRA（局設定はサンプルとして数局のみ*4）の録音に対応 | |
| ・2013-08-03 録音ファイルをメール通知機能を実装 *5 | |
| ・2013-08-05 radiko.jpのHLS配信の録音を試作したが非公開、陽の目を見る事ができる日が来ますように m(ﾟ- ﾟ ) | |
| ・2013-09-16 GPLで非公開は矛盾するとの指摘を受け、上記のradiko.jp対応部分は抹消しました。 | |
| ・2014-02-02 AFNの録音に対応 | |
| ・2014-02-07 AFNの録音に対応の記述ミスを訂正 | |
| ・2014-12-11 超！A&G＋の配信変更に対応 | |
| ・2015-01-01 OTTAVA新プレイヤーの録音に対応 ※旧プレイヤーは停止するらしい | |
| ・2015-01-12 OTTAVA新プレイヤーの録音の間違いを訂正 | |
| ・2015-01-12 AFNの配信URLを訂正 ※時々変更になります | |
| ・2015-02-18 超！A&G＋の配信変更に対応 | |
| ・2016-11-xx 配信URL変更で不具合が出ていたが多忙で放置なので非公開へ *6 | |
| ・2017-09-03 らじる等の配信方法が変更された為に改修 | |
| ・2017-09-03 設定URL確認の為に簡易聴取機能を追加（プレイヤーとしては不満足） | |
| ・2017-09-09 改修にて不具合解消（検証は落書き人が使う範囲のみ）した事から再公開 | |
| ・2017-09-19 らじるのURLが一部旧のままでしたので訂正 | |
| ・2017-09-19 CSRAの本日調べた局を追加（FFplayで再生できない局とwma以外の局は除外） | |
| ・2017-10-14 FM++とListenRadioを追加 ※CSRAやJCBAと重複する場合は「/type:FMPLUS」もしくは「/type:LISR」を指定する | |
| ・2017-11-07 FM++とListenRadioに追加された３局を加える | |
| ・2017-11-07 らじるがm4aコンテナでは再生できない場合があり*7、mp4コンテナに変更 | |
| ・2018-03-20 FM++を除外（WSHでは対応出来なくなっていた為） | |
| ・2018-03-20 CSRAから配信停止している局を除外 | |
| ・2018-03-20 ※今後の放送局リスト保守は落書き人が録音する局のみで基本放置！！ | |
| *4:CSRAなどの録音URLの調べ方 | |
| 6-(1).録音URLの調べ方を参照 | |
| *5:メール通知について | |
| この機能は自分が欲しかった機能ですが、以下の理由により万人向けではありません。 | |
| メール送信できるかは環境依存です。例えばOSがHome EditionなどではOSライセンスの制限により使えません。 | |
| 録音したファイルを添付して送信することも可能ですが、SMTPサーバーの添付ファイルサイズ制限で送信できないことがあります。 | |
| *6:多忙で放置モードになったら非公開にします。 | |
| ググって不具合放置状態なゴミが検索一覧に表示されるのが嫌なので ^_^; | |
| *7:らじるのコーデックが風変わりなHE-AACv2の場合がある | |
| 常にそうであるのでは無く、HE-AACの場合もあるので困る。 | |
| これが頻繁に続く様なら、常に再エンコードした方が良いのかもしれない。 | |
| 落書き人は保存目的ではなく聴ければ良いので、取り敢えず再エンコードなし。 | |
| ID : 1 | |
| Format : AAC | |
| Format/Info : Advanced Audio Codec | |
| Format profile : HE-AACv2 / HE-AAC / LC | |
| Codec ID : 40 | |
| Duration : 1mn 0s | |
| Bit rate mode : Constant | |
| Bit rate : 48.0 Kbps | |
| Channel(s) : 2 channels / 2 channels / 2 channels ←何これ？(・・;) | |
| Channel positions : Front: L R / Front: L R / Front: L R | |
| Sampling rate : 48.0 KHz / 48.0 KHz / 24.0 KHz | |
| Compression mode : Lossy | |
| ６．参考情報 | |
| (1). 録音URLの調べ方 (ストリーミング配信のパケットが読める基礎知識が必要) | |
| まずはgoogleで検索して、先人者が調べたものがあれば、それを利用すれば良いかと思います。 | |
| Wireshakなどの通信パケットを調べるソフトで、ストリーミング開始リクエストURLが調べられます。 | |
| なお、パケットの授受についての知識が必要ですので、多少、難しいかもしれません。 | |
| 例えば、CSRAならばRTSP形式ですので、そのリクエストパケットのURLがそうです。 | |
| RTSPのリクエスト開始はHTTPと同じである場合がありますので、一見するとHTTPの様に見えます。 | |
| またCSRAの場合は複数IPアドレスがラウンドロビンされている局がありますので、通信開始時に複数IPアドレスに対してリクエストしている様に見えて混乱しないようにする必要もあります。 | |
| 簡易にはVLC media playerで再生できる配信サイトなら、VLCでメディア情報を参照することでも調べられます。 | |
| (2). 音声コーデックは無変換です | |
| コーデックは無変換ですので、録音時の音質劣化はありません。 | |
| コンテナも、そのコーデックに適した最もスタンダードな物にしてあります。 | |
| もし再エンコードしてコーデックとコンテナを統一したいなら、ffmpegのオプションと出力ファイルの拡張子をセットしている箇所を変更して下さい。 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 'RajiruRec.vbsは、 | |
| ' らじる★らじるを録音するWSHです。 | |
| ' おまけでOTTAVA,Suono Dolce,超！A&G＋,JCBA各局,CSRA各局(一部不可),AFNも録音できます。 | |
| ' | |
| ' 起動書式例(引数を順番に指定) cscript RajiruRec.vbs JOAK 2:02:00 "c:\temp\" NHK深夜便 No | |
| ' 起動書式例(名前付き引数で指定) cscript RajiruRec.vbs /i:JOAK /t:2:02:00 /d:"c:\temp\" /o:NHK深夜便 /s:No | |
| ' 起動書式例(聴取したい場合) cscript RajiruRec.vbs JOAK /p:yes | |
| ' ※詳しくは、コマンドラインの引数取得の箇所を参照のこと | |
| Option Explicit | |
| Dim i,j | |
| 'タスクスケジューラで休止モードから復帰させた場合にNet接続までのマージン確保（これが不用な環境はらコメントアウトする） | |
| 'WScript.Sleep(1000 * 5) 'スリープさせる秒数は環境により調整が必要 | |
| '引数の取得 | |
| Dim argStation,argRecTime,argDirectory,argOut,argType,argPlay,argSleep,argDebug,argSilent,argMail,argSendTo,argSMTP | |
| argStation = "JOAK" '引数１(i)：放送局指定(サイマル各局はコールサイン，ネット配信専門局はOTTAVA,Suono,AGの３局) | |
| argRecTime = "00:30:00" '引数２(t)：録音時間 | |
| argDirectory = "" '引数３(d)：録音ファイルを出力するディレクトリ | |
| argOut = "out" '引数４(o)：録音ファイル名 | |
| argSleep = "no" '引数５(s)：録音後にスリープさせるなら“yes” | |
| argType = "" '引数(type)：“”コールサインのみで検索、“CSRA”CSRAから検索、“JCBA”JCBAから検索、“LISR”ListenRadioから検索、“FMPLUS”FM++から検索 | |
| argPlay = "no" '引数(p)：“yes”なら録音ではなく聴取 | |
| argDebug = "no" '引数(deb)：“yes”なら、動作の途中経過を逐次表示する | |
| argSilent = "yes" '引数(cilent)：“yes”なら、外部コマンドであるwgetやrtmpdumpの実行プロンプトを表示しない | |
| argMail = "no" '引数(mail)：“yes”なら録音完了をメールで通知する。"att"なら録音ファイルを添付いたメールで送信する。なお大きなファイル添付は受信できない環境が多々有り、実用的ではないので注意のこと。 | |
| argSendTo = "" '引数(sendto)：メール通知する宛先 ex. [email protected] | |
| argSMTP = "" '引数(smtp)："メールボックスがあるSMTPサーバーのホスト名 ex. hogehoge.jp | |
| Dim aNamed, aUnnamed | |
| Set aNamed = WScript.Arguments.Named | |
| Set aUnnamed = WScript.Arguments.Unnamed | |
| If aUnnamed.Count > 0 Then | |
| For i = 0 To aUnnamed.Count - 1 | |
| Select Case i | |
| Case 0 | |
| argStation = aUnnamed.Item(i) | |
| Case 1 | |
| argRecTime = aUnnamed.Item(i) | |
| Case 2 | |
| argDirectory = aUnnamed.Item(i) | |
| Case 3 | |
| argOut = aUnnamed.Item(i) | |
| Case 4 | |
| argSleep = aUnnamed.Item(i) | |
| End Select | |
| Next | |
| End If | |
| If aNamed.Exists("i") Then argStation = aNamed.Item("i") | |
| If aNamed.Exists("t") Then argRecTime = aNamed.Item("t") | |
| If aNamed.Exists("d") Then argDirectory = aNamed.Item("d") | |
| If aNamed.Exists("o") Then argOut = aNamed.Item("o") | |
| If aNamed.Exists("p") Then argPlay = LCase(aNamed.Item("p")) | |
| If aNamed.Exists("s") Then argSleep = LCase(aNamed.Item("s")) | |
| If aNamed.Exists("type") Then argType = UCase(aNamed.Item("type")) | |
| If aNamed.Exists("deb") Then argDebug = LCase(aNamed.Item("deb")) | |
| If aNamed.Exists("silent") Then argSilent = LCase(aNamed.Item("silent")) | |
| If aNamed.Exists("mail") Then argMail = LCase(aNamed.Item("mail")) | |
| If aNamed.Exists("sendto") Then argSendTo = LCase(aNamed.Item("sendto")) | |
| If aNamed.Exists("smtp") Then argSMTP = LCase(aNamed.Item("smtp")) | |
| 'メール通知の引数チェック | |
| If argMail = "yes" or argMail = "att" Then | |
| If argSendTo = "" Then | |
| WScript.Echo "warning : メール宛先が指定されていない為、メール通知をオフにしました。" | |
| argMail = "no" | |
| End If | |
| If argSMTP = "" Then | |
| WScript.Echo "warning : メール送信先のSMTPサーバーが指定されていない為、メール通知をオフにしました。" | |
| argMail = "no" | |
| End If | |
| End If | |
| If argPlay = "no" Then | |
| WScript.Echo "「" & argStation & "」の「" & argOut & "」を録音開始、録音時間は「" & argRecTime & "」" | |
| End IF | |
| '引数で指定の録音時間を日時属性に変換 | |
| dim RecTime | |
| RecTime = TimeValue(argRecTime) | |
| '録音終了日時を求める | |
| Dim BeginDate | |
| Dim EndDate | |
| EndDate = Now() + RecTime | |
| 'シェル起動オブジェクトを生成 | |
| Dim WSHShell,gShellStyle | |
| Set WSHShell = WScript.CreateObject("WScript.Shell") | |
| If argSilent = "yes" Then | |
| gShellStyle = 7 | |
| Else | |
| gShellStyle = 10 | |
| End IF | |
| 'ファイルシステム用オブジェクトを生成（ラジコ独自認証でファイルを利用） | |
| Dim WSHFS | |
| Set WSHFS = CreateObject("Scripting.FileSystemObject") | |
| 'NHKのStreaming URLの連想配列 | |
| Dim aaNHK | |
| Set aaNHK = WScript.CreateObject("Scripting.Dictionary") | |
| aaNHK.Add "r1","https://nhkradioakr1-i.akamaihd.net/hls/live/511633/1-r1/1-r1-01.m3u8" 'R1東京 | |
| aaNHK.Add "r2","https://nhkradioakr2-i.akamaihd.net/hls/live/511929/1-r2/1-r2-01.m3u8" 'R2東京 | |
| aaNHK.Add "fm","https://nhkradioakfm-i.akamaihd.net/hls/live/512290/1-fm/1-fm-01.m3u8" 'FM東京 | |
| aaNHK.Add "JOIK","https://nhkradioikr1-i.akamaihd.net/hls/live/512098/1-r1/1-r1-01.m3u8" 'R1札幌 | |
| aaNHK.Add "JOAB","https://nhkradioakr2-i.akamaihd.net/hls/live/511929/1-r2/1-r2-01.m3u8" 'R2東京 | |
| aaNHK.Add "JOAK","https://nhkradioakr1-i.akamaihd.net/hls/live/511633/1-r1/1-r1-01.m3u8" 'R1東京 | |
| aaNHK.Add "JOHK","https://nhkradiohkr1-i.akamaihd.net/hls/live/512075/1-r1/1-r1-01.m3u8" 'R1仙台 | |
| aaNHK.Add "JOCK","https://nhkradiockr1-i.akamaihd.net/hls/live/512072/1-r1/1-r1-01.m3u8" 'R1名古屋 | |
| aaNHK.Add "JOBK","https://nhkradiobkr1-i.akamaihd.net/hls/live/512291/1-r1/1-r1-01.m3u8" 'R1大阪 | |
| aaNHK.Add "JOFK","https://nhkradiofkr1-i.akamaihd.net/hls/live/512086/1-r1/1-r1-01.m3u8" 'R1広島 | |
| aaNHK.Add "JOZK","https://nhkradiozkr1-i.akamaihd.net/hls/live/512103/1-r1/1-r1-01.m3u8" 'R1松山 | |
| aaNHK.Add "JOLK","https://nhkradiolkr1-i.akamaihd.net/hls/live/512088/1-r1/1-r1-01.m3u8" 'R1福岡 | |
| aaNHK.Add "JOIK-FM","https://nhkradioikfm-i.akamaihd.net/hls/live/512100/1-fm/1-fm-01.m3u8" 'FM札幌 | |
| aaNHK.Add "JOAK-FM","https://nhkradioakfm-i.akamaihd.net/hls/live/512290/1-fm/1-fm-01.m3u8" 'FM東京 | |
| aaNHK.Add "JOHK-FM","https://nhkradiohkfm-i.akamaihd.net/hls/live/512076/1-fm/1-fm-01.m3u8" 'FM仙台 | |
| aaNHK.Add "JOCK-FM","https://nhkradiockfm-i.akamaihd.net/hls/live/512074/1-fm/1-fm-01.m3u8" 'FM名古屋 | |
| aaNHK.Add "JOBK-FM","https://nhkradiobkfm-i.akamaihd.net/hls/live/512070/1-fm/1-fm-01.m3u8" 'FM大阪 | |
| aaNHK.Add "JOFB-FM","https://nhkradiofkfm-i.akamaihd.net/hls/live/512087/1-fm/1-fm-01.m3u8" 'FM広島 | |
| aaNHK.Add "JOZK-FM","https://nhkradiozkfm-i.akamaihd.net/hls/live/512106/1-fm/1-fm-01.m3u8" 'FM松山 | |
| aaNHK.Add "JOLK-FM","https://nhkradiolkfm-i.akamaihd.net/hls/live/512097/1-fm/1-fm-01.m3u8" 'FM福岡 | |
| 'JCBAのStation IDの連想配列 ※JCBAはStreaming URLの統一感があって良いですね | |
| Dim aaJCBA | |
| Set aaJCBA = WScript.CreateObject("Scripting.Dictionary") | |
| aaJCBA.Add "JOZZ1AZ-FM","JCB001" 'FMはな | |
| aaJCBA.Add "JOZZ1AR-FM","JCB002" 'エフエムもえる | |
| aaJCBA.Add "JOZZ1AU-FM","JCB003" 'Airてっし | |
| aaJCBA.Add "JOZZ2AR-FM","JCB004" 'アップルウェーブ | |
| aaJCBA.Add "JOZZ2BA-FM","JCB005" 'FM One | |
| aaJCBA.Add "JOZZ2AA-FM","JCB006" 'ラジオモンスター | |
| aaJCBA.Add "JOZZ2BE-FM","JCB007" 'エフエムＮＣＶおきたまＧＯ！ | |
| aaJCBA.Add "JOZZ2AK-FM","JCB009" 'ハーバーRADIO | |
| aaJCBA.Add "JOZZ2BK-FM","JCB008" 'エフエムい～じゃん おらんだラジオ | |
| aaJCBA.Add "JOZZ2AC-FM","JCB010" 'FMポコ | |
| aaJCBA.Add "JOZZ2AJ-FM","JCB011" 'エフエムいわぬま | |
| aaJCBA.Add "JOZZ2AZ-FM","JCB012" 'H@!FM | |
| aaJCBA.Add "JOZZ2AU-FM","JCB013" '喜多方シティエフエム | |
| aaJCBA.Add "JOZZ3AC-FM","JCB014" 'FM湘南ナパサ | |
| aaJCBA.Add "JOZZ3AD-FM","JCB015" 'FM･ブルー湘南 | |
| aaJCBA.Add "JOZZ3BM-FM","JCB017" 'FMおだわら | |
| aaJCBA.Add "JOZZ3AF-FM","JCB016" 'KamakuraFM | |
| aaJCBA.Add "JOZZ3CI-FM","JCB018" '湘南マジックウェイブ | |
| aaJCBA.Add "JOZZ3AM-FM","JCB019" 'FMチャッピー | |
| aaJCBA.Add "JOZZ3AY-FM","JCB020" 'I & U-LaLa FM | |
| aaJCBA.Add "JOZZ3AH-FM","JCB021" 'かずさFM | |
| aaJCBA.Add "JOZZ3BZ-FM","JCB022" 'ラジオ成田 | |
| aaJCBA.Add "JOZZ3BY-FM","JCB023" 'FMだいご | |
| aaJCBA.Add "JOZZ3BD-FM","JCB024" 'FMかしま | |
| aaJCBA.Add "JOZZ3AO-FM","JCB025" 'エフエム甲府 | |
| aaJCBA.Add "JOZZ3CA-FM","JCB026" 'エフエムふじやま | |
| aaJCBA.Add "JOZZ3CF-FM","JCB027" 'エフエムふじごこ | |
| aaJCBA.Add "JOZZ3AQ-FM","JCB028" 'ラジオ高崎 | |
| aaJCBA.Add "JOZZ3BB-FM","JCB029" 'エフエム太郎 | |
| aaJCBA.Add "JOZZ3AT-FM","JCB030" 'FM OZE | |
| aaJCBA.Add "JOZZ3AU-FM","JCB031" 'エフエム西東京 | |
| aaJCBA.Add "JOZZ3AG-FM","JCB032" 'むさしのFM | |
| aaJCBA.Add "JOZZ3AS-FM","JCB033" 'FMえどがわ | |
| aaJCBA.Add "JOZZ6AB-FM","JCB034" 'FM Haro! | |
| aaJCBA.Add "JOZZ6BE-FM","JCB035" 'みらいずステーション | |
| aaJCBA.Add "JOZZ6AY-FM","JCB036" 'g-sky76.5 | |
| aaJCBA.Add "JOZZ6BF-FM","JCB037" '富士山GOGOエフエム | |
| aaJCBA.Add "JOZZ6AD-FM","JCB038" 'VOICE CUE | |
| aaJCBA.Add "JOZZ6AC-FM","JCB039" 'マリンパル | |
| aaJCBA.Add "JOZZ6AG-FM","JCB040" 'FM-Hi! | |
| aaJCBA.Add "JOZZ6AS-FM","JCB041" 'Radio-f | |
| aaJCBA.Add "JOZZ6AL-FM","JCB042" 'COAST-FM | |
| aaJCBA.Add "JOZZ6AK-FM","JCB043" 'FM PiPi | |
| aaJCBA.Add "JOZZ6AP-FM","JCB044" 'FMわっち | |
| aaJCBA.Add "JOZZ6AE-FM","JCB045" 'Hits FM | |
| aaJCBA.Add "JOZZ6AV-FM","JCB046" 'United North | |
| aaJCBA.Add "JOZZ6AT-FM","JCB047" 'RADIO SANQ | |
| aaJCBA.Add "JOZZ6BB-FM","JCB048" 'i-wave 76.5 FM | |
| aaJCBA.Add "JOZZ6BC-FM","JCB049" 'エフエム ななみ | |
| aaJCBA.Add "JOZZ6BG-FM","JCB050" 'FMいなべ(いなBee) | |
| aaJCBA.Add "JOZZ6AU-FM","JCB051" 'なばステ | |
| aaJCBA.Add "JOZZ4AE-FM","JCB052" 'RADIO AGATT | |
| aaJCBA.Add "JOZZ4AH-FM","JCB053" 'FMながおか | |
| aaJCBA.Add "JOZZ4AF-FM","JCB054" 'FMゆきぐに | |
| aaJCBA.Add "JOZZ4AO-FM","JCB055" 'エルシーブイFM | |
| aaJCBA.Add "JOZZ4AM-FM","JCB056" 'i ステーション | |
| aaJCBA.Add "JOZZ5AF-FM","JCB057" 'City-FM | |
| aaJCBA.Add "JOZZ5AE-FM","JCB058" 'ラジオたかおか | |
| aaJCBA.Add "JOZZ5AH-FM","JCB059" 'エフエムとなみ | |
| aaJCBA.Add "JOZZ5AD-FM","JCB060" 'ラジオななお | |
| aaJCBA.Add "JOZZ5AB-FM","JCB061" 'ラジオかなざわ | |
| aaJCBA.Add "JOZZ5AC-FM","JCB062" 'ラジオこまつ | |
| aaJCBA.Add "JOZZ7BG-FM","JCB063" 'ロケッツ785 | |
| aaJCBA.Add "JOZZ7AM-FM","JCB064" 'FMいかる | |
| aaJCBA.Add "JOZZ7BN-FM","JCB066" 'FMまいづる | |
| aaJCBA.Add "JOZZ7AD-FM","JCB065" 'FMうじ | |
| aaJCBA.Add "JOZZ7AP-FM","JCB067" 'FMちゃお | |
| aaJCBA.Add "JOZZ7AK-FM","JCB068" 'ウメダFM Be Happy! 789 | |
| aaJCBA.Add "JOZZ7AA-FM","JCB069" 'FM-HANAKO | |
| aaJCBA.Add "JOZZ7AJ-FM","JCB070" 'ハッピーエフエムいたみ | |
| aaJCBA.Add "JOZZ7AT-FM","JCB071" 'ハミングFM宝塚 | |
| aaJCBA.Add "JOZZ7AN-FM","JCB072" 'さくらFM | |
| aaJCBA.Add "JOZZ7AS-FM","JCB073" 'ならどっとFM | |
| aaJCBA.Add "JOZZ7AR-FM","JCB074" 'FMハイホー | |
| aaJCBA.Add "JOZZ7BE-FM","JCB075" 'Banana FM | |
| aaJCBA.Add "JOZZ8AD-FM","JCB079" 'Radio momo | |
| aaJCBA.Add "JOZZ9AI-FM","JCB077" 'FMがいや | |
| aaJCBA.Add "JOZZ9AH-FM","JCB076" 'FMラヂオバリバリ | |
| aaJCBA.Add "JOZZ8AA-FM","JCB078" 'レディオBINGO | |
| aaJCBA.Add "JOZZ8AC-FM","JCB080" 'FMくらしき | |
| aaJCBA.Add "JOZZ8AF-FM","JCB081" 'エフエムおのみち | |
| aaJCBA.Add "JOZZ8AG-FM","JCB082" 'FMちゅーピー | |
| aaJCBA.Add "JOZZ8AP-FM","JCB083" 'FMはつかいち | |
| aaJCBA.Add "JOZZ8AE-FM","JCB084" 'COME ON! FM | |
| aaJCBA.Add "JOZZ8AJ-FM","JCB085" 'しゅうなんエフエム | |
| aaJCBA.Add "JOZZ0BY-FM","JCB086" 'FM八女 | |
| aaJCBA.Add "JOZZ8AU-FM","JCB087" 'ＦＭ東広島 | |
| aaJCBA.Add "JOZZ0BU-FM","JCB088" 'ゆふいんラヂオ局 | |
| aaJCBA.Add "JOZZ0AX-FM","JCB089" 'NOAS FM | |
| aaJCBA.Add "JOZZ0AE-FM","JCB090" 'かっぱFM | |
| aaJCBA.Add "JOZZ0AB-FM","JCB091" 'FM791 | |
| aaJCBA.Add "JOZZ0BN-FM","JCB092" 'FMからつ | |
| aaJCBA.Add "JOZZ0AI-FM","JCB093" 'Dreams FM | |
| aaJCBA.Add "JOZZ4AD-FM","JCB094" 'FM KENTO | |
| aaJCBA.Add "JOZZ4AJ-FM","JCB095" 'FM-J | |
| aaJCBA.Add "JOZZ3AR-FM","JCB096" 'FMやまと | |
| aaJCBA.Add "JOZZ7BP-FM","JCB097" 'FM五條 | |
| aaJCBA.Add "JOZZ3CJ-FM","JCB098" '発するFM | |
| aaJCBA.Add "JOZZ9AJ-FM","JCB099" '新居浜FM放送 | |
| aaJCBA.Add "JOZZ3CH-FM","JCB100" 'FMふくろう | |
| 'CSRAのStreaming URLの連想配列 | |
| ' ※CSRAサイトからFM++やListenRadioへのリンクになっている局、icyで配信している局、mmsだがFFplayで再生できない局は除いてあります。 | |
| Dim aaCSRA | |
| Set aaCSRA = WScript.CreateObject("Scripting.Dictionary") | |
| aaCSRA.Add "JOZZ1AT-FM","mmsh://hdv4.nkansai.tv/eniwa?MSWMExt=.asf" 'e-niwa | |
| aaCSRA.Add "JOZZ1AH-FM","mmsh://fmwappy.aa0.netvolante.jp:8080" 'ＦＭわっぴー | |
| aaCSRA.Add "JOZZ1AC-FM","mmsh://simuledge.shibapon.net/FmKushiro?MSWMExt=.asf" 'エフエムくしろ | |
| aaCSRA.Add "JOZZ1BB-FM","rtsp://wm2.hvc.co.jp/radioniseko" 'ラジオニセコ | |
| aaCSRA.Add "JOZZ1AK-FM","rtsp://wm2.hvc.co.jp/sankakuyama" '三角山放送局 | |
| aaCSRA.Add "JOZZ1AG-FM","mmsh://simuledge.shibapon.net/fm837?MSWMExt=.asf" 'FMおたる | |
| aaCSRA.Add "JOZZ1AJ-FM","mmsh://202.241.170.47:8080/" 'FMアップル | |
| aaCSRA.Add "JOZZ1AI-FM","rtsp://hdv2.nkansai.tv/radiokaros" 'ラジオカロスサッポロ | |
| aaCSRA.Add "JOZZ1AA-FM","rtsp://hdv.nkansai.tv/iruka" 'FMいるか | |
| aaCSRA.Add "JOZZ1AX-FM","rtsp://wm2.hvc.co.jp/radioniseko" 'エフエムしろいし | |
| aaCSRA.Add "JOZZ1AB-FM","mmsh://simuledge.shibapon.net/fm837?MSWMExt=.asf" 'FMりべーる | |
| aaCSRA.Add "JOZZ2AL-FM","mmsh://hdv3.nkansai.tv/befm?MSWMExt=.asf" 'Be FM | |
| aaCSRA.Add "JOZZ2AI-FM","mmst://simul.freebit.net/radiomorioka" 'ラヂオもりおか | |
| aaCSRA.Add "JOYZ2AK-FM","mmsh://hdv2.nkansai.tv/rikutakata" '陸前高田災害FM | |
| aaCSRA.Add "JOZZ2BI-FM","mmsh://hdv2.nkansai.tv/miyako" 'みやこハーバーラジオ | |
| aaCSRA.Add "JOZZ2AB-FM","mmst://simul.freebit.net/radio3" 'RADIO3 | |
| aaCSRA.Add "JOZZ2AG-FM","mmsh://hdv2.nkansai.tv/ishinomaki" 'ラジオ石巻 | |
| aaCSRA.Add "JOZZ2AF-FM","mmsh://hdv2.nkansai.tv/baywave" 'BAY WAVE | |
| aaCSRA.Add "JOZZ2AY-FM","mmsh://hdv5.nkansai.tv/taihaku?MSWMExt=.asf" 'FMたいはく | |
| aaCSRA.Add "JOZZ2AP-FM","http://www.fm797.co.jp/mf/bcs_na.mp3" 'fmいずみ | |
| aaCSRA.Add "JOZZ2BL-FM","mmsh://hdv2.nkansai.tv/natori" 'なとらじ801 | |
| aaCSRA.Add "JOZZ2AN-FM","mmsh://hdv3.nkansai.tv/yutopia" 'FMゆーとぴあ | |
| aaCSRA.Add "JOZZ2BC-FM","mmsh://hdv3.nkansai.tv/yokote" '横手かまくらFM | |
| aaCSRA.Add "JOZZ2BH-FM","mmsh://hdv3.nkansai.tv/kiritampo" '鹿角きりたんぽFM | |
| aaCSRA.Add "JOZZ2AE-FM","mmsh://hdv2.nkansai.tv/seawave" 'SEA WAVE FMいわき | |
| aaCSRA.Add "JOZZ2AD-FM","mmsh://hdv3.nkansai.tv/aizu" 'FM愛'S | |
| aaCSRA.Add "JOZZ2AW-FM","mmsh://hdv2.nkansai.tv/fmmotcom" 'FM-MotCom | |
| aaCSRA.Add "JOYZ2AF-FM","mmsh://hdv2.nkansai.tv/minamisoma" '南相馬ひばりFM | |
| aaCSRA.Add "JOZZ3AN-FM","mmsh://hdv4.nkansai.tv/palulun?MSWMExt=.asf" 'FMぱるるん | |
| aaCSRA.Add "JOZZ3BX-FM","mmsh://hdv3.nkansai.tv/takahagi" 'たかはぎFM | |
| aaCSRA.Add "JOZZ3BU-FM","mmsh:/hdv5.nkansai.tv/hitachi" 'FMひたち | |
| aaCSRA.Add "JOZZ3BO-FM","mmsh://hdv4.nkansai.tv/tsukuba" 'ラヂオつくば | |
| aaCSRA.Add "JOZZ3CC-FM","mmsh://hdv4.nkansai.tv/fmuu" 'FM-UU | |
| aaCSRA.Add "JOZZ3BN-FM","mmst://simuledge.shibapon.net/kiryu.fm" 'エフエムきりゅう | |
| aaCSRA.Add "JOZZ3BV-FM","rtsp://radio.maebashi.fm:80/mwave" 'M-WAVE | |
| aaCSRA.Add "JOZZ3BK-FM","mmsh://hdv.nkansai.tv/smile" 'すまいるエフエム | |
| aaCSRA.Add "JOZZ3AV-FM","rtsp://flower-tv.net/simul" 'フラワーラジオ | |
| aaCSRA.Add "JOZZ3CD-FM","mmsh://hdv4.nkansai.tv/kawaguchi?MSWMExt=.asf" 'FM Kawaguchi | |
| aaCSRA.Add "JOZZ3BI-FM","mmsh://hdv.nkansai.tv/redswave" 'REDS WAVE | |
| aaCSRA.Add "JOZZ3AP-FM","mmsh://hdv3.nkansai.tv/katsushika" 'かつしかFM | |
| aaCSRA.Add "JOZZ3BF-FM","mmsh://hdv3.nkansai.tv/rainbowtown" 'レインボータウンFM | |
| aaCSRA.Add "JOZZ3AW-FM","mmsh://hdv3.nkansai.tv/chofu" '調布FM | |
| aaCSRA.Add "JOZZ3AX-FM","mmsh://hdv.nkansai.tv/radiocity" 'Ginza'RADIO CITY | |
| aaCSRA.Add "JOZZ3BL-FM","mmsh://hdv3.nkansai.tv/tachikawa?MSWMExt=.asf" 'エフエムたちかわ | |
| aaCSRA.Add "JOZZ3AK-FM","mmsh://hdv3.nkansai.tv/kawasaki" 'かわさきFM | |
| aaCSRA.Add "JOZZ3AI-FM","mmst://simul.freebit.net/radioshonan" 'レディオ湘南 | |
| aaCSRA.Add "JOZZ3BQ-FM","mmsh://hdv3.nkansai.tv/totsuka?MSWMExt=.asf" 'FM TOTSUKA | |
| aaCSRA.Add "JOZZ3AL-FM","rtsp://122.29.249.8/fmsagami_simul" 'FM HOT 839 | |
| aaCSRA.Add "JOZZ3BE-FM","mmsh://210.253.220.164" 'FM salus | |
| aaCSRA.Add "JOZZ3BW-FM","mmsh://hdv.nkansai.tv/kaon" 'エフエムカオン | |
| aaCSRA.Add "JOZZ5AG-FM","mmsh://hdv4.nkansai.tv/radiomyu" 'ラジオ・ミュー | |
| aaCSRA.Add "JOZZ5AA-FM","mmsh://android.fmn1.jp/live/?MSWMExt=.asf" 'えふえむ・エヌ・ワン | |
| aaCSRA.Add "JOZZ4AQ-FM","mmsh://hdv.nkansai.tv/azumino" 'エフエムあづみ野 | |
| aaCSRA.Add "JOZZ4AG-FM","mmsh://hdv.nkansai.tv/sakudaira" 'FMさくだいら | |
| aaCSRA.Add "JOZZ4AL-FM","mmsh://hdv2.nkansai.tv/karuizawa" 'エフエム軽井沢 | |
| aaCSRA.Add "JOZZ6AM-FM","mmst://simul.freebit.net/ciao" 'Ciao! | |
| aaCSRA.Add "JOZZ6BD-FM","mmsh://hdv4.nkansai.tv/izunokuni?MSWMExt=.asf" 'FMいずのくに | |
| aaCSRA.Add "JOZZ6AX-FM","mmsh://simuledge.shibapon.net/mid-fm761?MSWMExt=.asf" 'MID-FM761 | |
| aaCSRA.Add "JOZZ6AF-FM","mmsh://simuledge.shibapon.net/FmOkazaki?MSWMExt=.asf" 'ＦＭおかざき | |
| aaCSRA.Add "JOZZ6AO-FM","mmsh://hdv3.nkansai.tv/toyota?MSWMExt=.asf" 'RADIO LOVEAT | |
| aaCSRA.Add "JOZZ6AN-FM","mmsh://hdv4.nkansai.tv/portwave" 'CTY-FM | |
| aaCSRA.Add "JOZZ6AZ-FM","mmsh://hdv4.nkansai.tv/suzuka?MSWMExt=.asf" 'Suzuka Voice FM | |
| aaCSRA.Add "JOZZ7BF-FM","mmsh://211.1.40.29/tanba" 'FM丹波 | |
| aaCSRA.Add "JOZZ7BH-FM","mmsh://hdv4.nkansai.tv/tango" 'FMたんご | |
| aaCSRA.Add "JOZZ7AY-FM","mmsh://hdv3.nkansai.tv/radiocafe" '京都三条ラジオカフェ | |
| aaCSRA.Add "JOZZ7AB-FM","mmsh://simuledge.shibapon.net/KyotoLivingFM?MSWMExt=.asf" 'FM845 | |
| aaCSRA.Add "JOZZ7BO-FM","mmsh://hdv5.nkansai.tv/radiomixkyoto" 'RADIO MIX KYOTO | |
| aaCSRA.Add "JOZZ7AG-FM","mmsh://hdv4.nkansai.tv/hirakata" 'エフエムひらかた | |
| aaCSRA.Add "JOZZ7AF-FM","mmsh://hdv3.nkansai.tv/yesfm" 'YES-fm | |
| aaCSRA.Add "JOZZ7AC-FM","mmsh://hdv5.nkansai.tv/minoh?MSWMExt=.asf" 'みのおエフエム | |
| aaCSRA.Add "JOZZ7AL-FM","mmsh://hdv4.nkansai.tv/fmmoov?MSWMExt=.asf" 'FM MOOV KOBE | |
| aaCSRA.Add "JOZZ7AH-FM","mmsh://simuledge.shibapon.net/FmMiki?MSWMExt=.asf" 'エフエムみっきぃ | |
| aaCSRA.Add "JOZZ7AQ-FM","mmsh://hdv3.nkansai.tv/jungle" 'FMジャングル | |
| aaCSRA.Add "JOZZ7AE-FM","mmsh://hdv2.nkansai.tv/fmyy" 'FMわぃわぃ | |
| aaCSRA.Add "JOZZ7AU-FM","mmsh://hdv5.nkansai.tv/genki/?MSWMExt=.asf" 'FM GENKI | |
| aaCSRA.Add "JOZZ7BM-FM","mmsh://hdv5.nkansai.tv/fm805" 'たんばコミュニティエフエム | |
| aaCSRA.Add "JOZZ7AI-FM","mmsh://hdv.nkansai.tv/aiai" 'FM aiai | |
| aaCSRA.Add "JOZZ7AX-FM","mmsh://hdv5.nkansai.tv/honey" 'HONEY FM | |
| aaCSRA.Add "JOZZ7BD-FM","mmsh://hdv3.nkansai.tv/banban" 'BAN-BANラジオ | |
| aaCSRA.Add "JOZZ7AO-FM","mmsh://hdv4.nkansai.tv/beachstation?MSWMExt=.asf" 'ビーチステーション | |
| aaCSRA.Add "JOZZ7BL-FM","mmsh://hdv2.nkansai.tv/hasimoto" 'FMはしもと | |
| aaCSRA.Add "JOZZ7BI-FM","mmsh://simuledge.shibapon.net/FmTanabe?MSWMExt=.asf" 'FM TANABE | |
| aaCSRA.Add "JOZZ8AT-FM","mmsh://121.1.145.25:8080/streaming.asf" 'DARAZ FM | |
| aaCSRA.Add "JOZZ9AC-FM","mmsh://simuledge.shibapon.net/B-FM791?MSWMExt=.asf" 'B-FM791 | |
| aaCSRA.Add "JOZZ9AA-FM","mmsh://hdv4.nkansai.tv/fmsun?MSWMExt=.asf" 'FM SUN | |
| aaCSRA.Add "JOZZ9AB-FM","mmsh://hdv4.nkansai.tv/takamatsu?MSWMExt=.asf" 'FM815 | |
| aaCSRA.Add "JOZZ0AM-FM","mmsh://hdv.nkansai.tv/starcorn" 'スターコーンFM | |
| aaCSRA.Add "JOZZ0CA-FM","mmsh://st1.shimabara.jp/comiten" 'コミュニティラジオ天神 | |
| aaCSRA.Add "JOZZ0AU-FM","mmsh://st1.shimabara.jp/fmkitaq" 'FM KITAQ | |
| aaCSRA.Add "JOZZ0BK-FM","mmsh://hdv3.nkansai.tv/hibiki" 'エフエムひびき | |
| aaCSRA.Add "JOZZ0BF-FM","mmsh://st1.shimabara.jp/fmlive" 'FMしまばら | |
| aaCSRA.Add "JOZZ0BZ-FM","mmsh://211.1.40.21:80/nobeoka?MSWMExt=.asf" 'FMのべおか | |
| aaCSRA.Add "JOZZ0BD-FM","mmsh://hdv.nkansai.tv/amami" 'ディ!ウェイヴ | |
| aaCSRA.Add "JOZZ0BQ-FM","mmsh://hdv5.nkansai.tv/ginga?MSWMExt=.asf" 'FMぎんが | |
| aaCSRA.Add "JOZZ0BC-FM","mmst://118.21.140.45/Push1?MSWMExt=.asf" 'FMいしがき サンサンラジオ | |
| aaCSRA.Add "JOZZ0ZP-FM","mmsh://211.1.40.21/fm21?MSWMExt=.asf" 'FM21 | |
| aaCSRA.Add "JOZZ0BT-FM","rtsp://hdv2.nkansai.tv/motob" 'ちゅらハートFMもとぶ | |
| aaCSRA.Add "JOZZ0AT-FM","mmsh://hdv3.nkansai.tv/nirai?MSWMExt=.asf" 'FMニライ | |
| aaCSRA.Add "JOZZ0CG-FM","mmsh://hdv5.nkansai.tv/ginowancity?MSWMExt=.asf" 'FMぎのわん | |
| aaCSRA.Add "JOZZ0BB-FM","mmsh://hdv4.nkansai.tv/lequio?MSWMExt=.asf" 'FMレキオ | |
| aaCSRA.Add "JOZZ0CH-FM","rtsp://hdv5.nkansai.tv/ginowancity" 'ぎのわんシティFM | |
| aaCSRA.Add "JOZZ0BI-FM","rtsp://hdv.nkansai.tv/okiradi" 'オキラジ | |
| aaCSRA.Add "JOZZ0BO-FM","rtsp://hdv.nkansai.tv/fm-uruma" 'FMうるま | |
| aaCSRA.Add "JOZZ0BW-FM","rtsp://hdv3.nkansai.tv/kumejima" 'FMくめじま | |
| 'ListenRadioのStation IDの連想配列 | |
| Dim aaLISR | |
| Set aaLISR = WScript.CreateObject("Scripting.Dictionary") | |
| aaLISR.Add "JOZZ1AD-FM","30044" 'FM WING | |
| aaLISR.Add "JOZZ1AC-FM","30029" 'FMくしろ | |
| aaLISR.Add "JOZZ1BB-FM","30060" 'ラジオニセコ | |
| aaLISR.Add "JOZZ1AK-FM","30005" '三角山放送局 | |
| aaLISR.Add "JOZZ1AJ-FM","30090" 'FMアップル | |
| aaLISR.Add "JOZZ1AQ-FM","30044" 'RadioTXT FM dramacity | |
| aaLISR.Add "JOZZ1AE-FM","30016" 'FM JAGA | |
| aaLISR.Add "JOZZ1AI-FM","30034" 'ラジオカロスサッポロ | |
| aaLISR.Add "JOZZ1AA-FM","30047" 'FMいるか | |
| aaLISR.Add "JOZZ1AB-FM","30074" 'FMりべーる | |
| aaLISR.Add "JOZZ2AL-FM","30079" 'Be FM | |
| aaLISR.Add "JOZZ2AV-FM","30050" 'カシオペアFM | |
| aaLISR.Add "JOYZ2AK-FM","30095" '陸前高田災害FM | |
| aaLISR.Add "JOZZ2BI-FM","30097" 'みやこハーバーラジオ | |
| aaLISR.Add "JOZZ2AB-FM","30007" 'RADIO3 | |
| aaLISR.Add "JOZZ2AG-FM","30037" 'ラジオ石巻 | |
| aaLISR.Add "JOZZ2BO-FM","30094" 'ラヂオ気仙沼 | |
| aaLISR.Add "JOZZ2AF-FM","30056" 'BAY WAVE | |
| aaLISR.Add "JOZZ2AP-FM","30018" 'FMいずみ | |
| aaLISR.Add "JOZZ2BL-FM","30092" 'なとらじ801 | |
| aaLISR.Add "JOZZ2AN-FM","30030" 'FMゆーとぴあ | |
| aaLISR.Add "JOZZ2BC-FM","30076" '横手かまくらFM | |
| aaLISR.Add "JOZZ2BH-FM","30089" '鹿角きりたんぽFM | |
| aaLISR.Add "JOZZ2AS-FM","30014" 'エフエム椿台 | |
| aaLISR.Add "JOZZ2AE-FM","30009" 'FMいわき | |
| aaLISR.Add "JOYZ2AM-FM","30099" 'おだがいさまFM | |
| aaLISR.Add "JOZZ2AW-FM","30019" 'ＦＭ－ＭＯＴＣｏｍ | |
| aaLISR.Add "JOZZ2BB-FM","30020" 'KOCOラジ | |
| aaLISR.Add "JOYZ2AF-FM","30092" '南相馬ひばりFM | |
| aaLISR.Add "JOZZ3AN-FM","30022" 'FMぱるるん | |
| aaLISR.Add "JOZZ3BX-FM","30075" 'たかはぎFM | |
| aaLISR.Add "JOZZ3BU-FM","30023" 'FMひたち | |
| aaLISR.Add "JOZZ3BV-FM","30043" 'まえばしCITYエフエム | |
| aaLISR.Add "JOZZ3BK-FM","30026" 'すまいるエフエム | |
| aaLISR.Add "JOZZ3AV-FM","30002" 'フラワーラジオ | |
| aaLISR.Add "JOZZ3CD-FM","30035" 'FM Kawaguchi | |
| aaLISR.Add "JOZZ3CE-FM","30096" 'ハローハッピー・こしがやエフエム | |
| aaLISR.Add "JOZZ3BI-FM","30008" 'REDS WAVE | |
| aaLISR.Add "JOZZ3CL-FM","30081" '八王子FM | |
| aaLISR.Add "JOZZ3BF-FM","30036" 'レインボータウンFM | |
| aaLISR.Add "JOZZ3AW-FM","30039" '調布FM | |
| aaLISR.Add "JOZZ3BL-FM","30033" 'エフエムたちかわ | |
| aaLISR.Add "JOZZ3AB-FM","30028" '湘南ビーチFM | |
| aaLISR.Add "JOZZ3AK-FM","30046" 'かわさきFM | |
| aaLISR.Add "JOZZ3AI-FM","30063" 'レディオ湘南 | |
| aaLISR.Add "JOZZ3BQ-FM","30064" 'エフエム戸塚 | |
| aaLISR.Add "JOZZ3AL-FM","30080" 'ＦＭＨＯＴ８９３ | |
| aaLISR.Add "JOZZ3BE-FM","30061" 'FMサルース | |
| aaLISR.Add "JOZZ3BW-FM","30057" 'FMカオン | |
| aaLISR.Add "JOZZ5AG-FM","30006" 'ラジオ・ミュー | |
| aaLISR.Add "JOZZ5AA-FM","30001" 'FM N1 | |
| aaLISR.Add "JOZZ5AK-FM","30012" '敦賀FM | |
| aaLISR.Add "JOZZ4AQ-FM","30086" 'あづみ野エフエム放送 | |
| aaLISR.Add "JOZZ4AL-FM","30032" 'FM軽井沢 | |
| aaLISR.Add "JOZZ6AM-FM","30062" 'Ciao! | |
| aaLISR.Add "JOZZ6AX-FM","30004" 'MID-FM | |
| aaLISR.Add "JOZZ6AF-FM","30040" 'ＦＭおかざき | |
| aaLISR.Add "JOZZ6AQ-FM","30065" 'Pitch FM | |
| aaLISR.Add "JOZZ6AN-FM","30015" 'CTY-FM | |
| aaLISR.Add "JOZZ7AY-FM","30082" '京都三条ラジオカフェ | |
| aaLISR.Add "JOZZ7AG-FM","30049" 'エフエムひらかた | |
| aaLISR.Add "JOZZ7AF-FM","30073" 'YES-fm | |
| aaLISR.Add "JOZZ7BC-FM","30048" 'FM千里 | |
| aaLISR.Add "JOZZ7AQ-FM","30013" 'FMジャングル | |
| aaLISR.Add "JOZZ7AU-FM","30041" 'FM GENKI | |
| aaLISR.Add "JOZZ7AI-FM","30067" 'FM aiai | |
| aaLISR.Add "JOZZ7BD-FM","30078" 'BAN-BANラジオ | |
| aaLISR.Add "JOZZ7AO-FM","30084" 'ビーチステーション | |
| aaLISR.Add "JOZZ7BI-FM","30051" 'FM TANABE | |
| aaLISR.Add "JOZZ8AT-FM","30053" 'DARAZ FM | |
| aaLISR.Add "JOZZ9AC-FM","30010" 'エフエムびざん | |
| aaLISR.Add "JOZZ9AA-FM","30070" 'FM SUN | |
| aaLISR.Add "JOZZ9AB-FM","30024" 'FM815 | |
| aaLISR.Add "JOZZ0BK-FM","30052" 'AIR STATION HIBIKI | |
| aaLISR.Add "JOZZ0BZ-FM","30088" 'FMのべおか | |
| aaLISR.Add "JOZZ0BD-FM","30054" 'あまみエフエム | |
| aaLISR.Add "JOZZ0BC-FM","30069" 'FMいしがきサンサンラジオ | |
| aaLISR.Add "JOZZ0CC-FM","30055" 'FMなんじょう | |
| aaLISR.Add "JOZZ0AT-FM","30003" 'FMニライ | |
| aaLISR.Add "JOZZ0CG-FM","30093" 'FMぎのわん | |
| aaLISR.Add "JOZZ0CH-FM","30098" 'ぎのわんシティFM | |
| aaLISR.Add "JOZZ0BG-FM","30083" 'FMとよみ | |
| aaLISR.Add "JOZZ0BI-FM","30066" 'オキラジ | |
| aaLISR.Add "JOZZ0B0-FM","30011" 'FMうるま | |
| aaLISR.Add "JOZZ0BW-FM","30077" 'FMくめじま | |
| 'AFNのStreaming URLの連想配列 ※ホスト名の頭の数字は時々変更されるので、その都度変更が必要 | |
| Dim aaAFN | |
| Set aaAFN = WScript.CreateObject("Scripting.Dictionary") | |
| aaAFN.Add "AFNP_MSW","http://17803.live.streamtheworld.com/AFNP_MSW.mp3" '@三沢 | |
| aaAFN.Add "AFNP_TKO","http://18393.live.streamtheworld.com/AFNP_TKO.mp3" '@横田 | |
| aaAFN.Add "AFNP_IWA","http://18743.live.streamtheworld.com/AFNP_IWA.mp3" '@岩国 | |
| aaAFN.Add "AFNP_SBO","http://19993.live.streamtheworld.com/AFNP_SBO.mp3" '@佐世保 | |
| aaAFN.Add "AFNP_OKN","http://14013.live.streamtheworld.com/AFNP_OKN.mp3" '@沖縄 | |
| aaAFN.Add "AFN_JOE","http://20423.live.streamtheworld.com/AFN_JOEP.mp3" 'AFN Joe Radio | |
| aaAFN.Add "AFN_CTY","http://17793.live.streamtheworld.com/AFN_CTYP.mp3" 'AFN Country | |
| aaAFN.Add "AFN_GRV","http://16693.live.streamtheworld.com/AFN_GRV.mp3" 'AFN Gravity | |
| aaAFN.Add "AFN_PTK","http://18393.live.streamtheworld.com/AFN_PTK.mp3" 'AFN PowerTalk | |
| aaAFN.Add "AFN_VCE","http://14983.live.streamtheworld.com/AFN_VCE.mp3" 'AFN The Voice | |
| aaAFN.Add "AFN_HOT","http://18813.live.streamtheworld.com/AFN_HOTP.mp3" 'AFN Hot AC(Adult Contemporary) | |
| aaAFN.Add "AFN_LGY","http://17813.live.streamtheworld.com/AFN_LGYP.mp3" 'AFN Legacy | |
| aaAFN.Add "AFN_FAN","http://14533.live.streamtheworld.com/AFN_FAN.mp3" 'AFN Fans | |
| aaAFN.Add "AFN_FRE","http://18393.live.streamtheworld.com/AFN_FREP.mp3" 'AFN Freedom | |
| '録音を開始する。エラー発生したらリトライ、なおリトライ制限とリトライと共にインターバルを増やしてゆく考慮あり | |
| Dim strWeekdays | |
| strWeekdays = Array("(日)", "(月)", "(火)", "(水)", "(木)", "(金)", "(土)") '曜日のコンスタント値 | |
| Dim lngWeekday '今日の曜日インデックス | |
| Dim strNow 'ファイル名とする日時文字列 | |
| Dim strSuffix 'ファイル名の接尾文字列 | |
| Dim RecTimeStr '録音時間（Doロールの最初に計算） | |
| Dim RecSecond '録音秒数（Doロールの最初に計算） | |
| Dim strCmd | |
| Dim MaxRetry | |
| MaxRetry = 20 'リトライ回数制限値(初期インターバル３秒でリトライ２０回であれば約１０分＋α程は通信回復までリトライ、それを超えたらギブアップ） | |
| Dim CtrRetry | |
| CtrRetry = 0 'リトライ回数カウンター | |
| Dim IntervalRetry | |
| IntervalRetry = 2 '途中で録音中断した時にリトライを行うまでの初期インターバル秒で、リトライが増えるにしたがって、リトライ回次数×前回のインターバルという計算でインターバルを増やす。これで数分に及ぶ通信途絶の時に、無駄なリトライでリトライ制限に達してしまうことを減らす。 | |
| Dim Ans | |
| Dim pFileName '録音保存するファイル名 | |
| Dim aryOutFiles() '保存した録音ファイル名の配列、リトライがなければ１ファイルのみ | |
| Dim aryOutCtr '録音したファイルカウントで、リトライがなければZero | |
| aryOutCtr = 0 | |
| Do | |
| '録音時間を求める | |
| RecTime = EndDate - Now() + TimeValue("00:00:30") '30秒ほどマージンを設けることで接続までの時間マージンを考慮する。 | |
| RecTimeStr = Right("0" & Hour(RecTime) , 2) + ":" + Right("0" & Minute(RecTime) , 2) + ":" + Right("0" & Second(RecTime) , 2) | |
| RecSecond = Hour(RecTime) * 60 * 60 + Minute(RecTime) * 60 + Second(RecTime) + 10 '１０秒ほどマージンを設ける（rtmpdumpの内部タイマーとスクリプトのタイマーがズレる様なので | |
| '現在の曜日インデックスを求める | |
| lngWeekday = Weekday(Now) -1 | |
| 'ファイル名のプレフィックスを編集 | |
| 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) & "分 " | |
| If CtrRetry > 0 Then | |
| strSuffix = argOut & "~" & Right("000" & CtrRetry, 3) '１分以内にリトライが発生するとファイル名が重複するのでリトライ回数もファイル名に含める | |
| Else | |
| strSuffix = argOut | |
| End If | |
| '録音起動するコマンドラインを編集 | |
| pFileName = argDirectory & strNow & strSuffix | |
| If argType = "" And aaNHK.Exists(argStation) Then 'らじる★らじるの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".m4a" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i """ & aaNHK(argStation) & """ -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -nodisp -analyzeduration 1M -probesize 1M -i """ & aaNHK(argStation) & """" | |
| End If | |
| ElseIf argType = "" And argStation = "AG" Then '超Ａ＆Ｇ！の録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".flv" | |
| strCmd = "bin\rtmpdump --rtmp ""rtmp://fms-base1.mitene.ad.jp/agqr/aandg22"" --timeout 60 -B " & RecSecond & " --live -o """ & pFileName & """" | |
| 'strCmd = "bin\ffmpeg -i ""rtmp://fms-base1.mitene.ad.jp/agqr/aandg22 live=1"" -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -i ""rtmp://fms-base1.mitene.ad.jp/agqr/aandg22 live=1""" | |
| End If | |
| ElseIf argType = "" And argStation = "Suono" Then 'Suono Dolceの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".mp4" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i ""http://web-cache.stream.ne.jp/web/live/hls-live/suono-hls-live/suono-live.m3u8"" -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -analyzeduration 1M -probesize 1M -i ""http://web-cache.stream.ne.jp/web/live/hls-live/suono-hls-live/suono-live.m3u8""" | |
| End If | |
| ElseIf argType = "" And argStation = "OTTAVA" Then 'OTTAVAの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".mp4" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i ""http://rakuten.streamguys1.com/ottava1_b"" -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -nodisp -analyzeduration 1M -probesize 1M -i ""http://rakuten.streamguys1.com/ottava1_b""" | |
| End If | |
| ElseIf (argType = "" or argType = "JCBA") And aaJCBA.Exists(argStation) Then 'JCBAの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".m4a" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i ""http://musicbird-hls.leanstream.co/musicbird/" & aaJCBA(argStation) & ".stream/playlist.m3u8"" -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -analyzeduration 1M -probesize 1M -nodisp -i ""http://musicbird-hls.leanstream.co/musicbird/" & aaJCBA(argStation) & ".stream/playlist.m3u8""" | |
| End IF | |
| argType = "JCBA" | |
| ElseIf (argType = "" or argType = "CSRA") And aaCSRA.Exists(argStation) Then 'CSRAの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".wma" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i """ & aaCSRA(argStation) & """ -t " & RecTimeStr & " -f asf -vn -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -analyzeduration 1M -probesize 1M -nodisp -i """ & aaCSRA(argStation) & """" | |
| End IF | |
| argType = "CSRA" | |
| ElseIf (argType = "" or argType = "LISR") And aaLISR.Exists(argStation) Then 'ListenRadioの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".m4a" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i ""http://mtist.as.smartstream.ne.jp/" & aaLISR(argStation) & "/livestream/playlist.m3u8"" -t " & RecTimeStr & " -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -analyzeduration 1M -probesize 1M -nodisp -i ""http://mtist.as.smartstream.ne.jp/" & aaLISR(argStation) & "/livestream/playlist.m3u8""" | |
| End IF | |
| argType = "LISR" | |
| ElseIf argType = "" And aaAFN.Exists(argStation) Then 'AFNの録音パラメータ | |
| If argPlay = "no" Then | |
| pFileName = pFileName & ".mp3" | |
| strCmd = "bin\ffmpeg -analyzeduration 1M -probesize 1M -i """ & aaAFN(argStation) & """ -t " & RecTimeStr & " -vn -c:a copy """ & pFileName & """" | |
| Else | |
| TerminateProcess("ffplay.exe") | |
| strCmd = "bin\ffplay -analyzeduration 1M -probesize 1M -nodisp -i """ & aaAFN(argStation) & """" | |
| End IF | |
| argType = "AFN" | |
| Else | |
| Ans = MsgBox(" 放送局指定が間違っています。type=" & argType, 48, "☆指定ミス☆") | |
| Exit Do | |
| End If | |
| '録音プログラムを起動する | |
| If argPlay = "yes" Then | |
| If argDebug = "yes" Then WScript.Echo strCmd | |
| WSHShell.Run strCmd,gShellStyle,True | |
| Exit Do | |
| Else | |
| If argDebug = "yes" Then WScript.Echo strCmd | |
| WSHShell.Run strCmd,gShellStyle,True | |
| End IF | |
| '録音したファイル名を記録 | |
| if WSHFS.FileExists(pFileName) = True Then | |
| ReDim Preserve aryOutFiles(aryOutCtr) | |
| aryOutFiles(aryOutCtr) = pFileName | |
| aryOutCtr = aryOutCtr + 1 | |
| WScript.Echo " 通知：録音ファイル名「" & pFileName & "」が出力されました。" | |
| Else | |
| WScript.Echo " 注意：録音ファイル名「" & pFileName & "」は出力されませんでした！" | |
| End If | |
| '録音終了の判断 | |
| If Now() >= EndDate Then Exit Do '予定録音時間まで録音できたので完了 | |
| CtrRetry = CtrRetry + 1 | |
| If CtrRetry > MaxRetry Then | |
| Ans = MsgBox("abend : リトライ回数制限に達しましたので録音を中断しました。", 48, "☆録音リタイア☆") | |
| Exit Do 'リトライ回数制限を超えたら諦める | |
| End If | |
| WScript.Sleep(1000 * (IntervalRetry * CtrRetry)) 'リトライ・インターバルを増やし行くのは通信途絶が長いくなった場合に必要な配慮 | |
| WScript.Echo "warning : " & Right("000" & CtrRetry, 3) & "回目のリトライ発生！" | |
| Loop | |
| '録音完了をメールで通知する。 | |
| If argMail = "yes" or argMail = "att" Then call SendMail() | |
| 'パソコンを休止にする。 ※全ての環境で機能するのかな？ | |
| If argSleep = "yes" Then | |
| WSHShell.Run "%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState",,False | |
| End If | |
| 'メール通知（CDOでメール送信できる環境であることが前提、例えばHome Editionなどは使えないと思われる。ポート25が開いていないLANでも利用できない。） | |
| Function SendMail() | |
| Dim oMsg | |
| Dim pBody | |
| Dim pFileNm | |
| Dim oFile | |
| Set oMsg = CreateObject("CDO.Message") | |
| oMsg.From = argSendTo | |
| oMsg.To = argSendTo | |
| oMsg.Subject = "録音が完了しました。 放送局 : " & argStation & " ファイル : " & argOut | |
| pBody = "録音が完了しました" & vbCrLf | |
| For Each pFileNm In aryOutFiles | |
| pBody = pBody & "録音ファイル名 : " & pFileNm & vbCrLf | |
| '録音したファイルを添付する（録音時間が長い場合に受信でるかは、送信先のSMTPサーバーの設定に依存する） | |
| If argMail = "att" Then | |
| Set oFile = WSHFS.GetFile(pFileNm) | |
| oMsg.AddAttachment(oFile.Path) 'フルパスじゃないと添付出来ない | |
| End If | |
| Next | |
| oMsg.TextBody = pBody | |
| oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 | |
| oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = argSMTP | |
| oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 | |
| oMsg.Configuration.Fields.Update | |
| oMsg.Send | |
| End Function | |
| '指定した名前のプロセスを強制終了 | |
| Sub TerminateProcess(ProcessName) | |
| Dim objProcList,objProcess | |
| Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process") | |
| For Each objProcess In objProcList | |
| If LCase(objProcess.Name) = LCase(ProcessName) Then objProcess.Terminate | |
| Next | |
| End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment