/* * 指定されたフォルダ以下にある画像ファイルのうち * ランダムな1枚を壁紙に設定します。 * * Wally Component ver1.01が必要です。 * http://hyons.hp.infoseek.co.jp/#WallyComponent * * author Jomora(http://jomora.bne.jp) * version 2005.09.18 作成 */ // 画像ファイルがあるフォルダ var targetFolder = "D:/picture"; //**Start Encode** var fso = new ActiveXObject("Scripting.FileSystemObject"); var folder = fso.GetFolder(targetFolder); var fileList = new Array(); var index = 0; makeFileList(folder); setWallPaper(fileList[createRandamIndex(fileList.length)].Path); WScript.Quit(); function makeFileList(folder) { var fc = new Enumerator(folder.Files); for(; !fc.atEnd(); fc.moveNext()) { if (fc.item().Name.search(/\.(jpg)|(jpeg)|(bmp)|(png)|(gif)$/i) >= 0) { fileList[index++] = fc.item(); } } var folders = new Enumerator(folder.SubFolders); for(; !folders.atEnd(); folders.moveNext()) { makeFileList(folders.item()); } } function createRandamIndex(maxSize) { return Math.floor(Math.random() * maxSize); } function setWallPaper(filename) { var wally = new ActiveXObject("Hyon.Wally"); wally.Immediacy = false; if (filename.search(/\.bmp$/i) >= 0) { wally.ActiveDesktop = false; } else { wally.ActiveDesktop = true; } wally.WallPaper = filename; wally.Change(); }