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

// ファイル名: gyao.wsf　　引数: なし または GyaOのプレイリストURL
<job id='gas'><script language='JavaScript'>
// **** 設定 ここから **** (引数にプレイリストURLを指定する場合はgasDirectoryのみ設定すればよい)
// GASのあるフォルダ(バックスラッシュは二重の'\\'で表記)
var gasDirectory = "C:\\Program Files\\GetASFStream";
// ビットレート: bit0000001 で 384kbps, bit0000002 で 768kbps
var gyaoBitRate = 'bit0000002';
// ユーザーID: GyaOのサイト内でアドレス欄に javascript:window.alert(document.cookie); と入力してEnter → Cookie_UserIdのあとにある数値
var gyaoUserID = 'XXXXXXXXXX';
// **** 設定 ここまで ****
</script><script language='VBScript'>
Function vbInputBox(message, title, default)
vbInputBox = InputBox(message, title, default)
End Function
</script><script language='JavaScript'>
if (WScript.Arguments.Count() == 0) {
var c = vbInputBox('コンテンツIDを入力してください。', 'コンテンツ情報の入力', 'cntXXXXXXX');
if (c != null && c != '' && c != 'cntXXXXXXX') {
var playlistUrl = 'http://www.gyao.jp/sityou/asx.php?contentsId=' + c + '&userNo=' + gyaoUserID + '&rateId=' + gyaoBitRate;
} else {WScript.Echo('必要な情報が設定されませんでした。');WScript.Quit();}
} else {var playlistUrl = WScript.Arguments.Item(0);}
var regexp = new RegExp("HREF=\"([^\"]+gyaovod[^\"]+)\"", "m");
try {
var xmlhttp = new ActiveXObject('Microsoft.XMLHTTP');
xmlhttp.open('GET', playlistUrl, false);xmlhttp.send('');
var videoUrl = xmlhttp.responseText.match(regexp)[1];
var shell = WScript.CreateObject('WScript.Shell');
shell.CurrentDirectory = gasDirectory;
shell.Run('StreamGet.exe' + ' ' + videoUrl);
} catch (e) {WScript.Echo('処理中にエラーが発生しました。:' + e.message);}
</script></job>

// 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();}