FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: 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/
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Marc

avatar

Nombre de messages : 865
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: 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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Les images de l'écran d'accueil de Windows
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» images défilantes page d'accueil
» images défilantes page d'accueil
» changer l'écran d'accueil Peugeot de mon C310
» Supprimer l’écran de verrouillage Windows 8 et 8.1
» Personnalisation de l'écran d'accueil Montana 650

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: