管理人の独り言（プログラミング関連）

1438： ◆adhRKFl5jU：2009/02/21(土) 20:34:44: 上手くいかないなあとか思ったら、改行コードの問題だった。
-----
(function(){
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(fso.FileExists("list.txt")){
var list = fso.OpenTextFile("list.txt", 1, false).ReadAll().split("\r\n");
var log = fso.OpenTextFile("log.txt", 2, true);
for(var i = 0; i < list.length; ++i){
if(list[i]){
var url = list[i], filename = url.split("/").pop();
if(Download(url, filename)){
log.WriteLine(url + ":" + "成功");
}else{
log.WriteLine(url + ":" + "失敗");
}
}
}
}else{
WScript.Echo("list.txtがありません。");
}

Download("http://blog-imgs-32.fc2.com/k/i/r/kirasoku4/vip20ch26210.jpg", "vip20ch26210.jpg");

function Download(url, filename){
//WScript.Echo("url: " + url + "\n" + "filename: " + filename);
try{
var http = new ActiveXObject("Microsoft.XMLHTTP");
http.open("GET", url, false);
http.send(null);

var file = new ActiveXObject("Adodb.Stream");
file.type = 1;
file.open();
file.write(http.responseBody);
file.savetofile(filename, 2);
}catch(e){
return false;
}

return true;
}
})();

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板