last update: Feb. 3 1998

壁紙を一定時間ごとにランダムに変更するツール (REXX)


今回も手抜きもいいとこ, 何せ壁紙をランダムに設定するツールを 数行変更しただけだから (^_^;) .


/*
  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度設定された壁紙は システムがシャットダウンされるまでメモリ上に残るようなので, たくさんの壁紙を切り替えているとメモリを浪費することになります. 気をつけてください.



このページの作者は αρκ <ark@dan.wind.ne.jp> です