A maioria dos usuários não percebe, mas a Microsoft instala uma cópia de sua linguagem Visual Basic Script em cada computador Windows. Essa linguagem simples, mas poderosa, possibilita automatizar quase todas as tarefas que um usuário ou administrador precisará executar em um sistema, como alterar o plano de fundo da área de trabalho.
Editor de texto
Criar um script do Visual Basic é fácil:tudo 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 termina em ".TXT", o arquivo deve ser salvo com um nome que termina em ".VBS".
O script
Cole o seguinte em um editor de texto:
escurecer usuário escurecer shell
Set shell =WScript.CreateObject("WScript.Shell") user =shell.ExpandEnvironmentStrings("%USERNAME%")
Set fso =CreateObject("Scripting.FileSystemObject")
windowsDir =fso.GetSpecialFolder(0) wallpaper ="c:\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", papel de parede
shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Altere o arquivo "c:\wallpaper.jpg" para o caminho e nome do arquivo do plano de fundo da área de trabalho que você gostaria de usar.
Como executar
Para executar o script, basta salvá-lo com a extensão de arquivo .VBS. Em seguida, clique duas vezes em seu ícone na área de trabalho com o mouse, como faria para iniciar qualquer outro programa.
