Modifier mon fond d'écran

Version imprimable

Bonjour,
Pour commencer voici mon batch :
Code:

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

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:

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).

08/01/2016, 08h03
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
08/01/2016, 08h39
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?
08/01/2016, 08h53
Speed41

Le fichier dans le dossier ...\appdata\roaming\microsoft\windows\themes\transcodedwallpaper.jpg est bien la bonne image.:D 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é.:ptdr:

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
08/01/2016, 09h02
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.
08/01/2016, 09h06
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

Ah oui j'ai oublié un REG ADD si l'OS est différent de XP ^^
Essaye:

Code:

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
37
38
39
@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
        reg add "hkcu\control panel\desktop" /v wallpaper /t REG_SZ /d "!UserWallpaperLocation!" /f
    )
)
RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters
REM RUNDLL32.EXE user32.dll, LockWorkStation
 
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

J' ai rajouté ça

Code:

1
2
3
4
5
if exist "%appdata%\Microsoft\Windows\Themes\TransCodedWallpaper.jpg" (
del "%appdata%\Microsoft\Windows\Themes\TransCodedWallpaper.jpg" /f
xcopy "%windir%\System32\tools760\PrintScreenGenerator\TransCodedWallpaper.jpg" "%appdata%\Microsoft\Windows\Themes" /s /c /e /h /y
)

car des fois ça ne fonctionnais pas

code complet :

Code:

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
37
38
39
40
41
42
43
44
45
46
@echo off & cls
setlocal enabledelayedexpansion
 
set current_path=%~dp0
set current_path_modified=%current_path:~0,-1%

if exist "%appdata%\Microsoft\Windows\Themes\TransCodedWallpaper.jpg" (
del "%appdata%\Microsoft\Windows\Themes\TransCodedWallpaper.jpg" /f
xcopy "%windir%\System32\tools760\PrintScreenGenerator\TransCodedWallpaper.jpg" "%appdata%\Microsoft\Windows\Themes" /s /c /e /h /y
)

set "ProcessToKill=explorer"

REM for /f %%x in ('dir /s/b "%current_path_modified%\*.bmp"') do (  
    REM set "Wallpaper=%%x"
REM )
 
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

Ca fonctionne sur plusieurs Win 7, reste à tester sur XP

Merci de ton aide