More than 5 years have passed since last update.

JavaScriptを使って24時間毎日見れる(聴ける)音楽ライブ放送 🎧 を探す！(第1回)

Last updated at 2017-04-25Posted at 2017-04-24

24時間毎日見れる(聴ける)音楽ライブ 🎧 を主にYouTubeから探して紹介します！(`クローラーもどきも開発します`)

興味のある方は、プログラムを追加・更新する際に変更通知を送りますので「ストック」をよろしくお願いします。

YouTube の検索結果取得プログラム

Windows PC で以下のスクリプトファイル(Windows Script ファイル)を作成します。
作成できたらダブルクリックすることで IEが起動し YouTube の検索画面が自動的に開きます。
スクリプトファイルと同じディレクトリの yt-live.txt に検索結果(HTML)が保存されます。
保存されたHTMLを加工・処理するプログラムはまた今度紹介します。

yt-live.wsf

<job>

<comment>
********************************************************************************
最終更新: 2017年4月24日 14:44:58
最近の変更点: 
********************************************************************************
</comment>

<script language="JavaScript">

  var url = "https://www.youtube.com/results?search_query=music+live";

  var ie = WScript.CreateObject("InternetExplorer.Application")
  ie.Navigate(url);
  ie.Visible = true;
  waitIE(ie);

  writeTextToFile_Utf8_NoBOM("yt-live.txt", ie.document.documentElement.innerHTML);

  //ie.Quit();
  WScript.Echo("終了します");
  WScript.Quit();

  function waitIE(ie) {    
    while ((ie.Busy) || (ie.readystate != 4)) {
      WScript.Sleep( 100 );
    }
    WScript.Sleep( 1000 )
  }

  function writeTextToFile_Utf8_NoBOM(path, text) {
    var StreamTypeEnum  = { adTypeBinary: 1, adTypeText: 2 };
    var SaveOptionsEnum = { adSaveCreateNotExist: 1, adSaveCreateOverWrite: 2 };
    var stream = new ActiveXObject("ADODB.Stream");
    stream.Type = StreamTypeEnum.adTypeText;
    stream.Charset = "utf-8";
    stream.Open();
    stream.WriteText(text);
    stream.Position = 0
    stream.Type = StreamTypeEnum.adTypeBinary;
    stream.Position = 3
    var buf = stream.Read();
    stream.Position = 0
    stream.Write(buf);
    stream.SetEOS();
    stream.SaveToFile(path, SaveOptionsEnum.adSaveCreateOverWrite);
    stream.Close();
  }

</script>

</job>