Graphics | Scripting and security

Dibujar una recta en una imagen dentro de un formulario de PowerShell

(4 votes, average: 5.00 out of 5)

# Crear en Pen
$mypen = new-object Drawing.Pen red
$mypen.width = 5

# Crear el formulario
$form = New-Object Windows.Forms.Form
$form.Width = 580
$form.Height = 235
$formGraphics = $form.createGraphics()

# Añadir una imagen al formulario
$Image = [system.drawing.image]::FromFile("C:\Users\Desktop\bank.jpg")
$Form.BackgroundImage = $Image

# Dibujar una línea en la imagen del formulario
$form.add_paint({$formGraphics.DrawLine($mypen, 550, 170, 420, 185)})

$form.ShowDialog()

# Crear en Pen

$mypen = new-object Drawing.Pen red

$mypen.width = 5

# Crear el formulario

$form = New-Object Windows.Forms.Form

$form.Width = 580

$form.Height = 235

$formGraphics = $form.createGraphics()

# Añadir una imagen al formulario

$Image = [system.drawing.image]::FromFile("C:\Users\Desktop\bank.jpg")

$Form.BackgroundImage = $Image

# Dibujar una línea en la imagen del formulario

$form.add_paint({$formGraphics.DrawLine($mypen, 550, 170, 420, 185)})

$form.ShowDialog()

Detectar el color de un píxel en PowerShell

(1 votes, average: 5.00 out of 5)

$GDI = Add-Type -MemberDefinition @'
[DllImport("user32.dll")]
static extern IntPtr GetDC(IntPtr hwnd);

[DllImport("user32.dll")]
static extern Int32 ReleaseDC(IntPtr hwnd, IntPtr hdc);

[DllImport("gdi32.dll")]
static extern uint GetPixel(IntPtr hdc,int nXPos,int nYPos);

static public int GetPixelColor(int x, int y)
{
IntPtr hdc = GetDC(IntPtr.Zero);
uint pixel = GetPixel(hdc, x, y);
ReleaseDC(IntPtr.Zero,hdc);

return (int)pixel;
}
'@ -Name GDI -PassThru

$PixelColorRef = $GDI::GetPixelColor(215,349)
[System.Drawing.Color]::FromArgb($PixelColorRef) | Select-Object B,G,R

$GDI = Add-Type -MemberDefinition @'

[DllImport("user32.dll")]

static extern IntPtr GetDC(IntPtr hwnd);

[DllImport("user32.dll")]

static extern Int32 ReleaseDC(IntPtr hwnd, IntPtr hdc);

[DllImport("gdi32.dll")]

static extern uint GetPixel(IntPtr hdc,int nXPos,int nYPos);

static public int GetPixelColor(int x, int y)

{

IntPtr hdc = GetDC(IntPtr.Zero);

uint pixel = GetPixel(hdc, x, y);

ReleaseDC(IntPtr.Zero,hdc);

return (int)pixel;

}

'@ -Name GDI -PassThru

$PixelColorRef = $GDI::GetPixelColor(215,349)

[System.Drawing.Color]::FromArgb($PixelColorRef) | Select-Object B,G,R

Cambiar el tamaño a una imagen con Python Imaging Library (PIL)

(No Ratings Yet)

from PIL import Image
img = Image.open('1.jpg')
new_img = img.resize((256,256))
new_img.save('1-256x256.png','png')

from PIL import Image

img = Image.open('1.jpg')

new_img = img.resize((256,256))

new_img.save('1-256x256.png','png')

Imagen Imagen cambiada de tamaño

Cambiar una imagen en color a escala de grises con Python Imaging Library (PIL)

(No Ratings Yet)

from PIL import Image
img = Image.open('1.jpg').convert('L')
img.show()
img.save('1grises.png','png')

from PIL import Image

img = Image.open('1.jpg').convert('L')

img.show()

img.save('1grises.png','png')

Imagen en color Imagen en escala de grises

Detectar el color de un píxel en Python

(No Ratings Yet)

