|
定时换壁纸:
IFEX D:\DEBUG_PECMD, LOGS *D:\DEBUG_PECMD.LOG
TEAM ENVI &&&EnviMode=1| ENVI &&&ForceLocal=1
TEAM SET &SRC=|SET &TIMEMS=
CALC TIMEMS=60000 * 30 // 30min
SET SRC=%CurDir%\Wallpaper //默认配置
SET TIMEMS=5000 //调试
LOAD %CurFile%.ini //自定义配置
WIN1
_SUB WIN1,W411H249,定时换壁纸 PECMD%PECMDVER%,
TEAM SET &I=0| SET &FS=| SET &NUM=1| SET &F=
TIME &Timer1,%TIMEMS%, THREAD* CALL OnTimer1
TIME -t:1 &TimerInit,10, THREAD* CALL OnTimer1 //马上一次
EDIT -vcenter &ESRC,L32T42W346H30,%SRC%,,
ITEM &ITEM2,L154T143W101H30,换目录ChangeDir,CALL OnChange,
_END
_SUB OnChange
BROW &&dirp,*%&ESRC%,请选择一个壁纸目录
FIND $X=X%dirp%, EXIT
ENVI @&ESRC=%dirp%
SET SRC=%dirp%
_END
_SUB OnTimer1
EXEC* FS=!cmd /c dir /b %SRC%\
READ -*,-1,NUM,FS
IFEX $%NUM%<1, EXIT _SUB
// CALC #I= %I% % %NUM% + 1 //顺序
CALC #I= ( %I% + %RANDOM% ) % %NUM% + 1 //随机
READ -*,%I%,F,FS
WALL %SRC%\%F%
_END |
|