Script כדי לשנות את רקע שולחן העבודה

עורך טקסט

יצירת סקריפט בסיסי של Visual היא קלה: כל מה שאתה צריך הוא עורך טקסט פשוט, כגון Windows Notepad. עם זאת, במקום לשמור את הקובץ עם שם המסתיים ".TXT", הקובץ חייב להישמר עם שם המסתיים ".VBS".

התסריט

הדבק את הטקסט הבא בעורך טקסט:

עמום עמום משתמש עמום

הגדר פגז = WScript.CreateObject ("WScript.Shell") user = shell.ExpandEnvironmentStrings ("% USERNAME%")

Set fso = CreateObject ("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0) תמונות רקע = "c: \ wallpaper.jpg"

shell.RegWrite "HKCU \ לוח הבקרה \ שולחן העבודה \ טפטים", טפט

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

שנה את הקובץ "c: \ wallpaper.jpg" עם הנתיב ושם הקובץ של רקע שולחן העבודה שבו אתה רוצה להשתמש.

כיצד לבצע את זה

כדי לבצע את הסקריפט, פשוט לשמור אותו עם סיומת הקובץ .VBS. לאחר מכן, לחץ פעמיים על הסמל שלה על שולחן העבודה שלך עם העכבר, כמו שאתה רוצה להתחיל כל תוכנית אחרת.