Copy this code in to a text file and save it as "wallpaper.vbs" (Without quotes)
But keep in mind you have to give the path of the image(.jpeg or .bmp) that your going to use as the wallpaper.
In this code the path of the wallpaper is in colored text.
This is the code...........
dim wshShell
dim sUserName
Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "C:\Wallpaper.bmp"
' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' let the system know about the change
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Save this text file as "wallpaper.vbs" and double click it.
If you like my post pls reply.......
But keep in mind you have to give the path of the image(.jpeg or .bmp) that your going to use as the wallpaper.
In this code the path of the wallpaper is in colored text.
This is the code...........
dim wshShell
dim sUserName
Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "C:\Wallpaper.bmp"
' update in registry
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
' let the system know about the change
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Save this text file as "wallpaper.vbs" and double click it.
If you like my post pls reply.......
