برنامج نصي لتغيير خلفية سطح المكتب

لا يدرك معظم المستخدمين ذلك ، لكن Microsoft تقوم بتثبيت نسخة من لغة Visual Basic Script الخاصة بهم على كل كمبيوتر يعمل بنظام Windows. تتيح هذه اللغة البسيطة والفعالة إمكانية أتمتة كل مهمة تقريبًا يحتاجها المستخدم أو المسؤول إلى النظام ، مثل تغيير خلفية سطح المكتب.

يعد إنشاء برنامج Visual Basic Script أمرًا سهلاً: فكل ما تحتاجه هو محرر نصوص بسيط مثل Windows Notepad. ومع ذلك ، بدلاً من حفظ الملف باسم ينتهي بـ "TXT." ، يجب حفظ الملف باسم ينتهي بـ ".VBS."

الصق ما يلي في محرر نصوص:

قاتمة قذيفة مستخدم خافت

تعيين قذيفة = WScript. CreateObject ("WScript. Shell ") user = shell. ExpandEnvironmentStrings ("٪ USERNAME٪")

تعيين fso = CreateObject ("برمجة. FileSystemObject ")

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

صدفة. RegWrite "HKCU \ لوحة التحكم \ سطح المكتب \ ورق الحائط" ، ورق الجدران

صدفة. قم بتشغيل "٪ windowsDir٪ \ System32 \ RUNDLL32.EXE user32.dll، UpdatePerUserSystemParameters"، 1، True

قم بتغيير الملف "c: \ wallpaper.jpg" إلى مسار واسم ملف خلفية سطح المكتب التي ترغب في استخدامها.

لتشغيل البرنامج النصي ، ما عليك سوى حفظه بامتداد الملف VBS. ثم ، انقر نقرًا مزدوجًا فوق الرمز الموجود على سطح المكتب باستخدام الماوس كما تفعل لبدء تشغيل أي برنامج آخر.