N
N.
War schon mal da
- 11
- 8
- Eigene Bilder auf dem Sperrbildschirm
- #1
Hallo zusammen,
ich habe mir ein kleines Excel-Progrämmchen geschrieben (Code siehe unten), welches beim Autostart aus dem Pfad "C:\Users\<mein_user>\Pictures\Sperrbildschirme" eines der dort hinterlegten JPGs nach "C:\Users\<mein_user>\Pictures" kopiert und dabei nach Sperrbildschirm.jpg umbenennt und vorher löscht, weil es dort schon vorhanden ist.
In den Einstellungen habe ich für den Sperrbildschirm aus dem obigen Verzeichnis ("C:\Users\<mein_user>\Pictures") das Bild Sperrbildschirm.jpg selektiert.
Trotz der Tatsache, dass sich tatsächlich das Bild bei jeder Anmeldung ändert (das kann ich sehen, wenn ich das Verzeichnis "C:\Users\<mein_user>\Pictures" öffne) ist der Sperrbildschirm immer mit dem zuallererst einmal ausgewählten Bild versehen. Wenn ich Sperrbildschirm.jpg z.B. in abc.jpg umbenenne und das so in den Einstellungen hinterlege, dann ist dann tatsächlich ein anderes Bild im Sperrbildschirm zu sehen. Kaum benenne ich das wieder in Sperrbildschirm.jpg um, habe ich - egal welches Bild zu sehen ist - das allererste Bild im Sperrbildschirm.
Daraus kann nur gefolgert werden, dass das tatsächliche Bild sich ganz woanders befindet. WWW - Wer Weiß Wo?
Hier (C:\Users\<mein_user>\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets) jedenfalls nicht.
Wer kann mir weiterhelfen?
Grüße, Noepes
- - - - - - - - - - - - - - - -
Und jetzt das kleine Excel-Programm:
ich habe mir ein kleines Excel-Progrämmchen geschrieben (Code siehe unten), welches beim Autostart aus dem Pfad "C:\Users\<mein_user>\Pictures\Sperrbildschirme" eines der dort hinterlegten JPGs nach "C:\Users\<mein_user>\Pictures" kopiert und dabei nach Sperrbildschirm.jpg umbenennt und vorher löscht, weil es dort schon vorhanden ist.
In den Einstellungen habe ich für den Sperrbildschirm aus dem obigen Verzeichnis ("C:\Users\<mein_user>\Pictures") das Bild Sperrbildschirm.jpg selektiert.
Trotz der Tatsache, dass sich tatsächlich das Bild bei jeder Anmeldung ändert (das kann ich sehen, wenn ich das Verzeichnis "C:\Users\<mein_user>\Pictures" öffne) ist der Sperrbildschirm immer mit dem zuallererst einmal ausgewählten Bild versehen. Wenn ich Sperrbildschirm.jpg z.B. in abc.jpg umbenenne und das so in den Einstellungen hinterlege, dann ist dann tatsächlich ein anderes Bild im Sperrbildschirm zu sehen. Kaum benenne ich das wieder in Sperrbildschirm.jpg um, habe ich - egal welches Bild zu sehen ist - das allererste Bild im Sperrbildschirm.
Daraus kann nur gefolgert werden, dass das tatsächliche Bild sich ganz woanders befindet. WWW - Wer Weiß Wo?
Hier (C:\Users\<mein_user>\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets) jedenfalls nicht.
Wer kann mir weiterhelfen?
Grüße, Noepes
- - - - - - - - - - - - - - - -
Und jetzt das kleine Excel-Programm:
Code:
Option Explicit
Private Sub Workbook_Open()
Dim c, p As Integer
Dim strFile, strUser As String
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
strUser = "<mein_user>"
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:\Users\" & strUser & "\Pictures\Sperrbildschirme")
Set objDateienliste = objVerzeichnis.Files
Randomize (Timer)
c = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(c, 1) = objDatei.Name
c = c + 1
End If
Next objDatei
c = c - 1
p = Int(Rnd(Time) * c)
While (p = 0) Or (p > c)
p = Int(Rnd(Time) * c)
Wend
ActiveSheet.Cells(p, 1).Select
strFile = ActiveSheet.Cells(p, 1)
Kill "C:\Users\" & strUser & "\Pictures\Sperrbildschirm.jpg"
Call CopyFile("C:\Users\" & strUser & "\Pictures\Sperrbildschirme\", "C:\Users\" & strUser & "\Pictures\", strFile)
'ThisWorkbook.Close SaveChanges:=True ' zur Zeit inaktiv
End Sub
Sub CopyFile(ByVal StrFromPath As String, ByVal StrToPath As String, ByVal strFile As String)
Dim myFSO As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFile StrFromPath & strFile, StrToPath & "Sperrbildschirm.jpg", True
End Sub
Zuletzt bearbeitet von einem Moderator: