Skrip untuk mengubah latar belakang desktop

Editor teks

Membuat Naskah Dasar Visual itu mudah: yang Anda butuhkan hanyalah editor teks sederhana, seperti Windows Notepad. Namun, alih-alih menyimpan file dengan nama yang berakhiran ".TXT", file harus disimpan dengan nama yang berakhiran ".VBS".

Skrip

Tempel yang berikut di editor teks:

pengguna dim shell redup

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", wallpaper

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

Ubah file "c: \ wallpaper.jpg" dengan jalur dan nama file latar belakang desktop yang ingin Anda gunakan.

Bagaimana cara melaksanakannya

Untuk menjalankan skrip, cukup simpan dengan ekstensi file .VBS. Kemudian, klik dua kali pada ikonnya di Desktop Anda dengan mouse Anda, karena Anda akan memulai program lain.