สคริปต์เพื่อเปลี่ยนพื้นหลังเดสก์ท็อป

ผู้ใช้ส่วนใหญ่ไม่ทราบ แต่ Microsoft ติดตั้งสำเนาภาษาสคริปต์ Visual Basic บนคอมพิวเตอร์ Windows ทุกเครื่อง ภาษาที่เรียบง่ายแต่ทรงพลังนี้ทำให้การทำงานอัตโนมัติเกือบทุกอย่างที่ผู้ใช้หรือผู้ดูแลระบบต้องทำบนระบบ เช่น เปลี่ยนพื้นหลังเดสก์ท็อป

การสร้างสคริปต์ Visual Basic นั้นง่ายมาก เพียงคุณมีโปรแกรมแก้ไขข้อความอย่างง่าย เช่น Windows Notepad อย่างไรก็ตาม แทนที่จะบันทึกไฟล์ด้วยชื่อที่ลงท้ายด้วย ".TXT" ไฟล์จะต้องถูกบันทึกด้วยชื่อที่ลงท้ายด้วย ".VBS"

วางสิ่งต่อไปนี้ในโปรแกรมแก้ไขข้อความ:

ผู้ใช้สลัวเชลล์

ตั้งค่าเชลล์ = WScript CreateObject("WScript. เชลล์") ผู้ใช้ = เชลล์ ExpandEnvironmentStrings("%USERNAME%")

ตั้งค่า fso = CreateObject("Scripting. 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 จากนั้นดับเบิลคลิกที่ไอคอนบนเดสก์ท็อปของคุณด้วยเมาส์เหมือนกับที่คุณทำเพื่อเริ่มโปรแกรมอื่น