Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Les images de l'écran d'accueil de Windows Mar 19 Déc 2017 - 0:23 | |
| 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/ | |
|
Marc
Nombre de messages : 2466 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Re: Les images de l'écran d'accueil de Windows Mar 19 Déc 2017 - 0:46 | |
| Merci Klaus ! Testé avec succès ! Je suis aussi sur Windows 10. - Spoiler:
| |
|