Últimos Temas de: okik

Mostrar Temas
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12

Programación / .NET (C#, VB.NET, ASP) / Cambiar vistas de iconos del escritorio en Windows

en: 3 Octubre 2016, 16:06 pm

Ayer estuve repasando mis códigos y encontré uno viejo que tenía de ejemplo para enviar mensajes a una ventana y lo he pasado a NET. Consiste en cambiar las vistas a de los iconos del escritorio, quitar las etiquetas y ocultar.

Código:

     
Iconos Muy Grandes
Iconos Grandes
Iconos Medianos
Iconos Pequeños
Lista
Detalle
Mosaico
Contenido

Si eres de es@s que les gusta llenar el escritorio de iconos esto te vendrá de lujo, porque puedes ponerlo en modo Lista o detalle, permitiendo una forma ordenada y reduciendo notablemente el espacio y tamaño de los iconos. Esto es posible porque el lugar donde se encuentran los iconos del escritorio es en realidad el equivalente a un ListView cuyo nombre de clase es SHELLDLL_DefView.

El 'snippet' que permite esta acción es el siguiente:

Código

''' <summary>
''' Clase NativeMethods
''' </summary>
''' <remarks></remarks>
<System.Security.SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Inherits Attribute
    Private Sub New()
    End Sub
    ''' <summary>
    ''' Función que devuelve el identificador de una ventana
    ''' </summary>
    ''' <param name="lpClassName">Nombre de la clase de la ventana</param>
    ''' <param name="lpWindowName">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowA", SetLastError:=True)> _
    Private Shared Function FindWindow(
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpClassName As String,
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpWindowName As String) As IntPtr
    End Function
 
    ''' <summary>
    ''' Recupera un identificador a una ventana cuyo nombre de clase 
    ''' y nombre de la ventana que coincida con las cadenas especificadas. 
    ''' La función busca en ventanas secundarias, comenzando por la raíz de la 
    ''' ventana secundaria especificada. Esta función no realiza una búsqueda 
    ''' entre mayúsculas y minúsculas.
    ''' </summary>
    ''' <param name="hWnd1">Un identificador de la ventana padre cuyo hijo son ventanas que se debe buscar</param>
    ''' <param name="hWnd2">Un identificador de una ventana secundaria</param>
    ''' <param name="lpsz1">El nombre de la clase o un átomo de clase creada por una llamada previa a la RegisterClass o RegisterClassEx función</param>
    ''' <param name="lpsz2">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowExA", SetLastError:=True)> _
    Private Shared Function FindWindowEx(
                                        ByVal hWnd1 As IntPtr,
                                        ByVal hWnd2 As IntPtr,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz1 As String,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz2 As String) As IntPtr
 
    End Function
    ''' <summary>
    ''' Envía el mensaje especificado a una ventana o ventanas. 
    ''' La función SendMessagellama al procedimiento de ventana de la ventana especificada 
    ''' y no vuelve hasta que el procedimiento de la ventana ha procesado el mensaje.
    ''' </summary>
    ''' <param name="hwnd">Un identificador de la ventana</param>
    ''' <param name="wMsg">El mensaje que se enviará.</param>
    ''' <param name="wParam">Información adicional-mensaje específico.</param>
    ''' <param name="lParam">Información adicional-mensaje específico.</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="SendMessageA", SetLastError:=True)> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr,
                                        ByVal wMsg As Integer,
                                        ByVal wParam As Integer,
                                        lParam As Integer) As Boolean
    End Function
 
    Private Const WM_COMMAND = &H111
    ''' <summary>
    ''' Valores wParam para SendMessage que cambia el estilo de visualización 
    ''' del escritorio
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum viewOptIcon As Integer
        vIconosMuyGrandes = &H704D
        vIconosGrandes = &H704F
        vIconosMedianos = &H704E
        vIconosPequeños = &H7050
        vLista = &H7051
        vDetalle = &H704B
        vContenido = &H7052
        vMosaico = &H704C
        vOcultarIconos = &H7073 '(no bloquea el escritorio)
        vQuitarEtiquetas = &H7037
    End Enum
 
    ''' <summary>
    ''' Cambia el estilo de visualización de los iconos del escritorio [by @Okik]
    ''' </summary>
    ''' <param name="intValueView">Valor wParam para SendMessage</param>
    ''' <remarks></remarks>
    Public Shared Sub ViewModeIconDesktop(ByVal intValueView As viewOptIcon)
        Dim hProgMan As IntPtr = FindWindow("Progman", "Program Manager")
        Dim hDefView As IntPtr = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString)
        SendMessage(hDefView, WM_COMMAND, intValueView, &H0)
    End Sub
 
End Class

Para usarlo se realiza de la forma siguiente:

Código

NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vLista)

Aquí dejo un código completo de ejemplo para cambiar todas las vistas:

Código

Imports System.Runtime.InteropServices
 
Public NotInheritable Class Form1 : Inherits Form
    Friend rdButton(7) As RadioButton
    Friend chkBox(1) As CheckBox
    Sub New()
 
        ' Llamada necesaria para el diseñador.
        InitializeComponent()
 
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Dim N As Integer = 10
        For Index As Integer = 0 To 7
            rdButton(Index) = New RadioButton With {.AutoSize = True, .Location = New Point(10, N)}
            N = N + 20
            AddHandler rdButton(Index).Click, AddressOf rdButton_Click
        Next Index
        rdButton(0).Text = "Iconos Muy Grandes"
        rdButton(1).Text = "Iconos Grandes"
        rdButton(2).Text = "Iconos Medianos"
        rdButton(3).Text = "Iconos Pequeños"
        rdButton(4).Text = "Lista"
        rdButton(5).Text = "Detalle"
        rdButton(6).Text = "Mosaico"
        rdButton(7).Text = "Contenido"
        rdButton(3).Checked = True
 
        chkBox(0) = New CheckBox With {
            .Location = New Point(10, rdButton(7).Top + 30), .AutoSize = True,
            .Text = "Ocultar/Mostrar Etiquetas (Solo en modo Icono y Detalle)"
        }
        chkBox(1) = New CheckBox With {
            .Location = New Point(10, chkBox(0).Top + 25), .AutoSize = True,
            .Text = "Ocultar/Mostrar Iconos"
        }
        For Index As Integer = 0 To 1
            AddHandler chkBox(Index).CheckedChanged, AddressOf chkBox_CheckedChanged
        Next
 
 
    End Sub
    Private Sub chkBox_CheckedChanged(sender As Object, e As EventArgs)
        Dim Index As Integer = Array.IndexOf(chkBox, sender)
        Select Case Index
            Case 0
                If chkBox(1).Checked = True Then
                    NativeMethods.ViewModeIconDesktop(NativeMethods.viewOptIcon.vQuitarEtiquetas)
                Else
                    NativeMethods.ViewModeIconDesktop(NativeMethods.viewOptIcon.vQuitarEtiquetas)
                End If
 
            Case 1
                If chkBox(0).Checked = True Then
                    NativeMethods.ViewModeIconDesktop(NativeMethods.viewOptIcon.vOcultarIconos)
                Else
                    NativeMethods.ViewModeIconDesktop(NativeMethods.viewOptIcon.vOcultarIconos)
                End If
        End Select
 
 
        'NOTA:
        'Ten en cuenta que esta aplicación no tiene medio para saber, al iniciarse, si el escritorio tiene 
        'los iconos ocultos o no, o sin etiquetas, para establecer el valor verdadero o falso de 
        'los objetos CheckBox
    End Sub
    Private Sub rdButton_Click(sender As Object, e As EventArgs)
        Dim Index As Integer = Array.IndexOf(rdButton, sender)
        Select Case Index
            Case 0 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vIconosMuyGrandes)
            Case 1 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vIconosGrandes)
            Case 2 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vIconosMedianos)
            Case 3 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vIconosPequeños)
            Case 4 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vLista)
            Case 5 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vDetalle)
            Case 6 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vContenido)
            Case 7 : NativeMethods.ViewModeIconDesktop(intValueView:=NativeMethods.viewOptIcon.vMosaico)
 
        End Select
 
 
 
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Index As Integer = 0 To 7
            Me.Controls.Add(Me.rdButton(Index))
        Next
        For Index As Integer = 0 To 1
            Me.Controls.Add(Me.chkBox(Index))
        Next
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs)
 
    End Sub
End Class
''' <summary>
''' Clase NativeMethods
''' </summary>
''' <remarks></remarks>
<System.Security.SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Inherits Attribute
    Private Sub New()
    End Sub
    ''' <summary>
    ''' Función que devuelve el identificador de una ventana
    ''' </summary>
    ''' <param name="lpClassName">Nombre de la clase de la ventana</param>
    ''' <param name="lpWindowName">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowA", SetLastError:=True)> _
    Private Shared Function FindWindow(
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpClassName As String,
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpWindowName As String) As IntPtr
    End Function
 
    ''' <summary>
    ''' Recupera un identificador a una ventana cuyo nombre de clase 
    ''' y nombre de la ventana que coincida con las cadenas especificadas. 
    ''' La función busca en ventanas secundarias, comenzando por la raíz de la 
    ''' ventana secundaria especificada. Esta función no realiza una búsqueda 
    ''' entre mayúsculas y minúsculas.
    ''' </summary>
    ''' <param name="hWnd1">Un identificador de la ventana padre cuyo hijo son ventanas que se debe buscar</param>
    ''' <param name="hWnd2">Un identificador de una ventana secundaria</param>
    ''' <param name="lpsz1">El nombre de la clase o un átomo de clase creada por una llamada previa a la RegisterClass o RegisterClassEx función</param>
    ''' <param name="lpsz2">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowExA", SetLastError:=True)> _
    Private Shared Function FindWindowEx(
                                        ByVal hWnd1 As IntPtr,
                                        ByVal hWnd2 As IntPtr,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz1 As String,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz2 As String) As IntPtr
 
    End Function
    ''' <summary>
    ''' Envía el mensaje especificado a una ventana o ventanas. 
    ''' La función SendMessagellama al procedimiento de ventana de la ventana especificada 
    ''' y no vuelve hasta que el procedimiento de la ventana ha procesado el mensaje.
    ''' </summary>
    ''' <param name="hwnd">Un identificador de la ventana</param>
    ''' <param name="wMsg">El mensaje que se enviará.</param>
    ''' <param name="wParam">Información adicional-mensaje específico.</param>
    ''' <param name="lParam">Información adicional-mensaje específico.</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="SendMessageA", SetLastError:=True)> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr,
                                        ByVal wMsg As Integer,
                                        ByVal wParam As Integer,
                                        lParam As Integer) As Boolean
    End Function
 
    Private Const WM_COMMAND = &H111
    ''' <summary>
    ''' Valores wParam para SendMessage que cambia el estilo de visualización 
    ''' del escritorio
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum viewOptIcon As Integer
        vIconosMuyGrandes = &H704D
        vIconosGrandes = &H704F
        vIconosMedianos = &H704E
        vIconosPequeños = &H7050
        vLista = &H7051
        vDetalle = &H704B
        vContenido = &H7052
        vMosaico = &H704C
        vOcultarIconos = &H7073 '(no bloquea el escritorio)
        vQuitarEtiquetas = &H7037
    End Enum
 
    ''' <summary>
    ''' Cambia el estilo de visualización de los iconos del escritorio [by @Okik]
    ''' </summary>
    ''' <param name="intValueView">Valor wParam para SendMessage</param>
    ''' <remarks></remarks>
    Public Shared Sub ViewModeIconDesktop(ByVal intValueView As viewOptIcon)
        Dim hProgMan As IntPtr = FindWindow("Progman", "Program Manager")
        Dim hDefView As IntPtr = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString)
        SendMessage(hDefView, WM_COMMAND, intValueView, &H0)
    End Sub
 
End Class

se me olvidaba, tiene un pero y es que si se deja en modo Lista en un principio la lista se ve en modo vertical, pero al reiniciar o cerrar sesión, la lista se extiende horizontalmente, y claro ya no queda bien. La manera de volver a conseguir la lista vertical es cambiar a modo icono, cerrar sesión y volver a establecer modo lista.

No se si alguien sabrá porque ocurre esto y si hay forma de solventarlo.

chau

Como el estado de modo detalle no se ve alterado al reiniciar o cerrar sesión de windows, se me ha ocurrido ocultar/mostrar la ~~barra~~ cabecera de columnas a mi antojo, de la siguiente manera:

Código

   ''' <summary>
    ''' Oculta la cabecera del modo 'Detalle' del escritorio
    ''' </summary>
    ''' <param name="sH32State">Valor ncmdShow para ShowWindow// True=Hide, False=Normal </param>
    ''' <remarks></remarks>
    Public Shared Sub HideHeaderListView(ByVal sH32State As Boolean)
        Dim hProgMan As IntPtr = FindWindow("Progman", "Program Manager")
        Dim hDefView As IntPtr = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString)
        Dim hSysListView32 As IntPtr = FindWindowEx(hDefView, IntPtr.Zero, "SysListView32", vbNullString)
        Dim hSysHeader32 As IntPtr = FindWindowEx(hSysListView32, IntPtr.Zero, "SysHeader32", vbNullString)
        ShowWindow(hSysHeader32, Convert.ToInt32(sH32State))
    End Sub

para ocultar se llamaría así

Código

HideHeaderListView(True)

hoy he cambiado HideColumnListView por HideHeaderListView para evitar confusión. Ya que en realidad oculta la cabecera no la columna.

chau

6 Octubre 2016, 17:50

WorkerW
Hoy he ejecutado el código en otro ordenador con W764bits, y se me ha planteado un problema y es que este ordenador tiene el objeto Listview de nombre de clase SHELLDLL_DefView en WorkerW, y Progman no tiene ventanas "hijo". Como resultado el snippet no funciona

Resulta que hay más de una ventana con nombre de clase WorkerW. Me he tirado un buen rato intentado encontrar la manera de encontrar el correcto.

En realidad es simple vas rastreando en un bucle todos las ventanas hasta que des con una con hijo que tenga nombre de clase SHELLDLL_DefView.

Código

  ''' <summary>
    ''' Obtiene el identificador de WorkerW del escritorio
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetHWorkerW() As IntPtr
        Dim ClassNameChild As New System.Text.StringBuilder(255)
        Dim hWorkerW As IntPtr
        Dim hwnd As IntPtr = FindWindow(Nothing, Nothing)
        Do While Not ClassNameChild.ToString.Equals("SHELLDLL_DefView")
            hwnd = GetNextWindow(hwnd, GW_Const.GW_HWNDNEXT)
            hWorkerW = GetWindow(hwnd, GW_Const.GW_CHILD)
            GetClassName(hWorkerW, ClassNameChild, 260)
        Loop
        Return hwnd
    End Function
    '//Otra forma de obtener el handle de WorkerW
    ' ''' <summary>
    ' ''' Obtiene el identificador de WorkerW del escritorio
    ' ''' </summary>
    ' ''' <returns></returns>
    ' ''' <remarks></remarks>
    'Public Shared Function GetHWorkerW() As IntPtr
    '    Dim ClassNameChild As New System.Text.StringBuilder(255)
    '    Dim hWorkerW As IntPtr
    '    Dim hwnd As IntPtr = FindWindow("Progman", Nothing)
    '    Do While Not ClassNameChild.ToString.Equals("SHELLDLL_DefView")
    '        hwnd = GetWindow(hwnd, GW_Const.GW_HWNDPREV)
    '        hWorkerW = GetWindow(hwnd, GW_Const.GW_CHILD)
    '        GetClassName(hWorkerW, ClassNameChild, 260)
    '    Loop
    '    Return hwnd
    'End Function

Modificando el código quedaría así .

Código

''' <summary>
''' Clase NativeMethods
''' </summary>
''' <remarks></remarks>
<System.Security.SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Inherits Attribute
    Private Sub New()
    End Sub
    ''' <summary>
    ''' Función que devuelve el identificador de una ventana
    ''' </summary>
    ''' <param name="lpClassName">Nombre de la clase de la ventana</param>
    ''' <param name="lpWindowName">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowA", SetLastError:=True)> _
    Private Shared Function FindWindow(
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpClassName As String,
                                      <MarshalAs(UnmanagedType.LPStr)> ByVal lpWindowName As String) As IntPtr
    End Function
 
    ''' <summary>
    ''' Recupera un identificador a una ventana cuyo nombre de clase 
    ''' y nombre de la ventana que coincida con las cadenas especificadas. 
    ''' La función busca en ventanas secundarias, comenzando por la raíz de la 
    ''' ventana secundaria especificada. Esta función no realiza una búsqueda 
    ''' entre mayúsculas y minúsculas.
    ''' </summary>
    ''' <param name="hWnd1">Un identificador de la ventana padre cuyo hijo son ventanas que se debe buscar</param>
    ''' <param name="hWnd2">Un identificador de una ventana secundaria</param>
    ''' <param name="lpsz1">El nombre de la clase o un átomo de clase creada por una llamada previa a la RegisterClass o RegisterClassEx función</param>
    ''' <param name="lpsz2">El nombre de la ventana (el título de la ventana)</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="FindWindowExA", SetLastError:=True)> _
    Private Shared Function FindWindowEx(
                                        ByVal hWnd1 As IntPtr,
                                        ByVal hWnd2 As IntPtr,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz1 As String,
                                        <MarshalAs(UnmanagedType.LPStr)> ByVal lpsz2 As String) As IntPtr
 
    End Function
    ''' <summary>
    ''' Envía el mensaje especificado a una ventana o ventanas. 
    ''' La función SendMessagellama al procedimiento de ventana de la ventana especificada 
    ''' y no vuelve hasta que el procedimiento de la ventana ha procesado el mensaje.
    ''' </summary>
    ''' <param name="hwnd">Un identificador de la ventana</param>
    ''' <param name="wMsg">El mensaje que se enviará.</param>
    ''' <param name="wParam">Información adicional-mensaje específico.</param>
    ''' <param name="lParam">Información adicional-mensaje específico.</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <DllImport("user32", EntryPoint:="SendMessageA", SetLastError:=True)> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr,
                                        ByVal wMsg As Integer,
                                        ByVal wParam As Integer,
                                        lParam As Integer) As Boolean
    End Function
 
    <DllImport("user32.dll")> _
    Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function
 
    Private Const WM_COMMAND = &H111
    ''' <summary>
    ''' Valores wParam para SendMessage que cambia el estilo de visualización 
    ''' del escritorio
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum viewOptIcon As Integer
        vIconosMuyGrandes = &H704D
        vIconosGrandes = &H704F
        vIconosMedianos = &H704E
        vIconosPequeños = &H7050
        vLista = &H7051
        vDetalle = &H704B
        vContenido = &H7052
        vMosaico = &H704C
        vOcultarIconos = &H7073 '(no bloquea el escritorio)
        vQuitarEtiquetas = &H7037
    End Enum
    Public Const GW_HWNDNEXT = 2
 
    <DllImport("user32", EntryPoint:="GetWindow", SetLastError:=True)> _
    Public Shared Function GetNextWindow(ByVal hwnd As IntPtr, ByVal wFlag As Integer) As IntPtr
    End Function
    <DllImport("user32", SetLastError:=True)> _
    Private Shared Function GetWindow(ByVal hwnd As IntPtr, ByVal wCmd As Integer) As IntPtr
    End Function
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function GetClassName(ByVal hWnd As System.IntPtr, _
   ByVal lpClassName As System.Text.StringBuilder, _
   ByVal nMaxCount As Integer) As Integer
    End Function
 
    Public Enum GW_Const
        GW_CHILD = 5
        GW_HWNDFIRST = 0
        GW_HWNDLAST = 1
        GW_HWNDNEXT = 2
        GW_HWNDPREV = 3
        GW_MAX = 5
        GW_OWNER = 4
    End Enum
    ''' <summary>
    ''' Cambia el estilo de visualización de los iconos del escritorio [by @Okik]
    ''' </summary>
    ''' <param name="intValueView">Valor wParam para SendMessage</param>
    ''' <remarks></remarks>
    Public Shared Sub ViewModeIconDesktop(ByVal intValueView As viewOptIcon)
        Dim hProgMan As IntPtr = FindWindow("Progman", "Program Manager")
        Dim hDefView As IntPtr = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", Nothing)
 
        If hDefView = IntPtr.Zero Then
            Dim hWorkerW As IntPtr = GetHWorkerW()
            hDefView = FindWindowEx(hWorkerW, IntPtr.Zero, "SHELLDLL_DefView", Nothing)
        End If
        SendMessage(hDefView, WM_COMMAND, intValueView, &H0)
    End Sub
 
    ''' <summary>
    ''' Oculta las cabeceras de modo 'detalle' del escritorio
    ''' </summary>
    ''' <param name="sH32State">Valor ncmdShow para ShowWindow// True=Hide, False=Normal </param>
    ''' <remarks></remarks>
    Public Shared Sub HideHeaderListView(ByVal sH32State As Boolean)
        Dim hProgMan As IntPtr = FindWindow("Progman", "Program Manager")
        Dim hDefView As IntPtr = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", Nothing)
        If hDefView = IntPtr.Zero Then
            Dim hWorkerW As IntPtr = GetHWorkerW()
            hDefView = FindWindowEx(hWorkerW, IntPtr.Zero, "SHELLDLL_DefView", Nothing)
        End If
        Dim hSysListView32 As IntPtr = FindWindowEx(hDefView, IntPtr.Zero, "SysListView32", Nothing)
        Dim hSysHeader32 As IntPtr = FindWindowEx(hSysListView32, IntPtr.Zero, "SysHeader32", Nothing)
        ShowWindow(hSysHeader32, Convert.ToInt32(sH32State))
    End Sub
 
    ''' <summary>
    ''' Obtiene el identificador de WorkerW del escritorio
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetHWorkerW() As IntPtr
        Dim ClassNameChild As New System.Text.StringBuilder(255)
        Dim hWorkerW As IntPtr
        Dim hwnd As IntPtr = FindWindow(Nothing, Nothing)
        Do While Not ClassNameChild.ToString.Equals("SHELLDLL_DefView")
            hwnd = GetNextWindow(hwnd, GW_Const.GW_HWNDNEXT)
            hWorkerW = GetWindow(hwnd, GW_Const.GW_CHILD)
             GetClassName(hWorkerW, ClassNameChild, 260)
        Loop
        Return hwnd
    End Function
    '//Otra forma de obtener el handle de WorkerW
    ' ''' <summary>
    ' ''' Obtiene el identificador de WorkerW del escritorio
    ' ''' </summary>
    ' ''' <returns></returns>
    ' ''' <remarks></remarks>
    'Public Shared Function GetHWorkerW() As IntPtr
    '    Dim ClassNameChild As New System.Text.StringBuilder(255)
    '    Dim hWorkerW As IntPtr
    '    Dim hwnd As IntPtr = FindWindow("Progman", Nothing)
    '    Do While Not ClassNameChild.ToString.Equals("SHELLDLL_DefView")
    '        hwnd = GetWindow(hwnd, GW_Const.GW_HWNDPREV)
    '        hWorkerW = GetWindow(hwnd, GW_Const.GW_CHILD)
    '        GetClassName(hWorkerW, ClassNameChild, 260)
    '    Loop
    '    Return hwnd
    'End Function
