Script para alterar o plano de fundo da área de trabalho

Editor de texto

Criar um script do Visual Basic é fácil: tudo o que você precisa é de um editor de texto simples, como o Windows Notepad. No entanto, em vez de salvar o arquivo com um nome que termine em ".TXT", o arquivo deve ser salvo com um nome que termine em ".VBS".

O roteiro

Cole o seguinte em um editor de texto:

dim dim shell user

Definir shell = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Set fso = CreateObject ("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0) wallpaper = "c: \ papel de parede.jpg"

shell.RegWrite "HKCU \ Painel de controle \ Desktop \ Wallpaper", papel de parede

shell.Run "% windowsDir% \ System32 \ RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Altere o arquivo "c: \ wallpaper.jpg" com o caminho e o nome do arquivo do plano de fundo da área de trabalho que você gostaria de usar.

Como executá-lo

Para executar o script, basta salvá-lo com a extensão de arquivo .VBS. Em seguida, clique duas vezes no seu ícone na sua área de trabalho com o mouse, como você faria para iniciar qualquer outro programa.