Regresar   Foro de marcianitos.org > Emuladores y programas de todo tipo > Sistemas operativos > Windows

 
 
Old 08-oct-2007, 21:30   #1
parametro
Marciano
 
Avatar de parametro
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
   
Old 08-oct-2007, 22:33   #2
PeterPunk
Editor Marciano
Si te atreves, prueba con la siguiente clave del registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\ system\DisableStatusMessages
   
Old 08-oct-2007, 23:11   #3
parametro
Marciano
 
Avatar de parametro
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.
   
Old 09-oct-2007, 00:54   #4
PeterPunk
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)
   
Old 11-oct-2007, 00:42   #5
parametro
Marciano
 
Avatar de parametro
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?
   
Old 11-oct-2007, 01:36   #6
PeterPunk
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