Skript pro změnu pozadí pracovní plochy

Textový editor

Vytvoření skript jazyka Visual Basic je snadné: vše, co potřebujete, je jednoduchý textový editor, například program Windows Notepad. Místo uložení souboru s názvem, který končí v ".TXT", musí být soubor uložen s názvem, který končí ".VBS".

Scénář

V textovém editoru vložte následující:

bludný uživatel

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

Nastavte fso = CreateObject ("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0) tapeta = "c: \ wallpaper.jpg"

shell.RegWrite "HKCU \ Ovládací panely \ Desktop \ Wallpaper", tapeta

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

Změňte soubor "c: \ wallpaper.jpg" pomocí cesty a názvu pozadí plochy, které chcete použít.

Jak jej provést

Chcete-li skript spustit, jednoduše jej uložte pomocí přípony souboru .VBS. Potom poklepejte na ikonu na ploše pomocí myši, protože byste spustili jakýkoli jiný program.