18/01/2002, 06:45
|
| Usuario no validado | | Fecha de Ingreso: enero-2001 Ubicación: Mendoza
Mensajes: 630
Antigüedad: 24 años 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 "REGISTRY.VBS", 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 = "Este archivo de comandos muestra cómo crear y eliminar claves del Registro."
L_Welcome_MsgBox_Title_Text = "Ejemplo de Windows Scripting Host"
Call Welcome()
'*****************************************' *
' * Métodos relacionados con el Registro.
' *
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Crear la clave HKCU\MyRegKey con el valor 'Top level key'"
WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"
WSHShell.Popup "Crear la clave HKCU\MyRegKey\Entry con el valor 'Second level key'"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"
WSHShell.Popup "Establecer el valor HKCU\MyRegKey\Value a REG_SZ 1"
WSHShell.RegWrite "HKCU\MyRegKey\Value", 1
[/QUOTE] Sigue |