סקריפט לשינוי רקע שולחן העבודה

רוב המשתמשים לא מבינים זאת, אבל מיקרוסופט מתקינה עותק של שפת ה-Visual Basic Script שלהם בכל מחשב Windows. שפה פשוטה אך רבת עוצמה זו מאפשרת להפוך כמעט כל משימה שמשתמש או מנהל יצטרכו לבצע במערכת, כמו שינוי רקע שולחן העבודה.

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

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

מעטפת עמומה משתמש עמום

הגדר מעטפת = WScript. CreateObject("WScript. מעטפת") משתמש = מעטפת. ExpandEnvironmentStrings("%USERNAME%")

הגדר fso = CreateObject("Scripting. FileSystemObject")

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

צדף. כתוב RegWrite "HKCU\Control Panel\Desktop\Wallpaper", טפט

צדף. הפעל את "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

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

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