;the things you do to change the screensaver here



;call udf :



$nul = UpdateUserParameters()



;place udf(s) at end of script



;FUNCTION      UpdateUserParameters

;

;ACTION        updates per-user system parameters

;

;AUTHOR        Jens Meyer (sealeopard@usa.net)

;

;VERSION       1.0

;

;DATE CREATED  01/26/2004

;

;DATE MODIFIED 01/26/2004

;

;KIXTART       4.x

;

;SYNTAX        UpdateUserParameters()

;

;PARAMETERS    none

;

;RETURNS       none

;

;REMARKS       used to refresh e.g. the desktop wallpaper or screensaver

;

;DEPENDENCIES  none

;

;EXAMPLE       $rc=writevalue('HKCU\Control Panel\Desktop\','Wallpaper','C:\WINDOWS\Web\Wallpaper\Bliss.bmp','REG_SZ')

;              $rc=UpdateUserParameters()

;              ? 'Press any key to continue...'

;              get $rc

;              $rc=writevalue('HKCU\Control Panel\Desktop\','Wallpaper','','REG_SZ')

;              $rc=UpdateUserParameters()

;

;KIXTART BBS   http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=111232

;

function UpdateUserParameters()

  SHELL 'RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters'

  exit @error

endfunction