en admettant que ton fond d'écran se nomme "pic.bmp"
Code :
Dim WshShell Set WshShell = WScript.CreateObject("Wscript.Shell" ) WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", pic.bmp WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False Set WshShell = Nothing
|
fait à l'arrache, ça devrait marcher
Message édité par Harkonnen le 28-08-2007 à 09:44:37