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
» Un prg Panoramic s'abime avec le temps
par papydall Aujourd'hui à 3:14

» Planétarium virtuel.
par Pedro Alvarez Hier à 16:58

» Dessin 2D: largeur de trait (résolu !)
par Jicehel Hier à 15:16

» Promenade dans le Ciel
par papydall Hier à 3:13

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Sam 23 Juin 2018 - 17:00

» Nouvelle version 0.34
par jean_debord Sam 23 Juin 2018 - 9:39

» Quantité de mémoire utilisée par un exe
par mindstorm Jeu 21 Juin 2018 - 21:22

» Projet de planétarium virtuel.
par Jean Claude Jeu 21 Juin 2018 - 19:02

» Animation: Feux de signalisation
par Minibug Mer 20 Juin 2018 - 20:28

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
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 : 796
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
-
» 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
» Demande de message d'accueil x)
» [TUTO] Insérer des images, des vidéos ou des fichiers téléchargeables dans vos posts

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: