Bild auf dem Sperrbildschirm

Diskutiere Bild auf dem Sperrbildschirm im Windows 10 Forum im Bereich Microsoft Community; Hallo zusammen, ich habe mir ein kleines Excel-Progrämmchen geschrieben (Code siehe unten), welches beim Autostart aus dem Pfad...
M

MS-User

Threadstarter
Mitglied seit
20.09.2016
Beiträge
84.064
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:

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
 
Thema:

Bild auf dem Sperrbildschirm

Sucheingaben

resorts world casino

,

mystique casino

,

mystique caHsino

,
free poker network
, free pok]er network, bet365 casino, mystic lake casino, mystic lake casoino, cafrino poker, casinUo royale 1967, strip poker games, grand eagle casino, grand eagle c9asino, free poker tournaments, what does 3poker face mean, what does poker face mean, cardplayer poker, cardplayer ploker, palace casino, best poker players, best podker players, poker champions, poNker champions, big dollar casino, big dollar c1asino

Bild auf dem Sperrbildschirm - Ähnliche Themen

  • Bilder werden in Oulook 2019 nicht mehr angezeigt

    Bilder werden in Oulook 2019 nicht mehr angezeigt: Hallo Community, habe schon in den verschiedensten Ratgebern nachgelesen aber nirgends kam der entschiedene Hinweis. Problem: Alle Mails werden...
  • integrierte Laptop Webcam liefert kein Bild

    integrierte Laptop Webcam liefert kein Bild: Hallo, ich habe seit ca. 3 Monaten ein Asus Zenbook pro 14 mit Windows 10. Nun wollte ich für ein Skype Gespräch gerne die integrierte Webcam...
  • Eingebettete Bilder im Outlook 365 (via Browser) werden nicht angezeigt

    Eingebettete Bilder im Outlook 365 (via Browser) werden nicht angezeigt: Hallo, ich habe eine Mail mit eingebetteten Bildern (statt im Anhang) bekommen. Die Bilder werden nicht angezeigt; lediglich ein Platzhalter mit...
  • Von Meinem PC (windows 8.1 ) Bilder und Videos auf Samsung smart tv projizieren

    Von Meinem PC (windows 8.1 ) Bilder und Videos auf Samsung smart tv projizieren: Hallo Ich möchte von meinem PC ( Windows 8.1 ) Bilder und Videos projizieren. Seit 2 Wochen geht das nicht mehr. Der Pc verbindet sich zwar...
  • Einfügeoptionen für Bilder in Word ändern - So ändert man den Standard zum Einfügen von Bildern

    Einfügeoptionen für Bilder in Word ändern - So ändert man den Standard zum Einfügen von Bildern: Für den einen oder anderen ist Microsoft Word auch für das Schnelle bearbeiten oder einbinden von Bildern die erste Wahl, wobei der Standard zum...
  • Ähnliche Themen

    Oben