End Class

En GetHWorkerW podría devolver directamente el handle de 'SHELLDLL_DefView' y ahorrarme alguna línea. Pero lo dejo así.

52	Programación / .NET (C#, VB.NET, ASP) / VS2012, ActiveX SQL de VB6 y error APPCRASH ntdll.dll Exception Code: c0000005	en: 26 Septiembre 2016, 11:44 am
Hola. Ayer la lié parda añadiendo referencias a VB6, con motivo a una respuesta a otro usuario de este foro. Estuve añadiendo referencias ActiveX para probar códigos relacionados con bases de datos y SQL. A partir de entonces me surge este problema navegando con IE (uso 3 navegadores) y con Visual Studio 2012 En IE me surgía este error: Código: APPCRASH ntdll.dll Exception Code: c0000005 y las referencias que añadí en VB6 fueron estas: Código: Microsoft ActiveX Data Object (Multi-dimensional) Microsoft ActiveX Data Object 2.0/2.1/2.5/2.6/2.8/6.0 Microsoft Active Server Pages Objext Library Microsoft ADO Ext. 2.8 for DDL and Security Microsoft DAO 2.5/3.51 Compatibility Library Microsoft DAO 3.6 Object Library Microsoft SQL Parser Object Library 1.0 Microsoft SQL Server Compact Control Microsoft SQL Server Compact Edition Control VS también me daba APPCRASH, y tras iniciar varias veces, tras varios errores, arrancó pero no podía iniciar proyecto de ningún tipo. Solucioné el problema restaurando el sistema de Windows a un punto anterior. Vamos, no me compliqué la vida. Pero me queda la duda de que es lo que ha ocurrido. Según parece tiene algo que ver con el SQL.

53	Sistemas Operativos / Windows / Limpiar Windows manualmente	en: 22 Septiembre 2016, 15:35 pm
////Eliminar un programa manualmente/////: (porque de forma predeterminada no puedes, es decir desde AGREGAR Y QUITAR PROGRAMAS o desde el desinstalador del programa) Tecla Windows + R, escribe REGEDIT.EXE y pulsa ENTER Dirígete a la clave: Código: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall Aquí se encuentran una serie de claves que hacen referencia a programas instalados de 32bits en sistemas de 32bits, y 64bits en sistemas de 64bits Los programas de 32bits en sistemas de 64bits están en: Código: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ Por ejemplo si no puedes eliminar Firefox de 32bits, seleccionas la clave Uninstall, Selecciona en el menú Edición, la opción BUSCAR, desmarca "Claves" y "Valores" y deja marcado Datos y pones "Mozilla". Entonces REGEDIT buscará a partir de Uninstall, claves que contengan datos con valor "Mozilla". Debería encontrar una similar a esta, según versión: Código: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Firefox 43.0.1 (x86 es-ES) Para comprobar que el programa que queremos eliminar es el correcto pones, comprueba el valor InstallLocation que muestra el directorio donde está instalado el programa. En el caso de Mozilla Firefox debería poner: Código: C:\Program Files (x86)\Mozilla Firefox (en sistemas de 64bits con Firefox de 32bits) Código: C:\Program Files\Mozilla Firefox (En sistemas de 32bits) o también: Código: C:\Archivos de Programa\Mozilla Firefox Para asegurarte más aún comprueba el valor DisplayName, muestra el nombre de la aplicación que aparece en la lista del desinstalador de programas de Windows. Una vez estás seguro que la clave es del programa que quieres eliminar, borras la clave (por si acaso puedes exportarla a un archivo reg para poder recuperarla) y cuando abras el desinstalador de Windows, ya no aparecerá en la lista. Ten en cuenta que hay programas que crean varias claves. Por ejemplo Nero, crea claves para cada uno de sus componentes; Nero Vision, Nero Recode, Nero ShowTime, etc. Igualmente ocurre con Adobe Photoshop, por ejemplo. Los programas suelen crear claves de consulta de datos o registro en el registro de Windows. Suelen estar en: Código: HKEY_CURRENT_USER\Software HKEY_LOCAL_MACHINE\SOFTWARE Código: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node (programas de 32bits en sistemas de 64bits) Por ejemplo Mozilla Firefox crea esta clave: Código: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Mozilla Se pueden borrar, sin problemas, pero recuerda que es recomendable exportar las claves antes de borrar si no se estás seguro, para restaurarlas en caso de error. Los programas suelen crear otras claves por todo el registro, pero no siempre sabemos cuales son o si el borrarlas pueden generar problemas al sistema o no. Por ello solo muestro la clave anterior. Pero el hecho que borres las claves y no aparezca el programa en el desinstalador de programas de Windows no significa que el programa esté desinstalado, completamente. Falta borrar los archivos que suelen estar en: Código: C:\Program Files\ C:\Program Files (x86)\ Por ejemplo Mozilla Firefox (32bits) en un sistama de 64bits estaría en: Código: C:\Program Files (x86)\Mozilla Firefox Esta carpeta se borra y ya tendrías el programa desinstalado. Sin embargo los programas pueden crear archivos de dependencia y carpetas en otros directorios como [\system32], [\Common Files], [C:\Users\Usuario\AppData\Roaming], [C:\Users\USUARIO\AppData\Local], [C:\ProgramData]. Por ejemplo Mozilla Firefox crea: Código: C:\Users\USUARIO\AppData\Roaming\Mozilla C:\Users\USUARIO\AppData\Local\Mozilla Así que si quieres hacer una desinstalación total debes eliminar también estos archivos y carpetas de dependencia, siempre y cuando esté seguro que pertenezcan con seguridad al programa que quieres eliminar o bien no sean compartidos por otro programa que los pueda necesitar. Una forma de saber que archivos y carpetas ha creado un programa es ver el archivo Código: install.log , que normalmente se encuentra en la carpeta donde está instalado el programa junto al programa de desinstalación. Este archivo muestra una lista de los archivos, carpetas y algunas claves de registro creados por el programa. Si no lo encuentras haces clic con el botón derecho sobre el acceso directo del Uninstall para ver el directorio donde se encuentra y ahí debería estar el install.log Desgraciadamente no todos los programas tienen un Código: install.log legible con el notepad, algunos usan un formato de archivos DAT u otro tipo y otro nombre. Y otros ni siquiera lo tienen. [////Limpiar archivos temporales/////] Tecla Windows + R, escribes Código: %windir%\system32\cleanmgr.exe y pulsas ENTER Esto inicia el liberador de espacio en disco de Windows. Selecciona el directorio C: Click en Limpiar archivos del sistema y marcas: [v]Archivos temporales de internet [v]Archivos de registro de instalación [v]Papelera de reciclaje [v]Archivos temporales [V]Miniaturas Si deseas eliminar las instantáneas de restauración: Clic en 'LImpiar archivos del sistema' Selecciona 'Más opciones' En 'Restaurar sistema e instantáneas' pulsa 'Liberar' Para limpiar la carpeta Temp: Muchos programas, generan o crean multitud de archivos temporales. Hay programas de instalación empaquetados que se desempaquetan en la carpeta temporal y ejecutan la isntalación, instalan el programa pero dejan toda la basura de instalación allí. Hay incluso Updates automáticos que generan archivos gigantescos allí, que a veces quedan corruptos o a medias y ocupan un buen cacho de disco. Por eso es recomendable de vez en cuando limpiar la carpeta temporal. -Abre notepad y pones esto: Código: FOR /D %%p IN (%temp%.) DO rmdir "%%p" /s /q del /q %temp%\. md "%Temp%" --Guarda como LimpiarCarpetaTemp.cmd ---Ejecuta LimpiarCarpetaTemp.cmd (Recomiendo cerrar todos los programas antes de limpiar la carpeta temporal)

Programación / .NET (C#, VB.NET, ASP) / Problema ocultando Form1 y liberando sus controles

en: 22 Septiembre 2016, 12:06 pm

Hace tiempo que no entro aquí XD

Pero este es un problema difícil de buscar. No se ni que poner en google.

Es muy simple, cargo un formulario principal A, con X controles. Luego oculto A y libero sus controles al cargar el formulario B. Al cerrar B, se liberan los controles y eventos de B y se vuelve a mostrar el formulario A y recarga sus controles y eventos. Pero tras esto el formulario A no se cierra. Lo podría solucionar simplemente usando End. Pero no es elegante, está claro que no aplico bien el método.

Formulario 1

Código

Public NotInheritable Class frmMain
    Inherits Form
    Friend MyButton1 As Button
 
    Public Sub New()
 
        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        Me.MyButton1 = New Button With {
            .Text = "Show Form2",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton1)
        Me.Text = "frmMain"
    End Sub
    Private Sub MyButton1_Click(sender As Object, e As EventArgs)
        DisposeControls()
        Me.Hide()
        frmDialog.Show()
    End Sub
 
    Sub DisposeControls()
        Me.MyButton1.Dispose()
        RemoveHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub
 
End Class

Formulario 2

Código

Public NotInheritable Class frmDialog
    Inherits Form
    Friend MyButton2 As Button
    Friend fmain As New frmMain
    Public Sub New()
        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        MyButton2 = New Button With
        {
            .Text = "Show Form1",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton2.Click, AddressOf MyButton2_Click
    End Sub
 
    Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        fmain.Show()
        ' fmain.Visible=tue
 
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton2)
        Me.Text = "frmDialog"
    End Sub
    Private Sub MyButton2_Click(sender As Object, e As EventArgs)
        DisposeControls()
        Me.Close()
    End Sub
    Sub DisposeControls()
 
        RemoveHandler MyButton2.Click, AddressOf MyButton2_Click
        Me.MyButton2.Dispose()
    End Sub
End Class

He probado de todo.

gracias por la ayuda

Si no libero los controles y eventos creados en el formulario A, entonces va bien. Pero deberían poderse liberar.

Código

Public NotInheritable Class frmMain
    Inherits Form
    Friend MyButton1 As Button
 
    Public Sub New()
 
        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        Me.MyButton1 = New Button With {
            .Text = "Show Form2",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton1)
        Me.Text = "frmMain"
    End Sub
    Private Sub MyButton1_Click(sender As Object, e As EventArgs)
        DisposeControls()
        Me.Hide()
        frmDialog.Show()
    End Sub
 
    Sub DisposeControls()
        Me.MyButton1.Dispose()
        RemoveHandler MyButton1.Click, AddressOf MyButton1_Click
    End Sub
 
End Class

Código

Public NotInheritable Class frmDialog
    Inherits Form
    Friend MyButton2 As Button
    Public Sub New()
        ' Llamada necesaria para el diseñador.
        MyClass.InitializeComponent()
        MyButton2 = New Button With
        {
            .Text = "Show Form1",
            .Location = New Point(10, 10)
        }
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        AddHandler MyButton2.Click, AddressOf MyButton2_Click
    End Sub
 
    Private Sub frmDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        '  fmain.Show()
        frmMain.Show()
 
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(MyButton2)
        Me.Text = "frmDialog"
    End Sub
    Private Sub MyButton2_Click(sender As Object, e As EventArgs)
        'DisposeControls()
        Me.Close()
    End Sub
    Sub DisposeControls()
 
        RemoveHandler MyButton2.Click, AddressOf MyButton2_Click
        Me.MyButton2.Dispose()
    End Sub
End Class

55	Foros Generales / Dudas Generales / Sitio para colgar fotos	en: 19 Septiembre 2016, 11:33 am
Hola buenas. Me pueden decir sitios para colgar fotos gratuitamente, para luego poder compartirlas con un link. ¿Cuál me recomiendan? Supongo esta pregunta se habrá hecho muchas veces pero en el buscador encontraba como subir a este foro no como colgarlas en alguna parte. Gracias ups, encontré en google. http://fotografia.about.com/od/Impresion_publicacion/tp/10-Sitios-Para-Publicar-Primera-Parte.htm

56	Foros Generales / Foro Libre / USB Killer ¿Qué opinas?	en: 18 Septiembre 2016, 21:52 pm
Ha salido al mercado un pendrive que acumula energía y luego la devuelve de golpe al equipo destruyendo el equipo. Los creadores lo vendían a fabricantes pero tras su fracaso decidieron venderlo a usuarios y lo justifican diciendo que está orientado a mejorar la seguridad. Qué tomadura de pelo, ¿Quién va a probarlo en su equipo? No creo que quien compre esos USB sea para probar seguridad de equipos. Esto es como las armas de fuego. Venden armas para los servicios de seguridad, pero los malos también las usan... Quien va a usar algo que solo conectarlo al equipo en segundos te lo cargas. En fin, no se, ¿Qué opinas? ¿Para qué lo usarías tú?

57	Sistemas Operativos / Windows / No se escucha el altavoz interno del PC desde Windows	en: 13 Septiembre 2016, 12:56 pm
hola Tengo un PC con Windows 10 y no escucho el altavoz interno del PC. Windows reproduce a través de altavoces externos. El servicio Beep está iniciado. Desde Adminstrador de dispositivos el Plug and Play Beep está activo y lo inicia el sistema. Cuando el PC arranca se escucha un Beep, luego el altavoz funciona. Desde Linux si que funciona He creado un programa que genera beeps de forma automática y veo los pulsos del sonido pero no se escucha nada. Parece que Windows desvía el sonido a los externos, aunque no tenga ninguno conectado. gracias por la ayuda

58	Foros Generales / Dudas Generales / icono suspender	en: 31 Agosto 2016, 15:06 pm
hola, ¿Qué icono definiría mejor el concepto de suspender? Tengo varios- -apagar con puntos suspensivos debajo -dos barritas dentro un círculo (II) = pausa - un reloj... no se es que no me convence ninguno Usaré (II)

59	Foros Generales / Dudas Generales / Se ejecuta FlashUtil64_22_0_0_210_ActiveX.exe cuando entro en elhacker	en: 26 Agosto 2016, 16:53 pm
qtal, bueno pues resulta que se me ejecuta FlashUtil64_22_0_0_210_ActiveX.exe que se encuentra en: Código: C:\Windows\System32\Macromed\Flash cuando entro en elhacker.net ¿por qué? Lo curioso es que me sale un mensaje de confirmación si deseo ejectuarlo o no y aunque responda "no permitir". Se ejecuta igual. nada solo esta duda, de porqué ocurre, nada más, de momento lo he cambiado el nombre "FlashUtil64_22_0_0_210_ActiveX.exe.bak" para que no se ejecute. por cierto me he equivocado quería preguntar en dudas generales. sorry

60	Sistemas Operativos / Windows / Duda con Windows 7 pirata	en: 25 Agosto 2016, 19:33 pm
qu tal Me he bajado un Windows 7 pirata. La razón es que necesito comprobar una cosa con la versión Windows7 starter, pero eso no viene cuento. Ya para empezar había un troyano detectable en el disco. que he eliminado, claro Desde VirtualBox, inicio la instalación y aparece un cuadro en el que puedes elegir todas las versiones de W7. Digo, bueno vale, pues para adelante y elijo W7 starter. Cuando entro en el administrador de discos de la instalación elimino todas las particiones( porque he usado un disco virtual ya usado para otro sistema)- Creo una nueva y sorpresa, la partición reservada que se crea ocupa nada menos que 350MB cuando deberían ser 100MB, ¿Esto es normal?. ¿no será que el buen samaritano que ha compartido el W7 este ha modificado para meter ahí algún regalo? No se Gracias por la ayda. Añado que tengo el Enterprise y el Ultimate y ambos me crean 100mb. Sin embargo este crea 350 incluso cuando selecciono el Ultimate en la lista. $:-\$

Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12