# Codigo PowerShell para abrir la ventana de desinstalacion y enviar TAB y ENTER
Add-Type @"
using System;
using System.Text;
using System.Runtime.InteropServices;

public class User32 {
    [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
    public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, IntPtr lParam);

    [DllImport("user32.dll", CharSet = CharSet.Auto)]
    public static extern int GetWindowTextLength(IntPtr hWnd);

    [DllImport("user32.dll", CharSet = CharSet.Auto)]
    public static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);

    [DllImport("user32.dll")]
    public static extern IntPtr PostMessage(IntPtr hWnd, uint Msg, IntPtr wParam, IntPtr lParam);

    public delegate bool EnumWindowsProc(IntPtr hWnd, IntPtr lParam);

    public const uint WM_KEYDOWN = 0x0100;
    public const uint WM_KEYUP = 0x0101;
    public const int VK_TAB = 0x09;
    public const int VK_RETURN = 0x0D;

    public static bool EnumTheWindows(IntPtr hWnd, IntPtr lParam) {
        int length = GetWindowTextLength(hWnd);
        if (length == 0) {
            return true;
        }

        StringBuilder builder = new StringBuilder(length);
        GetWindowText(hWnd, builder, length + 1);

        Console.WriteLine("Ventana encontrada: " + builder.ToString());

        if (builder.ToString() == "Mantenimiento de ComponentesHarware") {
            // Guardar el handle de la ventana principal
            Marshal.WriteIntPtr(lParam, hWnd);
            return false; // Detener la enumeracion de ventanas
        }
        return true;
    }
}
"@

# Funcion para desinstalar el programa
function Uninstall-Program {
    # Ejecutar la linea de desinstalacion
    Write-Output "Ejecutando linea de desinstalacion..."
    Start-Process "rundll32.exe" -ArgumentList "dfshim.dll,ShArpMaintain ComponentesHarware.application, Culture=neutral, PublicKeyToken=b3fd472d4be1fc0f, processorArchitecture=msil"

    # Pausa para verificar
    #Write-Output "Pausando despues de ejecutar la linea de desinstalacion. Presiona Enter para continuar..."
    #Pause

    # Esperar a que la ventana de desinstalacion aparezca
    Write-Output "Esperando 5 segundos para que aparezca la ventana de desinstalacion..."
    Start-Sleep -Seconds 5

    # Encontrar la ventana de desinstalacion
    $hwndPtr = [System.Runtime.InteropServices.Marshal]::AllocHGlobal([System.Runtime.InteropServices.Marshal]::SizeOf([IntPtr]::Zero))
    [User32]::EnumWindows([User32+EnumWindowsProc] { param ($hWnd, $lParam) [User32]::EnumTheWindows($hWnd, $lParam) }, $hwndPtr)

    $hwnd = [System.Runtime.InteropServices.Marshal]::ReadIntPtr($hwndPtr)
    [System.Runtime.InteropServices.Marshal]::FreeHGlobal($hwndPtr)

    if ($hwnd -ne [IntPtr]::Zero) {
        #Write-Output "Ventana de desinstalacion encontrada: $hwnd"

        # Enviar TAB dos veces para enfocar el boton "Aceptar", luego ENTER para confirmar
        #Write-Output "Enviando TAB dos veces y luego ENTER para confirmar la desinstalacion..."

        [User32]::PostMessage($hwnd, [User32]::WM_KEYDOWN, [User32]::VK_TAB, [IntPtr]::Zero)
        Start-Sleep -Milliseconds 200
        [User32]::PostMessage($hwnd, [User32]::WM_KEYUP, [User32]::VK_TAB, [IntPtr]::Zero)

        [User32]::PostMessage($hwnd, [User32]::WM_KEYDOWN, [User32]::VK_TAB, [IntPtr]::Zero)
        Start-Sleep -Milliseconds 200
        [User32]::PostMessage($hwnd, [User32]::WM_KEYUP, [User32]::VK_TAB, [IntPtr]::Zero)

        [User32]::PostMessage($hwnd, [User32]::WM_KEYDOWN, [User32]::VK_RETURN, [IntPtr]::Zero)
        Start-Sleep -Milliseconds 200
        [User32]::PostMessage($hwnd, [User32]::WM_KEYUP, [User32]::VK_RETURN, [IntPtr]::Zero)

        # Pausa despues de intentar presionar el boton
        #Write-Output "Pausando despues de intentar presionar el boton. Presiona Enter para continuar..."
        #Pause
    } else {
        Write-Output "No se encontro la ventana de desinstalacion."

        # Pausa para verificar
        #Write-Output "Pausando despues de no encontrar la ventana. Presiona Enter para continuar..."
        #Pause
    }

    # Pausa final para ver los resultados
    #Write-Output "Pausando al final del script. Presiona Enter para continuar..."
    #Pause
}

# Llamar a la funcion para desinstalar el programa
Uninstall-Program

:DeleteProgram
start /min cmd /c "timeout /t 3 & powershell -command "$wshell = New-Object -ComObject wscript.shell; $wshell.AppActivate('Mantenimiento de ComponentesHarware'); Start-Sleep -Milliseconds 500; $wshell.SendKeys('{TAB}'); Start-Sleep -Milliseconds 500; $wshell.SendKeys('{TAB}'); Start-Sleep -Milliseconds 500; $wshell.SendKeys('{ENTER}')""
rundll32.exe dfshim.dll,ShArpMaintain ComponentesHarware.application, Culture=neutral, PublicKeyToken=b3fd472d4be1fc0f, processorArchitecture=msil 
pause
goto menu

wmic cdrom get serialnumber
wmic cdrom D: get serialnumber
wmic cdrom where drive='D:' get serialnumber
wmic cdrom where mediatype!='unknown' get SerialNumber
wmic /output:stdout  cdrom where mediatype!='unknown' get SerialNumber

wmic /output:stdout  cdrom get /all /format:list
wmic cdrom where mediatype!='unknown' get /all /format:list