![]() |
#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 |
![]() |
#2 |
Editor Marciano
|
Si te atreves, prueba con la siguiente clave del registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\ system\DisableStatusMessages |
![]() |
#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. |
![]() |
#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) |
![]() |
#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? |
![]() |
#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 |