<requestedExecutionLevel level="asInvoker" uiAccess="false" />

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Must be 64 bits, 8 bytes.
        ' Distribute this key to the user who will decrypt this file.
        Dim sSecretKey As String
        sSecretKey = CSEncryptDecrypt.Class1.GenerateKey() ' Get the Key for the file to Encrypt.
        Dim gch As GCHandle = GCHandle.Alloc(sSecretKey, GCHandleType.Pinned)                       ' For additional security Pin the key.
        CSEncryptDecrypt.Class1.EncryptFile("C:\Prueba\Texto.txt", "C:\Prueba\TextoEncrypt.txt", sSecretKey)        ' Encrypt the file.        
        CSEncryptDecrypt.Class1.ZeroMemory(gch.AddrOfPinnedObject(), CType(sSecretKey.Length * 2, IntPtr))
        gch.Free()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' Must be 64 bits, 8 bytes.
        ' Distribute this key to the user who will decrypt this file.
        Dim sSecretKey As String
        sSecretKey = CSEncryptDecrypt.Class1.GenerateKey() ' Get the Key for the file to Encrypt.
        Dim gch As GCHandle = GCHandle.Alloc(sSecretKey, GCHandleType.Pinned)
        CSEncryptDecrypt.Class1.DecryptFile("C:\Prueba\TextoEncrypt.txt", "C:\Prueba\Decrypt.txt", sSecretKey)    ' Decrypt the file.
        CSEncryptDecrypt.Class1.ZeroMemory(gch.AddrOfPinnedObject(), CType(sSecretKey.Length * 2, IntPtr)) ' Remove the Key from memory. 
        gch.Free()
    End Sub
End Class
 
 
Namespace CSEncryptDecrypt
 
    Class Class1
        <DllImport("kernel32.dll")> _
        Public Shared Sub ZeroMemory(ByVal addr As IntPtr, ByVal size As IntPtr)
        End Sub
        '  Call this function to remove the key from memory after use for security
        '<System.Runtime.InteropServices.DllImport("KERNEL32.DLL", EntryPoint:="RtlZeroMemory")> _
        'Public Shared Function ZeroMemory(Destination As IntPtr, Length As Integer) As Boolean
        'End Function
 
        ' Function to Generate a 64 bits Key.
        Public Shared Function GenerateKey() As String
            ' Create an instance of Symetric Algorithm. Key and IV is generated automatically.
            Dim desCrypto As DESCryptoServiceProvider = DirectCast(DESCryptoServiceProvider.Create(), DESCryptoServiceProvider)
 
            ' Use the Automatically generated key for Encryption. 
            Return ASCIIEncoding.ASCII.GetString(desCrypto.Key)
        End Function
 
        Public Shared Sub EncryptFile(sInputFilename As String, sOutputFilename As String, sKey As String)
            Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
 
            Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)
            Dim DES As New DESCryptoServiceProvider()
            DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
            DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
            Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
            Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)
 
            Dim bytearrayinput As Byte() = New Byte(CInt(fsInput.Length - 1)) {}
            fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
            cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
            cryptostream.Close()
            fsInput.Close()
            fsEncrypted.Close()
        End Sub
 
        Public Shared Sub DecryptFile(sInputFilename As String, sOutputFilename As String, sKey As String)
            Dim DES As New DESCryptoServiceProvider()
            'A 64 bit key and IV is required for this provider.
            'Set secret key For DES algorithm.
            DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
            'Set initialization vector.
            DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
 
            'Create a file stream to read the encrypted file back.
            Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
            'Create a DES decryptor from the DES instance.
            Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
            'Create crypto stream set to read and do a 
            'DES decryption transform on incoming bytes.
            Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
            'Print the contents of the decrypted file.
            Dim fsDecrypted As New StreamWriter(sOutputFilename)
            fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd())
            fsDecrypted.Flush()
            fsDecrypted.Close()
        End Sub
 
 
    End Class
End Namespace

Imports System.Security.AccessControl
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FolderBrowserDialog1 As New FolderBrowserDialog
        With FolderBrowserDialog1
            If .ShowDialog() = DialogResult.OK Then
                TextBox1.Text = .SelectedPath
            End If
        End With
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
        fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
        File.SetAccessControl(TextBox1.Text, CType(fs, FileSecurity))
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
        fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
        File.SetAccessControl(TextBox1.Text, CType(fs, FileSecurity))
    End Sub
End Class

    Public Shared Sub ViewModeIconDesktop(ByVal intValueView As Integer)
        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

num+=1
Dim newValue As Integer= 28700 + num
ViewModeIconDesktop (newValue )
Me.text = CStr(newValue)

