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
» Mah-Jong américain
par Jean Claude Hier à 19:37

» StratégoV8 et V9
par Jean Claude Hier à 13:18

» Problème avec Deepl
par Klaus Hier à 0:34

» Déformation d'image en trapèze
par Klaus Dim 14 Jan 2018 - 16:22

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» KGF_dll - nouvelles versions
par Minibug Ven 12 Jan 2018 - 0:21

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» HVIEWER
par Klaus Mer 10 Jan 2018 - 2:06

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

» Bonne fêtes de fin d'année ! Meilleurs Vœux 2018 !
par Jicehel Jeu 4 Jan 2018 - 17:28

» Mah-Jong international
par jjn4 Jeu 4 Jan 2018 - 16:55

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

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

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10411
Age : 68
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 - 2: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



Nombre de messages : 582
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Les images de l'écran d'accueil de Windows   Mar 19 Déc 2017 - 2: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» bouton éteindre sur l' écran 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
» Demande de message d'accueil x)

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: