08-oct-2007, 21:30
|
#1 |
|
Marciano
|
como eliminar el mensaje de bienvenida?
Hola:
Como se puede eliminar el mensaje de bienvenida en el xp y el de se esta cerrando? un saludo |
08-oct-2007, 22:33
|
#2 |
|
Editor Marciano
|
Si te atreves, prueba con la siguiente clave del registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\ system\DisableStatusMessages |
08-oct-2007, 23:11
|
#3 |
|
Marciano
|
Hola:
He creado la clave pero solo desaparece el texto windows se está cerrando, lo que yo quiero eliminar son las dos pantallas de bienvenido (pantalla azul con las letras de bienvenida) y la de windows se está cerrando (pantalla azul con el texto de se está cerrando) para que no quede rastro de windows. Un saludo Editado por parametro en 08-oct-2007 a las 23:28. |
09-oct-2007, 00:54
|
#4 |
|
Editor Marciano
|
A ver si de esta acierto:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType Valor: (0 = Modo clásico, 1 = Pantalla de bienvenida) |
11-oct-2007, 00:42
|
#5 |
|
Marciano
|
Hola:
Tambien he probado esa opción y no va. Me he dado cuenta del post de la chincheta y he visto una manual de Runcas que puso en el foro antiguo y lo estoy siguiendo, he llegado a la opcion de modificar los archivos winlogon.exe y logonui.exe pero no se que es lo que hay que modificar para eliminar las pantallas de bienvenida y de cerrando windows, alguna idea? |
11-oct-2007, 01:36
|
#6 |
|
Editor Marciano
|
Lo cierto es que yo no he leído ese manual de Runcas, pero las claves que modifico en el registro con el configurador del loader son, aparte de las antes enunciadas, las siguientes:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AllowMultipleTSSessions HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ForceAutoLogon Aquí te pongo todo el código del configurador que omite esas pantallas: Code:
'opción "Ocultar las pantallas de bienvenida, login y apagado"
If chkAutoLogin.Value = 1 Then
'para distintos valores creamos una clave nueva añadiéndole _Loader al nombre
'de la antigua, y guardamos el valor de la original (-1 si no existiese) para
'restaurar después; y editamos las claves originales con los valores que deseamos
DireccionRegistro = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
If registro.ValueExists(DireccionRegistro, "AllowMultipleTSSessions_Loader") = False Then
longDummy = registro.ReadDWORD(DireccionRegistro, "AllowMultipleTSSessions")
registro.WriteDWORD DireccionRegistro, "AllowMultipleTSSessions_Loader", longDummy
End If
registro.WriteDWORD DireccionRegistro, "AllowMultipleTSSessions", 0
If registro.ValueExists(DireccionRegistro, "AutoAdminLogon_Loader") = False Then
strDummy = registro.ReadString(DireccionRegistro, "AutoAdminLogon", "-1")
registro.WriteString DireccionRegistro, "AutoAdminLogon_Loader", strDummy
End If
registro.WriteString DireccionRegistro, "AutoAdminLogon", "1"
If registro.ValueExists(DireccionRegistro, "DefaultPassword_Loader") = False Then
strDummy = registro.ReadString(DireccionRegistro, "DefaultPassword", "-1")
If strDummy = "" Then
registro.WriteString DireccionRegistro, "DefaultPassword_Loader", Chr(0)
Else
registro.WriteString DireccionRegistro, "DefaultPassword_Loader", strDummy
End If
End If
If registro.ReadString(DireccionRegistro, "DefaultPassword_Loader") = "-1" Then
registro.WriteString DireccionRegistro, "DefaultPassword", Chr(0)
End If
If registro.ValueExists(DireccionRegistro, "ForceAutoLogon_Loader") = False Then
strDummy = registro.ReadString(DireccionRegistro, "ForceAutoLogon", "-1")
registro.WriteString DireccionRegistro, "ForceAutoLogon_Loader", strDummy
End If
registro.WriteString DireccionRegistro, "ForceAutoLogon", "1"
If registro.ValueExists(DireccionRegistro, "LogonType_Loader") = False Then
longDummy = registro.ReadDWORD(DireccionRegistro, "LogonType")
registro.WriteDWORD DireccionRegistro, "LogonType_Loader", longDummy
End If
registro.WriteDWORD DireccionRegistro, "LogonType", 0
DireccionRegistro = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system"
If registro.ValueExists(DireccionRegistro, "DisableStatusMessages_Loader") = False Then
longDummy = registro.ReadDWORD(DireccionRegistro, "DisableStatusMessages")
registro.WriteDWORD DireccionRegistro, "DisableStatusMessages_Loader", longDummy
End If
registro.WriteDWORD DireccionRegistro, "DisableStatusMessages", 1
Cambios = Cambios + 8
End If
|