Modificar registro (IE)

[xavi]

Palabras clave: modificar, registro
Autor: Buho / Junio 2003
Extraído de: La web del Búho

Objetivo:
Cambiar página de inicio y título de IE.

Este código cambia en el registro de Windows la URL de la página de Inicio así como la Barra de titulo del Explorador MSI de Microsoft..

Código: [Seleccionar]

Function CambiaPaginaInicioExplorador()
'Este código cambia en el registro de Windows
'la URL de la página de Inicio así como la Barra de titulo
'Francisco Javier García Aguado
'Junio de 2003
Dim WSHShell As Object
Dim StrBarra As String, StrPagina As String
Set WSHShell = CreateObject("WScript.Shell")
StrPagina = InputBox("Escribe la URL que quieres que sea Página de Inicio")
StrBarra = InputBox("Escribe un texto para barra de título de Explorer")
WSHShell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", StrPagina
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title", StrBarra
MsgBox "Cambios Realizados " & StrBarra & vbCrLf & "StrPagina de inicio: " & StrPagina, vbExclamation + vbOKOnly, "Ejemplo de WSH"
Set WSHShell = Nothing

End Function