last update: Feb. 3 1998
今回も手抜きもいいとこ, 何せ壁紙をランダムに設定するツールを 数行変更しただけだから (^_^;) .
/*
frequency background changer FRBG.CMD
copyright(c) ark@dan.wind.ne.jp
*/
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
arg deffile min
if min = '' then
min = 60
if deffile = '' then
deffile = 'frbg.def'
filenum = 0
do while lines(deffile) = 1
fname = linein(deffile)
if length(fname) = 0 then iterate
if left(fname, 1) = ';' then iterate
filenum = filenum + 1
files.filenum = fname
files.0 = filenum
end
do forever
num = random(1, files.0)
setup = 'BACKGROUND='files.num',S,1,I,'
/* setup = 'BACKGROUND='files.num',T,,I,' */
result = SysSetObjectData('<WP_DESKTOP>', setup)
call SysSleep min*60
end
このコマンドの使い方は,
FRBG deffile min
で, deffileは壁紙指定ファイル, minは変更する時間間隔 (分単位) です.
省略すると, deffileはカレントディレクトリのfrbg.def, minは60分です.
基本的に以前公開した壁紙をランダムに設定するツールと同じなんで,
壁紙指定ファイルについてはそちらを見てください (この辺も手抜き ^^; ) .
簡単に説明すると, 壁紙を設定した後, SysSleep
で指定されただけ時間待ちをする,
というのを繰りかえすだけです.
ちなみに, 1度設定された壁紙は システムがシャットダウンされるまでメモリ上に残るようなので,
たくさんの壁紙を切り替えているとメモリを浪費することになります.
気をつけてください.