Mostrar los colores de primer plano de la consola en PowerShell
(2 votes, average: 5.00 out of 5)
Loading...1 | 0..15 | % {Write-Host -ForegroundColor ([ConsoleColor]$_) -Object "X" -NoNewline} |
(2 votes, average: 5.00 out of 5)Loading... (2 votes, average: 5.00 out of 5)Loading...Comparar dos imágenes con PowerShell mostrando la diferencia
(No Ratings Yet)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | #Es necesario que las dos imágenes estén en la misma posición inicial $foto1 = [System.Drawing.Bitmap]::FromFile('C:\Users\juan\Desktop\recono\coche.png') $foto2 = [System.Drawing.Bitmap]::FromFile('C:\Users\juan\Desktop\recono\coche - copia.png') $pixelestotales=0 $pixelesdistintos=0 for($y=0;$y -lt $foto1.Height;$y+=1) { for($x=0;$x -lt $foto1.Width;$x+=1) { $pixelestotales+=1 if($foto1.GetPixel($x,$y).name -eq $foto2.GetPixel($x,$y).name) { switch ($foto1.GetPixel($x,$y).name){ default{Write-Host ‘ ‘ -BackgroundColor White -ForegroundColor Black -NoNewLine} } } else { $pixelesdistintos+=1 switch ($foto2.GetPixel($x,$y).name){ default{Write-Host ‘ ‘ -BackgroundColor Black -ForegroundColor White -NoNewLine} } } } Write-Host ” ” } $porcentajepixelesdistintos=($pixelesdistintos/$pixelestotales)*100 Write-Host "Píxeles totales: $pixelestotales" Write-Host "Píxeles distintos: $pixelesdistintos, porcentaje de píxeles distintos: $porcentajepixelesdistintos" |
Coche sin modificar Coche modificado Mostrar diferencia
Convert bitmap to characters in Write-Host (blue and white)
(No Ratings Yet)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | $Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' ) $cave $i=0 $a=0 $array = @() for ($y = 0;$y -lt $Cave.Height;$y+=1) { for ($x = 0;$x -lt $Cave.Width;$x+=1) { $col=$Cave.GetPixel($x,$y).Name if ($i -lt $Cave.Width -1) { switch ($col) { "ff000000" { Write-Host "X" -BackgroundColor Black -ForegroundColor White -NoNewLine $array += "X" } default{ Write-Host " " -BackgroundColor white -NoNewLine $array += " " } } $i=$i+1 if ($a -lt 9){$a=$a+1} else{$a=0} } else { Write-Host " " $array += "*" $i=0 $a=0 } } } ######### #Negative ######### $uu="" foreach ($p in $array) { if ($p -eq "*") { write-Host $p -BackgroundColor Black -ForegroundColor White $uu=$uu+"`n" } else { write-Host $p -BackgroundColor Black -ForegroundColor White -NoNewLine $uu=$uu+$p } } ############### #Blue and white ############### rm .\traducir2.txt $ji=0 foreach ($pp in $uu) { if($pp -match "x") { write-host $ji $pp $pp >> traducir2.txt $ji=$ji+1 $valorfinal=$pp.Length } } |
Convert una imagen JPG a caracteres en la consola de PowerShell (obtener el negativo)
(1 votes, average: 5.00 out of 5)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | $Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' ) $cave $i=0 $a=0 $array = @() for ($y = 0;$y -lt $Cave.Height;$y+=1) { for ($x = 0;$x -lt $Cave.Width;$x+=1) { $col=$Cave.GetPixel($x,$y).Name if ($i -lt $Cave.Width -1) { switch ($col) { "ff000000" { Write-Host "X" -BackgroundColor Black -ForegroundColor White -NoNewLine $array += "X" } default{ Write-Host " " -BackgroundColor white -NoNewLine $array += " " } } $i=$i+1 if ($a -lt 9){$a=$a+1} else{$a=0} } else { Write-Host " " $array += "*" $i=0 $a=0 } } } ######### #Negativo ######### $uu="" foreach ($p in $array) { if ($p -eq "*") { write-Host $p -BackgroundColor Black -ForegroundColor White $uu=$uu+"`n" } else { write-Host $p -BackgroundColor Black -ForegroundColor White -NoNewLine $uu=$uu+$p } } |
Convert una imagen JPG a caracteres en la consola de PowerShell
(1 votes, average: 5.00 out of 5)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | $Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' ) $cave $i=0 $a=0 $array = @() for ($y = 0;$y -lt $Cave.Height;$y+=1) { for ($x = 0;$x -lt $Cave.Width;$x+=1) { $col=$Cave.GetPixel($x,$y).Name if ($i -lt $Cave.Width -1) { switch ($col) { "ff000000" { Write-Host "X" -BackgroundColor Black -ForegroundColor White -NoNewLine $array += "X" } default{ Write-Host " " -BackgroundColor white -NoNewLine $array += " " } } $i=$i+1 if ($a -lt 9){$a=$a+1} else{$a=0} } else { Write-Host " " $array += "*" $i=0 $a=0 } } } |
2. Programación en PowerShell (nivel intermedio)
(2 votes, average: 5.00 out of 5)Loading...Variables Constantes Ámbito Tipos Tipos simples Numéricas Caracteres Fechas Arrays Arrays de números Arrays de caracteres (cadenas) Concatenar Determinar longitud […]
Tiempo de carga de una página
(No Ratings Yet)Loading...1 2 3 4 5 6 | Get-Content 'F:\urls.txt' | %{ $Comienzo = Get-Date (Invoke-WebRequest $_).statuscode $Tiempo = ((Get-Date) - $Comienzo).TotalMilliseconds Write-Host URL $_ Tiempo $Tiempo ms -ForegroundColor Green } |
Establecer el color de fondo y de primer plano de la consola
(No Ratings Yet)Loading...1 2 | $Host.ui.RawUI.BackgroundColor='blue' $Host.ui.RawUI.ForegroundColor='white' |
Poner una palabra en color si aparece dentro de una frase
(No Ratings Yet)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 | $procesar='En cierto lugar de mi casa' $palabras='lugar','casa' $procesar.Split(' ') | % { if($_ | Select-String $palabras.Split(',')) { Write-Host $_ ' ' -BackgroundColor Cyan -ForegroundColor Blue -NoNewline } else { Write-Host $_ ' ' -NoNewline } } |
¿Qué actualizaciones de seguridad tenemos aplicadas en Windows y para qué sirven?
(No Ratings Yet)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | #Seleccionar los identificadores de las actualizaciones de seguridad (HotFixID) foreach($kb in (Get-HotFix | Select-Object HotFixID)) { [String]$texto='' #Componer URL con el valor HotFixID $url='https://www.bing.com/search?q='+$kb.hotfixid #Hacer petición al buscador Bing para analizar la información sobre la actualización de seguridad $result=Invoke-WebRequest $url #Analizar los datos devueltos por el buscador foreach($linea in ($result.AllElements | Where class -eq 'b_caption').outerText) { #Marcar en los resultados obtenidos los identificadores de las actualizaciones de seguridad (HotFixID) #----------------------------------------------------------------------- #----------------------------------------------------------------------- $linea.Split(' ') | % { if($_ | Select-String $kb.hotfixid) { Write-Host $_ ' ' -BackgroundColor Cyan -ForegroundColor Blue -NoNewline } else { Write-Host $_ ' ' -NoNewline } } Write-Host ' ' } #----------------------------------------------------------------------- #----------------------------------------------------------------------- } |
Convert bitmap to characters in Write-Host (simple version)
(1 votes, average: 5.00 out of 5)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 | $foto1 = [System.Drawing.Bitmap]::FromFile(‘F:\power\foto1.bmp’) for($y=0;$y -lt $foto1.Height;$y+=1) { for($x=0;$x -lt $foto1.Width;$x+=1) { switch ($foto1.GetPixel($x,$y).name){ 'fffdfdfd'{Write-Host ‘ ‘ -BackgroundColor Black -ForegroundColor White -NoNewLine} default{Write-Host ‘ ‘ -BackgroundColor White -ForegroundColor Black -NoNewLine} } } Write-Host ” ” } |
Comparar dos imágenes con PowerShell
(No Ratings Yet)Loading...Comparar dos imágenes píxel a píxel, los píxeles diferentes que hay entre la foto 1 y la foto 2 aparecen representados […]
Page load time
(No Ratings Yet)Loading...1 2 3 4 5 6 | Get-Content "C:\urls.txt" | %{ $Start = Get-Date (Invoke-WebRequest $_).statuscode $TimeTaken = ((Get-Date) - $Start).TotalMilliseconds Write-Host URL $_ Request $i took $TimeTaken ms -ForegroundColor Green } |
Poner un color a un proceso
(No Ratings Yet)Loading...1 2 3 4 5 6 7 8 9 10 11 | $a = Read-Host “Nombre proceso a buscar” foreach ($ap in Get-Content "F:\pcs.txt") { foreach ($i in Get-Process -ComputerName $ap) { if ($i.name -eq $a) { Write-Host $ap $i.name –foregroundcolor “green” } } } |
Tareas básicas II (Sistemas operativos monopuesto)
(No Ratings Yet)Loading...Índice Introducción a los sistemas de archivos Archivos Tipos Propiedades Operaciones Directorios Propiedades Estructura Operaciones
Convert bitmap to characters in Write-Host
(1 votes, average: 5.00 out of 5)Loading...1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | $Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' ) $cave $i=0 $a=0 $array = @() for ($y = 0;$y -lt $Cave.Height;$y+=1) { for ($x = 0;$x -lt $Cave.Width;$x+=1) { $col=$Cave.GetPixel($x,$y).Name if ($i -lt $Cave.Width -1) { switch ($col) { "ff000000" { Write-Host "X" -BackgroundColor Black -ForegroundColor White -NoNewLine $array += "X" } default{ Write-Host " " -BackgroundColor white -NoNewLine $array += " " } } $i=$i+1 if ($a -lt 9){$a=$a+1} else{$a=0} } else { Write-Host " " $array += "*" $i=0 $a=0 } } } ######### #Negative ######### $uu="" foreach ($p in $array) { if ($p -eq "*") { write-Host $p -BackgroundColor Black -ForegroundColor White $uu=$uu+"`n" } else { write-Host $p -BackgroundColor Black -ForegroundColor White -NoNewLine $uu=$uu+$p } } |
Sistemas operativos monopuesto
(3 votes, average: 3.67 out of 5)Loading...Índice Introducción a los sistemas informáticos Introducción a los sistemas operativos Instalación de sistemas operativos Configuración de máquinas virtuales Virtualización […]