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

// GyaO_WriteList.js (2005/04/09)
// やってくれること
// 　複数の asx.php のアドレスを受け取って rtsp:// のアドレスのリストを作成する
// 使い方
// 　wscript.exe Gyao_WriteList.js "asx.phpのアドレス1" "アドレス2" ...
// 　成功するとデスクトップ上に GyaO.lst ってファイルが出来るので
// 　GASで [ファイル] [LIST読込] とやる
// GEの外部コマンド
// 　表示名: なんでもいい
// 　実行ファイル: wscript.exe
// 　引数: Gyao_WriteList.js {PlayListUri}
// 　でもってリストビューで複数選択して右クリックから外部コマンドを実行

var listFile = WScript.CreateObject("WScript.Shell").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();}