Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/01/2002, 06:45
Avatar de DanielRey
DanielRey
Usuario no validado
 
Fecha de Ingreso: enero-2001
Ubicación: Mendoza
Mensajes: 630
Antigüedad: 23 años, 3 meses
Puntos: 1
Re: Instalar fondo de escritorio html

Hola 2toros :)

Te voy a dar la punta del ovillo...

En el registro del sistema (editable con el regedit) en "HKEY_CURRENT_USER/Control Panel/Desktop" están todas las propiedades del escritorio.

Copia lo que viene a continuación, pégalo en el bloc de notas y guárdalo bajo el nombre &quot;REGISTRY.VBS&quot;, es un ejemplo de como leer y modificar variables del registro del sistema:<BLOCKQUOTE><font size=1 face=arial>Citando:<hr height=1 noshade>' Archivo de comandos de ejemplo de Windows Script Host
'
' -------------------------------------------' Copyright (C) 1996-1998 Microsoft Corporation
'
' Se le otorga, libre de regalías, el derecho a utilizar, modificar,
' reproducir y distribuir los programas de ejemplo -así como cualquier
' versión modificada- de cualquier forma que encuentre útil, siempre y
' cuando acepte que Microsoft no ofrece garantía, ni acepta obligación o
' responsabilidad alguna por los mencionados programas de ejemplo.
' -------------------------------------------'
' Este ejemplo muestra cómo escribir y borrar entradas del Registro.

L_Welcome_MsgBox_Message_Text = &quot;Este archivo de comandos muestra cómo crear y eliminar claves del Registro.&quot;
L_Welcome_MsgBox_Title_Text = &quot;Ejemplo de Windows Scripting Host&quot;
Call Welcome()

'*****************************************' *
' * Métodos relacionados con el Registro.
' *

Dim WSHShell
Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot;)

WSHShell.Popup &quot;Crear la clave HKCU\MyRegKey con el valor 'Top level key'&quot;
WSHShell.RegWrite &quot;HKCU\MyRegKey\&quot;, &quot;Top level key&quot;

WSHShell.Popup &quot;Crear la clave HKCU\MyRegKey\Entry con el valor 'Second level key'&quot;
WSHShell.RegWrite &quot;HKCU\MyRegKey\Entry\&quot;, &quot;Second level key&quot;

WSHShell.Popup &quot;Establecer el valor HKCU\MyRegKey\Value a REG_SZ 1&quot;
WSHShell.RegWrite &quot;HKCU\MyRegKey\Value&quot;, 1
[/QUOTE] Sigue