import pyautogui
im = pyautogui.screenshot()
im.getpixel((215,349))

import pyautogui

im = pyautogui.screenshot()

im.getpixel((215,349))

Comparar dos imágenes con PowerShell indicando el momento en el que empieza la diferencia

(No Ratings Yet)

#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

$primeraposicion=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)
        {
        }
        else
        {
            $pixelesdistintos+=1
            if($primeraposicion -eq 0)
            {
                Write-Host "Empieza la diferencia de la foto: $x,$y"
                $primeraposicion=1
            }
        }
    }
}

$porcentajepixelesdistintos=($pixelesdistintos/$pixelestotales)*100
Write-Host "Píxeles totales: $pixelestotales"
Write-Host "Píxeles distintos: $pixelesdistintos, porcentaje de píxeles distintos: $porcentajepixelesdistintos"

#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

$primeraposicion=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)

{

}

else

{

$pixelesdistintos+=1

if($primeraposicion -eq 0)

{

Write-Host "Empieza la diferencia de la foto: $x,$y"

$primeraposicion=1

}

$porcentajepixelesdistintos=($pixelesdistintos/$pixelestotales)*100

Write-Host "Píxeles totales: $pixelestotales"

Write-Host "Píxeles distintos: $pixelesdistintos, porcentaje de píxeles distintos: $porcentajepixelesdistintos"

Comparar dos imágenes con PowerShell mostrando la diferencia

(No Ratings Yet)

#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"

#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

Detectar si una imagen está contenida dentro de otra imagen mediante OpenCV

(2 votes, average: 5.00 out of 5)

# Cargar OpenCV
import cv2
# Sirve para operar con cualquier dato numérico
import numpy as np

# Leer las imágenes que vamos a comparar
# Imagen sobre la que vamos a detectar si existe otra imagen
img_rgb = cv2.imread('Todo.jpg')
# Imagen que comprobamos si existe en la imagen Todo
template = cv2.imread('1.jpg')

# Tamaño de la imagen 1.jpg
w, h = template.shape[:-1]

# Función que sirve para detectar si una imagen está contenida en otra
res = cv2.matchTemplate(img_rgb, template, cv2.TM_CCOEFF_NORMED)

# Umbral admitido
threshold = .7

# Si está dentro del umbral, crear un cuadrado sobre la imagen contenida en la imagen Todo
loc = np.where(res >= threshold)
for pt in zip(*loc[::-1]):  #  Cambiar columnas y filas
    cv2.rectangle(img_rgb, pt, (pt[0] + w, pt[1] + h), (0, 0, 0), 1)

# Guardar el resultado
cv2.imwrite('result.png', img_rgb)

# Cargar OpenCV

import cv2

# Sirve para operar con cualquier dato numérico

import numpy as np

# Leer las imágenes que vamos a comparar

# Imagen sobre la que vamos a detectar si existe otra imagen

img_rgb = cv2.imread('Todo.jpg')

# Imagen que comprobamos si existe en la imagen Todo

template = cv2.imread('1.jpg')

# Tamaño de la imagen 1.jpg

w, h = template.shape[:-1]

# Función que sirve para detectar si una imagen está contenida en otra

res = cv2.matchTemplate(img_rgb, template, cv2.TM_CCOEFF_NORMED)

# Umbral admitido

threshold = .7

# Si está dentro del umbral, crear un cuadrado sobre la imagen contenida en la imagen Todo

loc = np.where(res >= threshold)

for pt in zip(*loc[::-1]): # Cambiar columnas y filas

cv2.rectangle(img_rgb, pt, (pt[0] + w, pt[1] + h), (0, 0, 0), 1)

# Guardar el resultado

cv2.imwrite('result.png', img_rgb)

Imagen Todo.jpg Imagen 1.jpg Resultado.png Otros resultados para umbrales más bajos threshold = .5 threshold = .48 threshold = .4

Convert bitmap to characters in Write-Host (blue and white)

(No Ratings Yet)

$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
    }
}

$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)

$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
    }
}

$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

}

Older Posts