Skrypt zmieniający tło pulpitu

Edytor tekstu

Tworzenie skryptu Visual Basic jest proste: wystarczy prosty edytor tekstu, taki jak Notatnik systemu Windows. Jednak zamiast zapisywać plik o nazwie kończącej się na ".TXT", plik musi zostać zapisany z nazwą kończącą się na ".VBS".

Skrypt

Wklej następujące elementy w edytorze tekstu:

dim dim user dim

Ustaw powłokę = 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", tapeta

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

Zmień plik "c: \ tapeta.jpg" na ścieżkę i nazwę pliku tła pulpitu, którego chcesz użyć.

Jak to zrobić

Aby uruchomić skrypt, po prostu zapisz go z rozszerzeniem .VBS. Następnie kliknij dwukrotnie jego ikonę na pulpicie za pomocą myszy, tak jak chciałbyś rozpocząć każdy inny program.