「壁紙かってに変更君」このネーミングは結構苦労しました。
あるサンプルを少し改造しただけですけど。
#define CLSID_ActiveDesktop "{75048700-EF1F-11D0-9888-006097DEACF9}" #define IID_IActiveDesktop "{F490EB00-1240-11D1-9888-006097DEACF9}" #usecom IActiveDesktop IID_IActiveDesktop CLSID_ActiveDesktop #comfunc IActiveDesktop_ApplyChanges 3 int #comfunc IActiveDesktop_SetWallpaper 5 wstr, int #comfunc IActiveDesktop_SetWallpaperOptions 7 int, int #enum WPSTYLE_CENTER = 0 #enum WPSTYLE_TILE #enum WPSTYLE_STRETCH onexit *exit newcom adesktop, CLSID_ActiveDesktop chdir ""//ここに、壁紙のあるフォルダーを指定してね。 dirlist list,"*.jpg":s=stat randomize notesel list repeat noteget get,rnd(s) filepath=get gosub *setwallpaper wait 1000 loop *setwallpaper IActiveDesktop_SetWallpaper adesktop, filepath WALLPAPEROPT = 8, WPSTYLE_CENTER IActiveDesktop_SetWallpaperOptions adesktop, varptr(WALLPAPEROPT) IActiveDesktop_ApplyChanges adesktop, 7 return *exit delcom adesktop end