Caso queira "pegar"essas lindas Imagens que rodam na Tela do Bloqueio do Windows 10, basta Copiar o Script abaixo no Bloco de Notas e Salvar como Spotlight_images.vbs.
O Script irá criar uma Pasta na sua Área de Trabalho chamada Spotlight Images.
Dim oShell, oFS, SourceFolder, DestFolder, DestFileFullName, DestFileName
Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
DestFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\Lock Screen Images")
SourceFolder = oShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets")
oFS.CopyFolder SourceFolder, DestFolder, True
For Each oFile In oFS.GetFolder(DestFolder).Files
DestFileName = oFile.Name & ".jpg"
DestFileFullName = DestFolder & "\" & DestFileName
If oFS.FileExists(DestFileFullName) Then
oFS.DeleteFile(DestFileFullName)
End if
oFile.Name = DestFileName
Next
oShell.Run "explorer.exe /e," & DestFolder
Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
DestFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\Lock Screen Images")
SourceFolder = oShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets")
oFS.CopyFolder SourceFolder, DestFolder, True
For Each oFile In oFS.GetFolder(DestFolder).Files
DestFileName = oFile.Name & ".jpg"
DestFileFullName = DestFolder & "\" & DestFileName
If oFS.FileExists(DestFileFullName) Then
oFS.DeleteFile(DestFileFullName)
End if
oFile.Name = DestFileName
Next
oShell.Run "explorer.exe /e," & DestFolder
Só aguardar a Execução do Script e logo terá todas as Imagens.
caros amigos..o script parou de funcionar,está dando um erro no script.
ResponderExcluirEle avisa que na linha 15 tem um caractere inválido
Obrigado
Eduardo Andrea Sento Sé
sentose720@msn.com
Acabei de editar. = )
Excluir