パソコンテレビ「GyaO(ギャオ)」総合スレ 36

このエントリーをはてなブックマークに追加
14GExplorerの作者はアフォ
// 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+"\"");