SendMessageTimeOut

    <DllImport("User32.dll", SetLastError:=True)>
    Friend Shared Function SendMessageTimeout(ByVal hwnd As Integer,
                                         ByVal msg As Integer,
                                         ByVal wParam As Integer,
                                        ByVal lParam As Integer,
                                         ByVal flags As Integer,
                                          ByVal timeout As Integer,
                                   <Out> ByRef refResult As Integer
) As IntPtr
    End Function
    Private Const WM_SETTINGCHANGE = &H1A
    Private Const HWND_BROADCAST = &HFFFF&
    Private Const SPI_SETNONCLIENTMETRICS = 42
    Private Const SMTO_ABORTIFHUNG = &H2
    Public Shared Sub RefreshWindows()
        SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, &H0, SMTO_ABORTIFHUNG, &H100, &H0)
    End Sub

        Const WM_USER = &H400
        Dim hProgman As IntPtr = FindWindow("Progman", "Program Manager")
        'SendMessage(hProgman, &H460, &H0, WM_USER)
        SendMessage(hProgman, &H45A, &H0, WM_USER)
 

[HKEY_USERS\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:000001

[HKEY_USERS\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"ShowSuperHidden"=dword:000001

    Const WM_COMMAND = &H111
    Const WP_REFRESH_DESKTOP = &H7103
    Const WP_REFRESH_CABINET = &HA220
    Const WP_REFRESH_EXPLORER = &H7FEF
 
       'Refrescar Escritorio
        Dim hProgMan As IntPtr
        Dim hDefView As IntPtr
        hProgMan = FindWindow("Progman", "Program Manager")
        hDefView = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString)
        SendMessage(hDefView, WM_COMMAND, WP_REFRESH_DESKTOP, &H0)
 
        'Refrescar Explorer
        Dim hCabinetWClass As IntPtr
        hCabinetWClass = FindWindow("CabinetWClass", vbNullString)
        SendMessage(hCabinetWClass, WM_COMMAND, WP_REFRESH_CABINET, &H0)
 
        'Refrescar explorer Windows XP
        'Dim hExploreWClass As IntPtr
        ' hExploreWClass = FindWindow("ExploreWClass", vbNullString)
        'SendMessage hExploreWClass, WM_COMMAND, WP_REFRESH_EXPLORER, &H0
 
 

<System.Security.SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Inherits Attribute
    Private Sub New()
    End Sub
    <DllImport("User32.dll", SetLastError:=True)>
    Friend Shared Function SendMessageTimeout(ByVal hwnd As Integer,
                                         ByVal msg As Integer,
                                         ByVal wParam As Integer,
                                        ByVal lParam As Integer,
                                         ByVal flags As Integer,
                                          ByVal timeout As Integer,
                                   <Out> ByRef refResult As Integer
) As IntPtr
    End Function
    <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
    <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
    <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", SetLastError:=True)>
    Friend Shared Function SendMessageTimeout(ByVal hwnd As IntPtr,
                                         ByVal msg As WindowsMessages,
                                         ByVal wParam As IntPtr,
                                        ByVal lParam As IntPtr,
                                         ByVal flags As SendMessageTimeoutFlags,
                                          ByVal timeout As Integer,
                                   <Out> ByRef refResult As IntPtr
) As IntPtr
    End Function
    Friend Enum SendMessageTimeoutFlags As Integer
        Normal = &H0
        Block = &H1
        AbortIfHung = &H2
        NoTimeoutIfNotHung = &H8
        ErrorOnExit = &H20
    End Enum
    Friend Enum WindowsMessages As Integer
        HWND_Broadcast = &HFFFF
        WM_SettingChange = &H1A
    End Enum
 
    Const WM_COMMAND = &H111
    Const WP_REFRESH_DESKTOP = &H7103
    Const WP_REFRESH_CABINET = &HA220
    Const WP_REFRESH_EXPLORER = &H7FEF
 
    Public Shared Sub RefreshWindows()
 
        'Refrescar escritorio
        Dim hProgMan As IntPtr
        Dim hDefView As IntPtr
        hProgMan = FindWindow("Progman", "Program Manager")
        hDefView = FindWindowEx(hProgMan, IntPtr.Zero, "SHELLDLL_DefView", vbNullString)
        SendMessage(hDefView, WM_COMMAND, WP_REFRESH_DESKTOP, &H0)
 
        'Refrescar Explorer
        Dim hCabinetWClass As IntPtr
        hCabinetWClass = FindWindow("CabinetWClass", vbNullString)
        SendMessage(hCabinetWClass, WM_COMMAND, WP_REFRESH_CABINET, &H0)
 
        'Refrescar Explorer (Windows XP)
        'Dim hExploreWClass As IntPtr
        'hExploreWClass = FindWindow("ExploreWClass", vbNullString)
        'SendMessage hExploreWClass, WM_COMMAND, WP_REFRESH_EXPLORER, &H0
 
 
        'Refrescar los iconos
        SendMessageTimeout(New IntPtr(WindowsMessages.HWND_Broadcast), WindowsMessages.WM_SettingChange, IntPtr.Zero, IntPtr.Zero,
   SendMessageTimeoutFlags.AbortIfHung, 100, IntPtr.Zero)
    End Sub
End Class
 

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

''' <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
 

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

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
 

   ''' <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
 

HideHeaderListView(True)

  ''' <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

''' <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