Les images de l'écran d'accueil de Windows

Sous Windows 10 (et peut-être les versions précédentes...), il y a des images superbes qui s'affichent comme image de fond de l'écran d'accueil (logon screen). Mais elles sont où ? Peut-on les récupérer ?

En fait, elles sont cachées dans les profondeurs des données dynamiques que Windows gère de façon automatique, et oui, on peut les récupérer. Voici un petit programme qui le fait.

D'abord, il affiche une liste avec les noms de toutes les images présentes. Ces noms sont simplement une suite de lettres et chiffres sans signification, et sans extension. Puis, en cliquant sur le bouton "Convertir",
il crée un sous-dossier WindowsImages sous votre dossier par défaut et y copie l'ensemble de ces images en format JPG, et recharge la liste avec les noms des fichiers dans ce sous-dossier. Les noms sont changés en Imagexxxxx.jpg avec xxxxx étant le numéro de l'image (il y en a 63 chez moi). Un clic sur un de ces noms affiche alors l'image à droite, si c'est possible (ce qui n'est pas toujours le cas).

Voici le code (100 % Panoramic):

Code:: ' Images_windows.bas
' selon un article trouvé ici:
' https://www.tekrevue.com/tip/find-windows-spotlight-lock-screen-images-windows-10/

label close0, convertir, montrer, bad
dim dir$, dirold$, f$, dirimg$, i%

dir$ = "C:\Users\klausgunther\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets"

dirold$ = dir_current$
dirimg$ = dirold$ + "\WindowsImages"

on_close 0,close0
full_space 0

list 1 : height 1,height_client(0) : width 1,300 :on_click 1,montrer
picture 2 : top 2,100 : left 2,width(1)+10 : width 2,600 : height 2,400 : stretch_on 2
button 3 : top 3,520 : left 3,left(2)+20 : caption 3,"Convertir" : on_click 3,convertir

off_click 1
dir_change dir$

f$ = file_find_first$
i% = 0
while f$<>"_"
if left$(f$,1)<>"." then item_add 1,f$
f$ = file_find_next$
end_while
file_find_close

end

close0:
dir_change dirold$
return

convertir:
off_click 1
dir_change dir$
if dir_exists(dirimg$)=0
dir_make dirimg$
else
if message_confirmation_yes_no("Il y a déjà des images converties. Supprimer ?")<>1 then return
dir_change dirimg$
f$ = file_find_first$
while f$<>"_"
if left$(f$,1)<>"." then file_delete f$
f$ = file_find_next$
end_while
file_find_close
dir_change dir$
end_if
for i%=1 to count(1)
f$ = item_read$(1,i%)
file_copy dir$+"\"+f$,dirimg$+"\Image"+right$("0000"+str$(i%),5)+".jpg"
next i%

dir_change dirimg$
clear 1
f$ = file_find_first$
while f$<>"_"
if left$(f$,1)<>"." then item_add 1,f$
f$ = file_find_next$
end_while
file_find_close
on_click 1,montrer

return

montrer:
on_error_goto bad
file_load 2,dirimg$+"\"+item_index$(1)
off_error_goto
return
bad:
off_error_goto
message "Erreur: index="+str$(item_index(1))+" "+item_index$(1)
return

L'information à la base de ce programme a été prise ici:
https://www.tekrevue.com/tip/find-windows-spotlight-lock-screen-images-windows-10/

Merci Klaus !

Testé avec succès ! Je suis aussi sur Windows 10.

Spoiler:

» Sub fondu d'images
» Traitement d'images
» Assemblage d'images
» Bricoler des images
» Retouche d'images