Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWallPaper = "C:\wallpaper.bmp"
' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' let the system know about the change
oShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"
Wednesday, April 01, 2009
How to Change Windows Desktop Wallpaper Programmatically?
The below is a little VBScript code snippet to perform changing of Windows desktop wallpaper programmatically.
Subscribe to:
Post Comments (Atom)
Popular Posts
-
Google url shortener service, goo.gl , is now much improved with newly included features like easier copy and paste, and ability to delete e...
-
I would like to apologize that sigining of my guestbook is not possible at the moment due to an unexpected bug. There is already 74 entries ...
-
The Google Adsense made a blog post with a video to help us understand the concept behind eCPM (Effective Cost Per Thousand Impressions). ...
-
An efficient method to find out the total record counts of all tables in an Oracle database. select table_name, to_number(extractvalue(xm...
-
*********** Try to sleep now, close your eyes Soon the birds would stop singing Twinkling stars, are shining bright They'll be watch...
No comments:
Post a Comment
Do provide your constructive comment. I appreciate that.