Discussion :

[Speed41]

Bonjour,
Pour commencer voici mon batch :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off

del /q /f %UserProfile%\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper.jpg

xcopy "c:\Windows\System32\tools760\PrintScreenGenerator\dCTBL.bmp" "c:\windows\" /c /f /h /y
xcopy "c:\Windows\System32\tools760\PrintScreenGenerator\TranscodedWallpaper.jpg" "%UserProfile%\AppData\Roaming\Microsoft\Windows\Themes\" /c /f /h /y

reg DELETE "HKCU\Control Panel\Desktop" /v "WallPaper" /f

reg add "hkcu\control panel\desktop" /v wallpaper /t REG_SZ /d "c:\windows\dCTBL.bmp" /f
reg add "hkcu\control panel\desktop" /v WallpaperStyle /t REG_SZ /d 2 /f
reg add "hkcu\control panel\desktop" /v TileWallpaper /t REG_SZ /d 0 /f
reg ADD "HKCU\Control Panel\Colors" /v Background /d "1 85 175" /f
RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters

Cela fonctionne sur certains PC en windows 7 et pour certains l'image n'est pas cochée et donc mon fond d'écran n'est pas modifié. Mon thème est créé et sélectionné mais l'image n'est pas cochée.

Si vous avez une idée je suis preneur

Merci d'avance

PS ça doit fonctionner sur XP aussi

[devilsnake88]

Salut, peux-tu nous afficher ce que retourne ton code avec un "@echo on & cls" en PREMIERE ligne et un "pause" en dernière?

EDIT:
Oublie mon message précédent et essaye ceci:

Code bat :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
@echo off & cls
setlocal enabledelayedexpansion
 
set current_path=%~dp0
set current_path_modified=%current_path:~0,-1%
set "ProcessToKill=explorer"
 
ver | findstr /i "5\.1\." > nul
IF %ERRORLEVEL% EQU 0 (
    echo Xindows_XP
    for /f %%x in ('dir /s/b "%current_path_modified%\*.bmp"') do (  
        set "Wallpaper=%%x"
    )
    if exist "%Wallpaper%" (
        set "UserWallpaperLocation=C:\WINDOWS\web\wallpaper\TranscodedWallpaper.bmp"
        if exist "%UserWallpaperLocation%" del /F /S /Q "%UserWallpaperLocation%"
        copy "%Wallpaper%" "!UserWallpaperLocation!" /Y
        reg add "hkcu\control panel\desktop" /v wallpaper /t REG_SZ /d "!UserWallpaperLocation!" /f
    )
) else (
    for /f %%y in ('dir /s/b "%current_path_modified%\*.jpg"') do (  
        set "Wallpaper=%%y"
    )
    if exist "%Wallpaper%" (
        set "UserWallpaperLocation=%UserProfile%\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper.jpg"
        if exist "%UserWallpaperLocation%" del /F /S /Q "%UserWallpaperLocation%"
        copy "%Wallpaper%" "%UserWallpaperLocation%" /Y
    )
)
RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters
tasklist /FI "IMAGENAME eq %ProcessToKill%.exe" 2>NUL | find /I /N "%ProcessToKill%.exe">NUL
if "%ERRORLEVEL%"=="0" (
    TASKKILL /F /IM %ProcessToKill%.exe
)
start explorer.exe
exit

Ce code va détecter les fichiers JPG et BMP présents dans le dossier dans lequel tu exécutes ton .BAT (ne met qu'un seul JPG et/ou BMP) et te l’attribuera comme wallpaper (JPG pour Windows > XP et BMP pour Windows XP).

[Speed41]

Bonjour,

Merci devilsnake88 ça fonctionne merci

Ce que je ne comprends pas c'est que quand je veux rechanger le fond d'écran ce n'est pas le mien qui est affiché (celui du bat) mais celui que j'avais choisit manuellement. C'est déstabilisant mais pas bien grave en soit

Encore merci

[devilsnake88]

Peux-tu me dire exactement ce que tu fais, sur que OS, si ton wallpaper perso se trouve bien dans le dossier où il devrait être et si la clé de registre du nom de Wallpaper a bien comme valeur le chemin vers ton image?

[Speed41]

Le fichier dans le dossier ...\appdata\roaming\microsoft\windows\themes\transcodedwallpaper.jpg est bien la bonne image. Mais quand je clic menu contextuel sur le bureau, menu personnaliser, l'image en arrière plan du bureau n'est pas la même que celle affiché.

L'objectif final est de créer une tâche pour mettre à l'ouverture de session une image en fond d'écran de manière à ce que celle ci si elle est changé revient automatiquement. PC Industriels et non perso.
OS : Windows 7 Pro, entreprise & ultimate. Windows XP Pro

Je n'ai pas les mêmes réactions sur des PC 7 Pro issu du même CD d'instal. paramétré à l'identique

[devilsnake88]

Je n'ai pas testé mais ça ne m'étonne pas, on a modifié le registre et redémarré Explorer mais fais ceci:
Essaye de changer de wallpaper avec mon batch et redémarre l'ordi et ensuite seulement va dans "personnaliser" et redis moi.

[Speed41]

Redémarrer l'ordi ou la session ne change rien
De plus ça ne semble pas fonctionner à 100%

J'ai le problème sur une machine (fixe) et sur une autre pas de problème (portable) même windows 7 pro, même config