problemas con script

Iniciado por DarkXploitz, Marzo 07, 2017, 10:07:09 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Marzo 07, 2017, 10:07:09 PM Ultima modificación: Marzo 08, 2017, 03:24:15 PM por 79137913
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

Código: text
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
No Te Pido Que Pienses Como Yo, Solo Te Pido Que Pienses
Marzo 08, 2017, 03:13:23 PM #1
Modifica en: "HKEY_CURRENT_USER\Control Panel\Desktop"
Código: text

WallpaperStyle = 0
TileWallpaper = 0


Imprimir
Ir Arriba Páginas1
Acciones del Usuario