Die Funktion Windows-Blickpunkt (auch als Windows-Spotlight bezeichnet) zeigt wechselnde Hintergründe auf dem Sperrbildschirm und auf dem Desktop (ab Windows 11) an. Für die Anzeige werden die Hintergründe bzw. Bilder auf dem lokalen Rechner / Gerät zwischengespeichert. Die Bilder (JPG-Format) lassen sich jeder Zeit in einen anderen Ordner dauerhaft speichern.

So geht's :

• Öffnen das Verzeichnis "%LocalAppData%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets".
• Kopieren Sie alle Dateien in ein anderes Verzeichnis. Z. B.: "%UserProfile%\Pictures\WindowsSpotlightImages"
• Ergänzen Sie die Dateierweiterung ".jpg" oder benennen die Datei(en) mit der Dateierweiterung ".jpg" um.

So geht's (VisualBasic-Skript):

• Kopieren Sie nachfolgendes VisualBasic-Skript in einen Texteditor (z. B. "Notepad").
• Speichern Sie den Inhalt mit der Dateiendung ".vbs" ab. Z. B.: "WindowsSpotlightImages.vbs"
• Das Skript kopiert die JPG-Bilddateien in den Ordner "WindowsSpotlightImages" (unter "Bilder").

' Copyright (c) Windowspage
' Kopiert die Bilder von Windows-Blickpunkt in den Bilder-Ordner des Benutzers

DIM ShellObj, FileSystemObj, SpotlightFolder, FileObj
DIM LocalAppData, UserProfile, AppSpotlight, UserSpotlight
DIM FileName, PictureFile, cnt

SET ShellObj = CreateObject("WScript.Shell")
LocalAppData = ShellObj.ExpandEnvironmentStrings("%LocalAppData%")
UserProfile = ShellObj.ExpandEnvironmentStrings("%UserProfile%")
AppSpotlight = LocalAppData & "\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets"
UserSpotlight = UserProfile & "\Pictures\WindowsSpotlightImages"

SET FileSystemObj = CreateObject("Scripting.FileSystemObject")
SET SpotlightFolder = FileSystemObj.GetFolder(AppSpotlight)

IF NOT FileSystemObj.FolderExists(UserSpotlight) THEN FileSystemObj.CreateFolder(UserSpotlight)

cnt = 0
FOR EACH PictureFile IN SpotlightFolder.Files
FileName = FileSystemObj.GetFileName(PictureFile)
SET FileObj = FileSystemObj.GetFile(PictureFile)
FileObj.Copy(UserSpotlight & "\" & FileName & ".jpg")
cnt = cnt + 1
NEXT
MSGBOX "Es wurden " & cnt & " Datei(en) nach '" & UserSpotlight & "' kopiert.", vbOKOnly, "Windows-Spotlight"

Hinweis:

• Für die korrekte Darstellung des Hintergrunds stehen ggf. mehrere Bilder mit unterschiedlichen Abmessungen zur Verfügung.