hola tenia tiempo fuera del tema hack y e regresado retomando un antiguo proyecto el cual etre muchas cosas incluya el cambio automatizado del fondo de pantaalla con un .vbs per estoy un poco oxidado este es el codigo que uso que funciona a la perfeccion
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("C:\wallpaper.jpg")
MyFile.Copy ("C:\wallpaper.jpg")
Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
ConvertedWallpaper = "C:\wallpaper.jpg"
Wallpaper = "C:\wallpaper.jpg"
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", Wallpaper
WshShell.RegWrite "HKCU\Control Panel\Desktop\ConvertedWallpaper", ConvertedWallpaper
WshShell.Run "C:\WINDOWS\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False
Set WshShell = Nothing
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
al ejecutarlo si me cambia el fondo pero el fondo me sale en expandido y necesito que me salga en centrado porque se me distorciona la imagen que linea le debo agregar para que me salga centrado y no expandido gracias en lo que me puedan ayudar
Modifica en: "HKEY_CURRENT_USER\Control Panel\Desktop"
WallpaperStyle = 0
TileWallpaper = 0