sábado, 30 de abril de 2016

[Sobre o Windows 10] Windows 10 Versão 1511 - Tela de Bloqueio Spotlight

Na Atualização de Novembro do Windows 10 na Versão 1511, foi inserido lindas Imagens na Tela de Bloqueio (Spotlight).

Windows 10 spotlight images script

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

Só aguardar a Execução do Script e logo terá todas as Imagens.

2 comentários:

  1. caros amigos..o script parou de funcionar,está dando um erro no script.
    Ele avisa que na linha 15 tem um caractere inválido
    Obrigado
    Eduardo Andrea Sento Sé
    sentose720@msn.com

    ResponderExcluir