Masaüstü arka planını değiştirmek için komut dosyası

Metin editörü

Visual Basic Script'i oluşturmak kolaydır: Tek ihtiyacınız olan şey Windows Not Defteri gibi basit bir metin editörüdür. Ancak, dosyayı ".TXT" ile biten bir adla kaydetmek yerine, dosya ".VBS" ile biten bir adla kaydedilmelidir.

Senaryo

Aşağıdakileri bir metin düzenleyicisine yapıştırın:

loş kabuk loş kullanıcı

Set shell = WScript.CreateObject ("WScript.Shell") kullanıcı = shell.ExpandEnvironmentStrings ("% USERNAME%")

Fso = CreateObject öğesini ("Scripting.FileSystemObject") ayarla

windowsDir = fso.GetSpecialFolder (0) duvar kağıdı = "c: \ wallpaper.jpg"

shell.RegWrite "HKCU \ Denetim Masası \ Desktop \ Wallpaper", duvar kağıdı

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

Kullanmak istediğiniz masaüstü arka planının yolu ve dosya adıyla "c: \ wallpaper.jpg" dosyasını değiştirin.

Nasıl yürütülür

Komut dosyasını çalıştırmak için, .VBS dosya uzantısıyla kaydedin. Daha sonra, başka bir programa başlayacağınız gibi, Masaüstünüzdeki simgeyi farenizle çift tıklayın.