パソコンテレビ「GyaO（ギャオ）」総合スレ 35

>>8を、自動的にリストを読み込んでダウンロードを開始するようにしてみた。
確認のダイアログは削ってもいいかもしれない。

// GyaO_WriteList.js
var WshShell = new ActiveXObject("WScript.Shell");
var listFile = WshShell.SpecialFolders("Desktop") + "\\GyaO.lst";
if(WScript.Arguments.Count()==0){
   WScript.Echo("引数に asx.php のアドレスを指定しろ (複数可)");
   WScript.Quit();
}
var regexp = new RegExp("HREF=\"([^\"]+gyaovod[^\"]+)\"", "m");
try{
   var txtStream = new ActiveXObject("Scripting.FileSystemObject").OpenTextFile(listFile,2,true);
   var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
   for(var i=0; i<WScript.Arguments.Count(); i++){
      var playlistUrl = WScript.Arguments.Item(i);
      xmlhttp.open("GET", playlistUrl, false);
      xmlhttp.send("");
      var videoUrl = xmlhttp.responseText.match(regexp)[1];
      txtStream.WriteLine(videoUrl);
   }
}
catch(e){WScript.Echo("例外: "+e.message);
}
finally{
   if(txtStream!=null) txtStream.Close();
}
if( WshShell.Popup("選択された項目をGASでダウンロードしますか？",0,"確認",1) == 2 ){
   WScript.Quit(2);
}
WshShell.CurrentDirectory="C:\\Program Files\\GetASFStream";
WshShell.Run("\"C:\\Program Files\\GetASFStream\\StreamGet.exe\" \""+listFile+"\"");