სკრიპტი დესკტოპის ფონის შესაცვლელად

მომხმარებელთა უმრავლესობას ეს არ ესმის, მაგრამ Microsoft-ი აინსტალირებს Visual Basic Script ენის ასლს ყველა Windows კომპიუტერზე. ეს მარტივი, მაგრამ ძლიერი ენა შესაძლებელს ხდის თითქმის ყველა ამოცანის ავტომატიზაციას, რომელიც მომხმარებელს ან ადმინისტრატორს დასჭირდება სისტემაში, როგორიცაა დესკტოპის ფონის შეცვლა.

Visual Basic სკრიპტის შექმნა მარტივია: ყველაფერი რაც თქვენ გჭირდებათ არის მარტივი ტექსტური რედაქტორი, როგორიცაა Windows Notepad. თუმცა, იმის ნაცვლად, რომ შეინახოთ ფაილი სახელით, რომელიც მთავრდება „.TXT“-ით, ფაილი უნდა შეინახოს „.VBS“-ზე დამთავრებული სახელით.

ჩასვით შემდეგი ტექსტის რედაქტორში:

dim shell dim მომხმარებელი

Set shell = WScript. CreateObject ("WScript. ჭურვი") მომხმარებელი = ჭურვი. ExpandEnvironmentStrings ("%USERNAME%")

დააყენეთ fso = CreateObject ("სკრიპტირება. FileSystemObject")

windowsDir = fso. GetSpecialFolder (0) ფონი = "c:\wallpaper.jpg"

ჭურვი. RegWrite "HKCU\Control Panel\Desktop\Wallpaper", ფონი

ჭურვი. გაუშვით "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

შეცვალეთ ფაილი "c:\wallpaper.jpg" დესკტოპის ფონის ბილიკზე და ფაილის სახელზე, რომლის გამოყენებაც გსურთ.

სკრიპტის გასაშვებად, უბრალოდ შეინახეთ ის ფაილის გაფართოებით .VBS. შემდეგ ორჯერ დააწკაპუნეთ მის ხატულაზე თქვენს სამუშაო მაგიდაზე თქვენი მაუსის საშუალებით, როგორც სხვა პროგრამის დასაწყებად.