Script pentru a schimba fundalul desktopului

Editor de text

Crearea unui Visual Basic Script este ușor: tot ce aveți nevoie este un editor simplu de text, cum ar fi Windows Notepad. Cu toate acestea, în loc să salvați fișierul cu un nume care se termină cu ".TXT", fișierul trebuie salvat cu un nume care se termină cu ".VBS".

Scenariul

Inserați următoarele într-un editor de text:

dim shell user dim

Setați shell = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Setați fso = CreateObject ("Scripting.FileSystemObject")

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

shell.RegWrite "HKCU \ Panoul de control \ Desktop \ Wallpaper", fundal

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

Schimbați fișierul "c: \ wallpaper.jpg" cu numele căii și a fișierului de fundal de pe desktop pe care doriți să îl utilizați.

Cum se execută

Pentru a executa scriptul, salvați-l cu extensia de fișier .VBS. Apoi, faceți dublu clic pe pictograma sa de pe desktop cu ajutorul mouse-ului, așa cum ați începe orice alt program.