|
1
|
Media / Multimedia / Busco: Programa para editar (cortar/pegar) un archivo de audio AC-3 sin volver a codificarlo
|
en: 21 Abril 2024, 18:11 pm
|
Me gustaría descubrir un programa para Windows, con una interfaz gráfica de usuario, que sea capaz de cargar un archivo de audio AC-3 para cortar (y pegar) en algunos puntos del stream de audio, sin volver a codificar el audio. Cuando pienso en este tipo de aplicación, lo ideal sería que tuviera similitud con la interfaz de usuario de mp3DirectCut ( https://mpesch3.de/): Requisitos: ----------- - Freeware (de código abierto o no, no importa) o Freemium (parcialmente gratuito con funciones premium deshabilitadas). - Funciona en Windows 10 (x64). - Con interfaz gráfica de usuario (GUI) donde puedes seleccionar un rango, por lo que no necesitas ingresar manualmente los códigos de tiempo para cortar. - Tiene un visualizador de flujo de audio (o "visualizador de ondas"), como en la captura de pantalla anterior. - Puede reproducir el audio, cortarlo en cualquier punto y pegar un silencio en cualquier punto. - Edición sin pérdidas, "lossless" (es decir, no requiere volver a codificar el archivo de audio). - Soporta estéreo o canales 5.1. Nota: las sugerencias de software pago también son bienvenidas, si son económicas para uso privado (no soluciones corporativas que cuestan cientos o miles de euros). Muchas gracias por su atención.
|
|
|
2
|
Foros Generales / Sugerencias y dudas sobre el Foro / [SOLUCIONADO] ¿Cómo desactivo o cambio el corrector ortográfico en el foro?
|
en: 13 Abril 2024, 11:08 am
|
Este problema me sucede desde... no sé, desde hace años, pero no me ha dado por pedir ayuda, hasta ahora. Quien me conozca un poco sabrá que suelo editar mucho mis posts, para corregir faltas, mejorar la redacción, añadir o borrar información (y a veces, cosas que me arrepiento de haber escrito tras haber reflexionado un poco xD), y cosas así. En parte es por que soy (o me considero) perfeccionista, y en parte también es por este problema que voy a explicar, que no me ayuda en nada para darme cuenta de algunos errores ortográficos o algunas teclas que acabo tecleando sin pretender hacerlo... El caso es que, siempre que escribo algo en el foro, se me activa de forma automática el corrector de palabras EN INGLÉS. Y no sé por qué se activa en Inglés, pero creo que no es una configuración de mi navegador (Firefox), por que en el resto de páginas no me sucede esto, solo en el foro. Y entonces, cuando escribo algo, prácticamente todas las palabras en Español me aparecen así como si estuvieran mal escritas: ¿Alguien tiene idea de como puedo hacer para que se active el corrector en Español, o desactivarlo del todo (solo para el foro)?. Gracias.
|
|
|
3
|
Programación / Scripting / [APORTE] [PowerShell] RAR.exe | Test RAR Files
|
en: 5 Abril 2024, 00:39 am
|
El siguiente script, desarrollado en PowerShell y dependiente del programa de terceros WinRAR (rar.exe), sirve para analizar la integridad de los archivos RAR que haya en el directorio donde se ejecute el script. El script genera un archivo con nombre "RAR_Test_Files.log" en el directorio de trabajo, donde se registran los nombres de archivos de los tests fallidos. En este ejemplo: RAR_Test_Files.logFailed test with exit code 3: C:\Nueva carpeta\Stupid Invaders (Spanish) (Disc 1)_128mb.rar Test RAR Files.ps1<# =========================================================================================== | | | Variables | | | =========================================================================================== #> $rarExecutablePath = "${env:ProgramFiles}\WinRAR\rar.exe" $recursiveSearch = $true $logErrorFilePath = "$PSScriptRoot\RAR_Test_Files.log" <# =========================================================================================== | | | Functions | | | =========================================================================================== #> function Show-WelcomeScreen { Clear-Host Write-Host "" Write-Host " $($host.ui.RawUI.WindowTitle)" Write-Host " +===================================================+" Write-Host " | |" Write-Host " | This script will use RAR.exe to test each file in |" Write-Host " | the current working directory, and inform about |" Write-Host " | any errors found during the test. |" Write-Host " | |" Write-Host " +===================================================+" Write-Host "" Write-Host " Script Settings " -ForegroundColor DarkGray Write-Host " ===========================" -ForegroundColor DarkGray Write-Host " RAR Executable Path: $([System.IO.Path]::GetFullPath($rarExecutablePath))" -ForegroundColor DarkGray Write-Host " Recursive Search...: $recursiveSearch" -ForegroundColor DarkGray Write-Host "" } function Confirm-Continue { Write-Host " Press 'Y' key to continue or 'N' to exit." Write-Host "" Write-Host " -Continue? (Y/N)" do { $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown") $char = $key.Character.ToString().ToUpper() if ($char -ne "Y" -and $char -ne "N") { [console]::beep(1500, 500) } } while ($char -ne "Y" -and $char -ne "N") if ($char -eq "N") {Exit(1)} else {Clear-Host} } function Test-RarFiles { Write-Host "Fetching RAR files, please wait..." -ForegroundColor DarkGray Write-Host "" $rarFiles = $null if ($recursiveSearch) { $rarFiles = Get-ChildItem -LiteralPath "$PSScriptRoot" -Filter "*.rar" -Recurse -File } else { $rarFiles = Get-ChildItem -LiteralPath "$PSScriptRoot" -Filter "*.rar" -File } $rarFileCount = $rarFiles.Count $currentFileCount = 0 If ($rarFileCount -eq 0) {return} $testSuccessCount = 0 $testFailCount = 0 $logStream = [System.IO.StreamWriter]::new($logErrorFilePath, $false ) foreach ($rarFile in $rarFiles) { $currentFileCount +=1 Write-Host "RAR File $currentFileCount of $($rarFileCount):" -ForegroundColor DarkGray $psi = New-Object System.Diagnostics.ProcessStartInfo $psi.FileName = $rarExecutablePath $psi.Arguments = "t -idcdn `"$($rarFile.FullName)`"" $psi.RedirectStandardOutput = $false $psi.UseShellExecute = $false $psi.CreateNoWindow = $false $process = [System.Diagnostics.Process]::Start($psi) $process.WaitForExit() $exitCode = $process.ExitCode if ($exitCode -eq 0) { Write-Host "RAR process exited with code: $exitCode" -ForegroundColor Green $testSuccessCount +=1 } else { Write-Warning "RAR process exited with code: $exitCode" $logStream.WriteLine("Failed test with exit code $($exitCode): $($rarFile.FullName)") $testFailCount +=1 } Write-Host "" } $logStream.Close() $SuccessPercent = [string]::Format("{0:F0}", ($testSuccessCount / $currentFileCount) * 100) if ($testSuccessCount -eq $currentFileCount) { Write-Host "RAR Tests Successful: $testSuccessCount of $currentFileCount ($SuccessPercent%)" -BackgroundColor Black -ForegroundColor Green } else { Write-Warning "RAR Tests Successful: $testSuccessCount of $currentFileCount ($SuccessPercent%)" } $FailPercent = [string]::Format("{0:F0}", ($testFailCount / $currentFileCount) * 100) if ($testFailCount -eq 0) { Write-Host "RAR Tests Failed....: $testFailCount of $currentFileCount ($FailPercent%)" -BackgroundColor Black -ForegroundColor Green } else { Write-Warning "RAR Tests Failed....: $testFailCount of $currentFileCount ($FailPercent%)" } } function Show-GoodbyeScreen { Write-Host "" Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green Write-Host "" Write-Host "Press any key to exit..." $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown") Exit(0) } <# =========================================================================================== | | | Main | | | =========================================================================================== #> [System.Console]::Title = "Test RAR Files - by Elektro" #[System.Console]::SetWindowSize(150, 45) [CultureInfo]::CurrentUICulture = "en-US" try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { } Show-WelcomeScreen Confirm-Continue Test-RarFiles Show-GoodbyeScreen
|
|
|
4
|
Foros Generales / Foro Libre / Illuminati: He recibido una invitación de membresía.
|
en: 3 Abril 2024, 18:24 pm
|
A lo largo de mi vida he recibido muchos e-mails, que van desde invitaciones para multiplicar mi dinero en menos de 24 horas sin hacer nada, también he recibido e-mails de premios en casinos y loterías a los que nunca he jugado, viajes gratuitos en avión a lugares insospechados y con estancias también gratuitas, e incluso he llegado a recibir solicitudes para poder agilizar trámites burocráticos con el objetivo de transferirme una herencia millonaria de mis parientes perdidos en África, y en otras ocasiones favores de jeques millonarios de Arabia que necesitaban mi ayuda para poder sacar dinero de esos países a cambio de ofrecerme una sustanciosa parte millonaria del dinero por mi ayuda. He sido muy afortunado con todo este tipo de e-mails, ¿verdad?. Soy tan afortunado que no dejo de recibirlos casi a diario. Tanto es así, que actualmente estoy a la espera de obtener 14 herencias, 8 donaciones millonarias, 5 premios en la loteria y 2 viajes a las Islas Caimán en lo que llevo contado del año 2024. Año tras año se me acumulan las riquezas. Pero lo cierto es que hasta ahora no había recibido un e-mail tan deseado cómo este: Traducción al Español para los plebeyos no iluminados: Hola Elegidos de la Luz,
Fuiste elegido por la Gran Hermandad de los Illuminati para ser miembro de esta familia; Has encontrado el favor ante los ojos del Gran Creador y de ahí esta noble invitación a ser miembro de la Familia Elite.
¿Quieres unirte a la Gran Hermandad Illuminati para hacerte rico, famoso y protegido en la vida?. Únase a nosotros hoy y resuelva sus problemas financieros si desea convertirse en miembro de los Illuminati.
CONTÁCTENOS AHORA: illuminatirecruiter*******@gmail.com
Por favor envíe su respuesta únicamente al CORREO ELECTRÓNICO: illuminatirecruiter*******@gmail.com Por supuesto pienso responder a este e-mail, a ver si me admiten en la élite. Qué ganas tengo.
Y hasta aquí las ironías. Evidentemente ese e-mail es un claro intento de SCAM; y me ha parecido original y divertido, por eso quise compartirlo con ustedes. ¿Alguna vez recibieron una invitación de los Illuminati como esta?. Encontré este interesante artículo de aquí abajo, aunque parece ser una metodología algo diferente: Aténtamente, Elektro.
|
|
|
5
|
Foros Generales / Sugerencias y dudas sobre el Foro / [SOLUCIONADO] He publicado catorce hilos en el lugar incorrecto y de forma absurda...
|
en: 19 Marzo 2024, 01:09 am
|
Hola. En la sección de programación general ( https://foro.elhacker.net/programacion_general-b18.0/), en la primera página, publiqué varios hilos cuyos títulos empiezan con el prefijo "[APORTE]". Pues todos esos hilos en realidad deberían ir en la sección de scripting. Me he dado cuenta ahora, o mejor dicho he caído ahora en la cuenta de que estaban publicados en otra sección del foro, por que he publicado un nuevo aporte en la sección de scripting y no encontraba estos otros hilos ahí, y me ha extrañado, y pensé para mis adentros: " ¿dónde coño están mis otros hilos, me los habrán borrado sin decir nada?" . El caso es que los publiqué en la sección de Programación General de forma inconsciente, no seguí ningún criterio en especial, simplemente fue un acto inconsciente publicarlos ahí en Programación General, pero en realidad todos esos aportes son de lenguajes de scripting, así que... no están en su sección adecuada. Y es un poco absurdo, por que frecuentemente accedo a la sección de Programación General y veo mis hilos en la primera página de esa sección, y en todos los catorce hilos se puede ver perfectamente como comienzo el texto con frases similares a: "El siguiente script sirve para realizar tal cosa...", pero nada, que no he caído en la cuenta de que estaban publicados en la sección incorrecta, hasta ahora xD. Algo totalmente inconsciente por mi parte como ya digo. Son 14 hilos. Puede resultar tedioso moverlos (ya no me acuerdo cómo de fácil o tedioso era), pero bueno, un error inconsciente lo podemos tener cualquiera, disculpen. PD: Si alguien se había fijado en ello, quiero decir, que ese no era el lugar más indicado para ese tipo de aportes, ¡debería haberme dicho algo! (que no soy tan cascarrabias como algunos se pensarán). Un saludo.
|
|
|
6
|
Programación / Scripting / [APORTE] [VBS] VMWare: Mount / Unmount Shared Folders Network Drive
|
en: 19 Marzo 2024, 00:52 am
|
Los siguientes dos scripts, desarrollados en el lenguaje Visual Basic Script y que se deben usar en conjunto con una máquina virtual de VMWare (aunque se pueden modificar para Virtual Box), sirven como atajo para montar y desmontar la unidad de red de las "carpetas compartidas" (shared folders). Utilizar estos scripts nos ahorra un valioso tiempo al no tener que usar el cliente de VMWare para abrir el menú de opciones donde desactivar y reactivar las carpetas compartidas. La idea tras esta simple herramienta es eso, ahorrar tiempo, y de esta manera poder aislar la máquina virtual del sistema operativo anfitrión impidiendo el acceso a la unidad de red de las carpetas compartidas, y volver a habilitar el acceso, tan solo haciendo dos clicks para ejecutar estos scripts. Mount Shared Folders Network Drive.vbs' Mount VMWare Shared Folders Network Drive Option Explicit Dim objFSO, objShell, objNetwork, colDrives, colNetDrives, i, msg Dim objDrive, vmWareDrive, vmWarePath, drive, path vmWareDrive = "Z:" vmWarePath = "\\vmware-host\Shared Folders" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") Set colDrives = objFSO.Drives Set colNetDrives = objNetwork.EnumNetworkDrives For i = 0 to colNetDrives.Count - 1 Step 2 drive = colNetDrives.Item(i) path = colNetDrives.Item(i+1) If (LCase(drive) = LCase(vmWareDrive)) Then If (LCase(path) = LCase(vmWarePath)) Then msg = "A network drive is already mounted with same letter and UNC path:" & vbCrLf & vbCrLf msg = msg & drive & vbTab & """" & path & """" objShell.Popup msg, 20, "Warning: Network Drives", 48 Else msg = "A network drive is already mounted with a different UNC path:" & vbCrLf & vbCrLf msg = msg & drive & vbTab & """" & path & """" objShell.Popup msg, 20, "Error: Network Drives", 16 End If WScript.Quit() End If Next For Each objDrive in colDrives drive = objDrive.DriveLetter & ":" If (LCase(drive) = LCase(vmWareDrive)) Then msg = "A local drive is already mounted with the same drive letter:" & vbCrLf & vbCrLf msg = msg & "Letter: " & drive & vbCrLf msg = msg & "FileSystem: " & objDrive.FileSystem & vbCrLf msg = msg & "Volume Name: " & objDrive.VolumeName & vbCrLf msg = msg & "Share Name: " & objDrive.ShareName objShell.Popup msg, 20, "Error: Network Drives", 16 WScript.Quit() End If Next objNetwork.MapNetworkDrive vmWareDrive, vmWarePath msg = "The following network drive was successfully mounted:" & vbCrLf & vbCrLf msg = msg & vmWareDrive & vbTab & """" & vmWarePath & """" objShell.Popup msg, 20, "Info: Network Drives", 64 WScript.Quit()
Unmount Shared Folders Network Drive.vbs' Unmount VMWare Shared Folders Network Drive Option Explicit Dim objShell, objNetwork, colDrives, i, msg Dim vmWareDrive, vmWarePath, drive, path vmWareDrive = "Z:" vmWarePath = "\\vmware-host\Shared Folders" Set objShell = CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") Set colDrives = objNetwork.EnumNetworkDrives For i = 0 to colDrives.Count - 1 Step 2 drive = colDrives.Item(i) path = colDrives.Item(i+1) If (LCase(drive) = LCase(vmWareDrive)) Then If (LCase(path) = LCase(vmWarePath)) Then objNetwork.RemoveNetworkDrive vmWareDrive, True, True msg = "The following network drive was successfully unmounted:" & vbCrLf & vbCrLf msg = msg & drive & vbTab & """" & path & """" objShell.Popup msg, 20, "Info: Network Drives", 64 Else msg = "A network drive is already mounted with a different UNC path:" & vbCrLf & vbCrLf msg = msg & drive & vbTab & """" & path & """" objShell.Popup msg, 20, "Warning: Network Drives", 16 End If WScript.Quit() End If Next msg = "No matching network drive " & """" & vmWareDrive & """" & " was found." objShell.Popup msg, 20, "Error: Network Drives", 16 WScript.Quit()
|
|
|
7
|
Media / Juegos y Consolas / Emuladores Yuzu y Citra: Aquí puedes descargar sus últimas versiones.
|
en: 5 Marzo 2024, 13:59 pm
|
No me andaré con muchos rodeos, simplemente mencionaré lo importante para dar contexto, y es que Nintendo demandó a los creadores del emulador Yuzu para Nintendo Switch, que también son los creadores del emulador Citra para Nintendo 3DS, y desde aproximadamente el día 04/Marzo/2024 han desaparecido los repositorios de código abierto para ambos emuladores, y con ello, los enlaces de descarga a los emuladores. En este hilo compartiré el método a llevar a cabo para que puedan descargar las últimas releases públicadas para ambos emuladores. El contenido ofrecido en este hilo no es ilegal, son (eran) programas de código abierto con un gran apoyo por parte de su comunidad y reseñas en todo tipo de medios oficiales, además, en este hilo no se comparten descargas directas, y por supuesto el hecho de que una compañía demande a un individuo para preservar sus intereses comerciales eso ni por asomo lo convierte en una acción delictiva per se.De todas formas y si a pesar de ello el staff considera que es mejor no publicar este tipo de contenido, no pondré objeción y pido disculpas, por supuesto.
La metodología consiste en usar la Wayback Machine de Internet Archive para acceder a la copia estática más reciente de los repositorios de ambos emuladores con sus correspondientes descargas: (Para Windows deben descargar el archivo con extensión .zip, ya que no hay copia disponible para el archivo .7z y .tar.xz) La compilación Nightly se basa en la rama maestra y contiene funciones ya revisadas y probadas.
La compilación Canary se basa en la rama maestra, pero aún se están revisando características adicionales.
Eso sería todo. ¡Disfrútenlo mientras todavía se pueda! (mientras Nintendo no decida seguir arruinando más su imagen demandando a los de archive.org ).Aténtamente, Elektro.
|
|
|
8
|
Sistemas Operativos / Windows / [SOLUCIONADO] Busco algún programa cuyo instalador genere este tipo de archivo link...
|
en: 5 Marzo 2024, 13:18 pm
|
Buenos días. No se si publicar esta solicitud aquí o en el foro libre (o tal vez en Software). Yo lo veo más relacionado con aspectos relacionados con Windows, pero muévanlo donde prefieran. El caso es que tengo la necesidad de encontrar algún software que se distribuya en forma de instalador, y que al momento de instalar dicho software se genere un acceso directo como el de la siguiente imagen, donde no se permite la modificación de la propiedad "Destino": (lo siento por el idioma de la imagen XD) Esa restricción a la hora de modificar el destino, se debe a que el acceso directo fue creado usando un identificador especial del sistema en lugar de haber utilizado una cadena de texto convencional ( más info: learn.microsoft.com - Item IDs ), y al parecer Windows deshabilita la caja de texto de la propiedad "Destino" para ese tipo de links que fueron creados de tal forma. Bueno, pues no se me ocurre donde puedo encontrar y descargar un software / instalador que genere ese tipo de archivo de acceso directo (*.lnk). Me da igual si el programa es gratuito o de pago, es simplemente que me permita instalarlo y me genere ese archivo link para cuestiones de prueba en un entorno de programación.
Es evidente, por la imagen que he compartido, que el Microsoft Word al parecer genera ese tipo de archivo link, pero a mi me han pasado una ISO del Office 2016 de 2 GB, y a mi no me genera ese link. Quizás no estoy usando la ISO correcta. Tengo conocimiento de que el emulador de video juegos por nombre "Yuzu", o tal vez era otro por nombre "Citra", creaban este tipo de archivo link, pero para mi mala suerte justo ayer cerraron sus sitios web (debido a una demanda por parte de la compañía Nintendo) y el instalador ya no funciona por que requiere acceso online. Ahora no recuerdo otro programa que genere ese tipo de acceso directo. Se supone que hay aplicación de la Microsoft Store que cuando se instalan generan ese tipo de link, pero yo tengo la Microsoft Store capada de mi instalación de Windows. También se supone que hay video juegos que generan ese tipo de link en la carpeta integrada "Juegos" del menú inicio, pero esto también lo tengo parcialmente capado y de todas formas no se si habrá algún juego gratuito con el que probar a ver. Gracias con antelación.
|
|
|
9
|
Programación / Scripting / [APORTE] [PowerShell] SetACL.exe | Get Full Registry Ownership
|
en: 4 Marzo 2024, 15:31 pm
|
El siguiente script desarrollado en PowerShell y dependiente del programa de terceros SetACL ( https://helgeklein.com/download/#), sirve para adquirir propiedad absoluta sobre todas las claves de registro del sistema, lo que puede servir en algunos escenarios de prueba (generalmente en máquinas virtuales), o de infecciones por malware. UTILIZAR ESTE SCRIPT BAJO SU PROPIA RESPONSABILIDAD, Y BAJO UNA CUENTA DE ADMINISTRADOR.
MODIFICAR LOS PERMISOS DE ALGUNAS CLAVES DEL REGISTRO DE WINDOWS PUEDE CONLLEVAR CONSECUENCIAS IMPREVISTAS QUE PROVOQUEN UN MALFUNCIONAMIENTO DEL SISTEMA OPERATIVO E IMPIDAN INICIAR SESIÓN DE USUARIO.
NO ME HAGO RESPONSABLE DE NADA.
<# =========================================================================================== | | | Functions | | | =========================================================================================== #> function Show-WelcomeScreen { Clear-Host Write-Output "" Write-Output " $($host.ui.RawUI.WindowTitle)" Write-Output " +====================================================================+" Write-Output " | |" Write-Output " | This script will take the ownership and ACE (Access Control Entry) |" Write-Output " | of all the registry keys and subkeys in the current computer, |" Write-Output " | giving full access and permissions for the current user. |" Write-Output " | |" Write-Output " +====================================================================+" Write-Output "" Write-Host " CHANGING THE OWNER AND PERMISSIONS COULD BREAK THINGS," -ForegroundColor Red Write-Host " SO PROCEED WITH CAUTION AND DO IT AT YOUR OWN RISK !!" -ForegroundColor Red Write-Output "" Write-Output " CURRENT SCRIPT CONFIG:" Write-Output " ----------------------" Write-Output " -SetAclFilePath: $SetAclFilePath" Write-Output " -UserName......: $UserName" Write-Output " -RegKeys.......:" Write-Output ($RegKeys | ForEach-Object {" $_"}) Write-Output "" } function Confirm-Continue { Write-Host " Press 'Y' key to continue or 'N' to exit." Write-Host "" Write-Host " -Continue? (Y/N)" do { $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown") $char = $key.Character.ToString().ToUpper() if ($char -ne "Y" -and $char -ne "N") { [console]::beep(1500, 500) } } while ($char -ne "Y" -and $char -ne "N") if ($char -eq "N") {Exit(1)} else {Clear-Host} } function Get-RegistryOwnership { param( [string]$setAclFilePath = "$env:ProgramFiles\SetACL\setacl.exe", [string[]]$regKeys, [string]$userName = "$env:UserName" ) try { if (-not (Test-Path $setAclFilePath)) { $ex = New-Object System.IO.FileNotFoundException("SetACL.exe file not found at path '$setAclFilePath'.", $setAclFilePath) throw $ex } $logFile = New-TemporaryFile foreach ($key in $regKeys) { Start-Process -Wait -FilePath "$setAclFilePath" -ArgumentList "-on", "`"$key`"", "-ot", "reg", "-actn", "setowner", "-ownr", "`"n:$userName`"", "-rec", "Yes", "-actn", "ace", "-ace", "`"n:$userName;p:full`"", "-rec", "Yes", "-log", "`"$($logFile.FullName)`"" -NoNewWindow -PassThru #$logContent = Get-Content -Path $logFile.FullName Write-Output "" #Write-Output $logContent } } catch { Write-Host "Something went wrong when calling '$($MyInvocation.MyCommand.Name)' method:" Write-Host "" Write-Warning ($_.Exception) Write-Host "" Write-Error -Message ($_.Exception | Format-List * -Force | Out-String) Write-Host "" Write-Host "Press any key to exit..." $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown") Exit(1) } } function Show-GoodbyeScreen { Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green Write-Host "" Write-Host "Press any key to exit..." $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown") Exit(0) } <# =========================================================================================== | | | Main | | | =========================================================================================== #> [System.Console]::Title = "Get Full Registry Ownership Tool - by Elektro" [CultureInfo]::CurrentUICulture = "en-US" $SetAclFilePath = "$env:ProgramFiles\SetACL\SetACL.exe" $RegKeys = "HKEY_CLASSES_ROOT", "HKEY_CURRENT_USER", "HKEY_LOCAL_MACHINE", "HKEY_USERS", "HKEY_CURRENT_CONFIG" $UserName = $env:UserName try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { } Show-WelcomeScreen Confirm-Continue Get-RegistryOwnership -SetAclFilePath $SetAclFilePath -RegKeys $RegKeys -UserName $UserName Show-GoodbyeScreen
|
|
|
10
|
Programación / Scripting / [APORTE] [PowerShell] Automated AppX Package Installer
|
en: 4 Marzo 2024, 15:19 pm
|
El siguiente script desarrollado en Powershell, buscará archivos de paquetes AppX (*.appx, *.appxbundle, *.msixbundle) dentro del directorio actual (sin recursividad), imprimirá información sobre el paquete, imprimirá un mensaje en caso de que el paquete ya esté instalado, e instalará el paquete en caso de que no esté instalado, manejando posibles errores durante instalación. Es una herramienta muy útil en particular para quien (como yo) tenga completamente capada la Microsoft Store y sus funcionalidades en el sistema operativo, y necesite una forma de poder instalar paquetes de aplicaciones (*.appx, *.appxbundle, *.msixbundle) descargadas de forma local desde la Microsoft Store.
# --------------------------------------------- # # Automated AppX Package Installer - by Elektro # # --------------------------------------------- # # This script will find any AppX package files within the current directory (without recursion), # print info about the package, print a message in case of the package is already installed, # and install the package in case of it is not installed, handling errors during installation. # --------------------------------------------------------------------- # Takes a string argument that points to an AppX package name or file, # then it uses a regular expression to match the package string pattern # and returns a custom object with the Name, Version, Architecture, # PublisherId and other properties. # # Parameters: # -PackageString: A string that points to the file name # or full path of an AppX package file. # # Returns: # A PSCustomObject object with these properties defined: # [String] Name # [String] Version # [String] Architecture # [String] PublisherId # [String] FullName function Get-AppXPackageInfo { param ( [Parameter(Mandatory=$true)] [string]$PackageString ) #$dirname = [System.IO.Path]::GetDirectoryName($PackageString) #if ([string]::IsNullOrEmpty($dirname)) { # $dirname = $PWD #} $filename = [System.IO.Path]::GetFileName($PackageString) -replace "(?i)\.appxbundle$", "" -replace "(?i)\.msixbundle$", "" -replace "(?i)\.appx$", "" $regex = '^(?<Name>.+?)_(?<Version>.+?)_(?<Architecture>.+?)_(?<chars>~)?_(?<PublisherId>.+)$' $match = $filename -match $regex if (!$match) { throw "Unable to parse the string package: '$PackageString'" } [string]$packageName = $matches['Name'] [string]$packageVersion = $matches['Version'] [string]$packageArchitecture = $matches['Architecture'] [string]$packagePublisherId = $matches['PublisherId'] [string]$chars = $matches['chars'] [string]$packageFullName = "${packageName}_${packageVersion}_${packageArchitecture}_${chars}_${packagePublisherId}" #[string]$packageFullPath = [System.IO.Path]::Combine($dirname, "$filename.Appx") [PSCustomObject]@{ Name = $packageName Version = $packageVersion Architecture = $packageArchitecture PublisherId = $packagePublisherId FullName = $packageFullName #FullPath = $packageFullPath } } # Determines whether an Appx package matching the specified # name, version and architecture is installed in the system. # # Parameters: # -Name........: The package name. # -Version.....: The package version. # -Architecture: The package architecture ("x86", "x64"). # # Returns: # $true if the AppX package is installed in the system, # $false otherwise. function IsAppxPackageInstalled() { param ( [Parameter(Mandatory=$true)] [string]$name, [Parameter(Mandatory=$true)] [string]$version, [Parameter(Mandatory=$true)] [string]$architecture ) if ($architecture -eq "neutral") { $architecture = [System.Runtime.InteropServices.RuntimeInformation]::ProcessArchitecture } $packages = Get-AppxPackage "$($name)*" -ErrorAction Stop | Where-Object { $_.Name.ToLower() -eq $name.ToLower() -and $_.Version.ToLower() -eq $version.ToLower() -and "$($_.Architecture)".ToLower() -eq $architecture.ToLower() } return ($packages.Count -gt 0) } <# =========================================================================================== | | | Main | | | =========================================================================================== #> [System.Console]::Title = "Automated AppX Package Installer - by Elektro" [CultureInfo]::CurrentUICulture = "en-US" try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { } # Hides the progress-bar for 'Add-AppxPackage' cmdlet in this script. # Thanks to @Santiago Squarzon for the tip: https://stackoverflow.com/questions/75716867 # https://learn.microsoft.com/en-us/powershell/module/microsoft.powershell.core/about/about_preference_variables?view=powershell-7.3#progresspreference $ProgressPreference = "Ignore" Do { Clear-Host Write-Output "" Write-Output " $($host.ui.RawUI.WindowTitle)" Write-Output " +=====================================================+" Write-Output " | |" Write-Output " | This script will find any AppX package files |" Write-Output " | within the current directory (without recursion), |" Write-Output " | print info about the package, print a message |" Write-Output " | in case of the package is already installed, |" Write-Output " | and install the package in case of it is |" Write-Output " | not installed, handling errors during installation. |" Write-Output " | |" Write-Output " +=====================================================+" Write-Output "" Write-Host " -Continue? (Y/N)" $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown") $char = $key.Character.ToString().ToUpper() if ($char -ne "Y" -and $char -ne "N") { [console]::beep(1500, 500) } } while ($char -ne "Y" -and $char -ne "N") if ($char -eq "N") {Exit(1)} else {Clear-Host} $appxFiles = Get-ChildItem -Path "$PWD" -Filter "*.appx*" if ($appxFiles.Count -eq 0) { Write-Warning "No Appx files were found in the current directory." Write-Host "" $LastExitCode = 2 } else { $appxFiles | ForEach-Object { # The AppX package string. It can be a file name (with or without extension), or a full path. $packageString = $_.FullName $packageInfo = Get-AppXPackageInfo -PackageString $packageString $nameVerArch = "$($packageInfo.Name) v$($packageInfo.Version) ($($packageInfo.Architecture))" Write-Host "Package Info.:" -ForegroundColor Gray Write-Host ($packageInfo | Format-List | Out-String).Trim() -ForegroundColor DarkGray Write-Host "" $isInstalled = IsAppxPackageInstalled -Name $packageInfo.Name -Version $packageInfo.Version -Architecture $packageInfo.Architecture if ($isInstalled) { Write-Warning "Package $nameVerArch is already installed." Write-Warning "Installation is not needed." } else { Write-Host "Package $nameVerArch is ready to install." Write-Host "Installing package..." try { Add-AppxPackage -Path "$($_.FullName)" -ErrorAction Stop Write-Host "Package $nameVerArch has been successfully installed." -BackgroundColor Black -ForegroundColor Green } catch { Write-Host "Error installing package $nameVerArch" -BackgroundColor Black -ForegroundColor Red Write-Host "" Write-Error -Message ($_.Exception | Format-List * -Force | Out-String) $LastExitCode = 1 Break } } Write-Host "" $LastExitCode = 0 } } Write-Host "Program will terminate now with exit code $LastExitCode. Press any key to exit..." $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown") Exit($LastExitCode)
|
|
|
|
|
|
|