Graphics | Scripting and security

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

(1 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 = […]

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

}

Convert una imagen JPG a caracteres en la consola de PowerShell

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

$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

}

Resolver el CAPTCHA de Amazon

(2 votes, average: 3.50 out of 5)

#Descargar la imagen del CAPTCHA de Amazon
$url="https://www.amazon.es/errors/validateCaptcha"
$result = Invoke-WebRequest $url
Start-BitsTransfer ($result.Images.src | Select-String "captcha") -Destination captcha.jpg
Start-Process .\captcha.jpg

#Convertir la imagen CAPTCHA a texto (el resultado obtenido no es positivo en la mayoría de las ocasiones)
#Tesseract OCR
#Tesseract is probably the most accurate open source OCR engine available. Combined with the Leptonica Image Processing Library it can read a wide variety of image formats and convert them to text in over 60 languages. It was one of the top 3 engines in the 1995 UNLV Accuracy test. Between 1995 and 2006 it had little work done on it, but since then it has been improved extensively by Google. It is released under the Apache License 2.0.
E:\programas\Tesseract-OCR\tesseract.exe .\captcha.jpg captcha
gc .\captcha.txt

#Descargar la imagen del CAPTCHA de Amazon

$url="https://www.amazon.es/errors/validateCaptcha"

$result = Invoke-WebRequest $url

Start-BitsTransfer ($result.Images.src | Select-String "captcha") -Destination captcha.jpg

Start-Process .\captcha.jpg

#Convertir la imagen CAPTCHA a texto (el resultado obtenido no es positivo en la mayoría de las ocasiones)

#Tesseract OCR

#Tesseract is probably the most accurate open source OCR engine available. Combined with the Leptonica Image Processing Library it can read a wide variety of image formats and convert them to text in over 60 languages. It was one of the top 3 engines in the 1995 UNLV Accuracy test. Between 1995 and 2006 it had little work done on it, but since then it has been improved extensively by Google. It is released under the Apache License 2.0.

E:\programas\Tesseract-OCR\tesseract.exe .\captcha.jpg captcha

gc .\captcha.txt

Extraer coordenadas GPS de imágenes con PowerShell

(2 votes, average: 5.00 out of 5)

$imagePath = 'C:\Users\juan\Desktop\recono\IMG_20171226_232738.jpg'
$imageProperties = New-Object -TypeName System.Drawing.Bitmap -ArgumentList $imagePath

[double]$LatDegrees = (([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 0)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 4)));
[double]$LatMinutes = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 8)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 12));
[double]$LatSeconds = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 16)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 20));
[double]$LonDegrees = (([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 0)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 4)));
[double]$LonMinutes = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 8)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 12));
[double]$LonSeconds = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 16)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 20));

"Latitude: $LatDegrees;$LatMinutes;$LatSeconds"
"Longitude: $LonDegrees;$LonMinutes;$LonSeconds"

$imagePath = 'C:\Users\juan\Desktop\recono\IMG_20171226_232738.jpg'

$imageProperties = New-Object -TypeName System.Drawing.Bitmap -ArgumentList $imagePath

[double]$LatDegrees = (([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 0)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 4)));

[double]$LatMinutes = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 8)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 12));

[double]$LatSeconds = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 16)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(2).Value, 20));

[double]$LonDegrees = (([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 0)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 4)));

[double]$LonMinutes = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 8)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 12));

[double]$LonSeconds = ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 16)) / ([System.BitConverter]::ToInt32( $imageProperties.GetPropertyItem(4).Value, 20));

"Latitude: $LatDegrees;$LatMinutes;$LatSeconds"

"Longitude: $LonDegrees;$LonMinutes;$LonSeconds"

Fuente https://stackoverflow.com/questions/45136895/extracting-gps-numerical-values-from-byte-array-using-powershell

Dibujar una casa dentro de un PDF utilizando PowerShell

(No Ratings Yet)

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document
$stream=[IO.File]::OpenWrite("output.pdf")
$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

#Dibujar un triángulo
$dc.MoveTo(220, 450)
$dc.LineTo(350, 600)
$dc.LineTo(500, 450)
$dc.ClosePathStroke()

#Dibujar un cuadrado
$dc.Rectangle($doc.PageSize.Width-360, 350, 250, 100)
$dc.Stroke();
 
$doc.Close()
$stream.Close()

.\output.pdf

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document

$stream=[IO.File]::OpenWrite("output.pdf")

$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

#Dibujar un triángulo

$dc.MoveTo(220, 450)

$dc.LineTo(350, 600)

$dc.LineTo(500, 450)

$dc.ClosePathStroke()

#Dibujar un cuadrado

$dc.Rectangle($doc.PageSize.Width-360, 350, 250, 100)

$dc.Stroke();

$doc.Close()

$stream.Close()

.\output.pdf

Realizar dibujos dentro de un PDF utilizando PowerShell

(No Ratings Yet)

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document
$stream=[IO.File]::OpenWrite("output.pdf")
$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

#Crear dos líneas en la parte inferior del documento PDF
$dc.MoveTo(0, 100)
$dc.LineTo($doc.PageSize.Width, 100)
$dc.Stroke()
$dc.MoveTo(0, 200)
$dc.LineTo($doc.PageSize.Width, 200)
$dc.Stroke()

#Dibujar un cuadrado
$dc.MoveTo(100, 700)
$dc.LineTo(200, 700)
$dc.LineTo(200, 600)
$dc.LineTo(100, 600)
$dc.ClosePath()
$dc.Stroke()

#Dibujar un cuadrado
$dc.Rectangle($doc.PageSize.Width-200, 600, 100, 100);
$dc.Stroke();

#Dibujar un círculo de color rojo
$dc.SetCMYKColorStroke(255, 255, 0, 0);
$dc.SetCMYKColorFill(0, 255, 255, 0);
$dc.SetLineWidth(2);
$dc.Circle(120, 250, 50);
$dc.Fill();

$doc.Close()
$stream.Close()

.\output.pdf

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document

$stream=[IO.File]::OpenWrite("output.pdf")

$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

#Crear dos líneas en la parte inferior del documento PDF

$dc.MoveTo(0, 100)

$dc.LineTo($doc.PageSize.Width, 100)

$dc.Stroke()

$dc.MoveTo(0, 200)

$dc.LineTo($doc.PageSize.Width, 200)

$dc.Stroke()

#Dibujar un cuadrado

$dc.MoveTo(100, 700)

$dc.LineTo(200, 700)

$dc.LineTo(200, 600)

$dc.LineTo(100, 600)

$dc.ClosePath()

$dc.Stroke()

#Dibujar un cuadrado

$dc.Rectangle($doc.PageSize.Width-200, 600, 100, 100);

$dc.Stroke();

#Dibujar un círculo de color rojo

$dc.SetCMYKColorStroke(255, 255, 0, 0);

$dc.SetCMYKColorFill(0, 255, 255, 0);

$dc.SetLineWidth(2);

$dc.Circle(120, 250, 50);

$dc.Fill();

$doc.Close()

$stream.Close()

.\output.pdf

Dibujar varias líneas dentro de un PDF utilizando PowerShell

(No Ratings Yet)

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document
$stream=[IO.File]::OpenWrite("output.pdf")
$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

$dc.MoveTo($doc.PageSize.Width / 2, $doc.PageSize.Height / 2)
$dc.LineTo($doc.PageSize.Width / 2, $doc.PageSize.Height)
$dc.Stroke();
$dc.MoveTo(0, $doc.PageSize.Height/2)
$dc.LineTo($doc.PageSize.Width, $doc.PageSize.Height / 2)
$dc.Stroke()

$doc.Close()
$stream.Close()

#Descargar https://sourceforge.net/projects/itextsharp/

[System.Reflection.Assembly]::LoadFrom("E:\programas\itextsharp-dll-core\itextsharp.dll")

$doc=New-Object itextsharp.text.document

$stream=[IO.File]::OpenWrite("output.pdf")

$writer=[itextsharp.text.pdf.PdfWriter]::GetInstance($doc, $stream)

$doc.Open()

$dc = $writer.DirectContent

$dc.MoveTo($doc.PageSize.Width / 2, $doc.PageSize.Height / 2)

$dc.LineTo($doc.PageSize.Width / 2, $doc.PageSize.Height)

$dc.Stroke();

$dc.MoveTo(0, $doc.PageSize.Height/2)

$dc.LineTo($doc.PageSize.Width, $doc.PageSize.Height / 2)

$dc.Stroke()

$doc.Close()

$stream.Close()

Convert una imagen JPG a HTML

(1 votes, average: 5.00 out of 5)

#IMPORTANT
#Path file
#Character █
#Quotes

$Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' )
$i=0

for ($x = 0;$x -lt $Cave.Height;$x+=1)
{
    for ($y = 0;$y -lt $Cave.Width;$y+=1)
    {
        if ($i -lt $Cave.Width -1)
        {
            $com ="<font size=""2"" color=""" + ($Cave.GetPixel($y,$x).name).substring(2,6) + """>█</font>"
            $i=$i+1
        }
        else
        {
            $com = "<br>"
            $i=0
            $a=0
        }
        $com | Out-File traducir2.html -Append
    }
}

#IMPORTANT

#Path file

#Character █

#Quotes

$Cave = [System.Drawing.Bitmap]::FromFile( '.\juan2.jpg' )

$i=0

for ($x = 0;$x -lt $Cave.Height;$x+=1)

{

for ($y = 0;$y -lt $Cave.Width;$y+=1)

{

if ($i -lt $Cave.Width -1)

{

$com ="█"

$i=$i+1

}

else

{

$com = " "

$i=0

$a=0

}

$com | Out-File traducir2.html -Append

}

Realizar una captura de pantalla mediante una interfaz gráfica creada con PowerShell

(No Ratings Yet)

#Realizado por Jesús Moreno

[Reflection.Assembly]::LoadWithPartialName("System.Drawing")
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

function screenshot($path)
{
	$b=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)
	$g=[System.Drawing.Graphics]::FromImage($b)
	$g.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $b.Size)
	$g.Dispose()
	$b.Save($path,'Bmp')
}

$form = New-Object System.Windows.Forms.Form 
$form.Text = "Guardar fondo"
$form.Size = New-Object System.Drawing.Size(300,200) 
$form.StartPosition = "CenterScreen"

$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(75,120)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = "Guardar"
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $OKButton
$form.Controls.Add($OKButton)

$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(150,120)
$CancelButton.Size = New-Object System.Drawing.Size(75,23)
$CancelButton.Text = "Cancelar"
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $CancelButton
$form.Controls.Add($CancelButton)

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,20) 
$label.Size = New-Object System.Drawing.Size(280,20) 
$label.Text = "Nombre para guardar la foto:"
$form.Controls.Add($label) 

$textBox = New-Object System.Windows.Forms.TextBox 
$textBox.Location = New-Object System.Drawing.Point(10,40) 
$textBox.Size = New-Object System.Drawing.Size(260,20) 
$form.Controls.Add($textBox) 

$form.Topmost = $True

$form.Add_Shown({$textBox.Select()})
$result = $form.ShowDialog()

if ($result -eq [System.Windows.Forms.DialogResult]::OK)
{
Start-Sleep -Seconds 1
$x = $textBox.Text
$path= "$HOME\Desktop\$x.bmp"
screenshot($path)
}

#Realizado por Jesús Moreno

[Reflection.Assembly]::LoadWithPartialName("System.Drawing")

Add-Type -AssemblyName System.Windows.Forms

Add-Type -AssemblyName System.Drawing

function screenshot($path)

{

$b=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)

$g=[System.Drawing.Graphics]::FromImage($b)

$g.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $b.Size)

$g.Dispose()

$b.Save($path,'Bmp')

}

$form = New-Object System.Windows.Forms.Form

$form.Text = "Guardar fondo"

$form.Size = New-Object System.Drawing.Size(300,200)

$form.StartPosition = "CenterScreen"

$OKButton = New-Object System.Windows.Forms.Button

$OKButton.Location = New-Object System.Drawing.Point(75,120)

$OKButton.Size = New-Object System.Drawing.Size(75,23)

$OKButton.Text = "Guardar"

$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK

$form.AcceptButton = $OKButton

$form.Controls.Add($OKButton)

$CancelButton = New-Object System.Windows.Forms.Button

$CancelButton.Location = New-Object System.Drawing.Point(150,120)

$CancelButton.Size = New-Object System.Drawing.Size(75,23)

$CancelButton.Text = "Cancelar"

$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel

$form.CancelButton = $CancelButton

$form.Controls.Add($CancelButton)

$label = New-Object System.Windows.Forms.Label

$label.Location = New-Object System.Drawing.Point(10,20)

$label.Size = New-Object System.Drawing.Size(280,20)

$label.Text = "Nombre para guardar la foto:"

$form.Controls.Add($label)

$textBox = New-Object System.Windows.Forms.TextBox

$textBox.Location = New-Object System.Drawing.Point(10,40)

$textBox.Size = New-Object System.Drawing.Size(260,20)

$form.Controls.Add($textBox)

$form.Topmost = $True

$form.Add_Shown({$textBox.Select()})

$result = $form.ShowDialog()

if ($result -eq [System.Windows.Forms.DialogResult]::OK)

{

Start-Sleep -Seconds 1

$x = $textBox.Text

$path= "$HOME\Desktop\$x.bmp"

screenshot($path)

}

Obtener el color de un pixel y almacenarlo en un fichero html

(No Ratings Yet)

$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

for ()
{
Start-Sleep -m 1000
$dX = ([System.Windows.Forms.Cursor]::Position.X) #X coordinates
$dY = ([System.Windows.Forms.Cursor]::Position.Y) #Y coordinates
Write-Host $dX,$dY #print coordinates

$PixelColorRef = $GDI::GetPixelColor($dX,$dY)
[System.Drawing.Color]::FromArgb($PixelColorRef)
'<font size=''2'' color=''' + [System.Drawing.Color]::FromArgb($PixelColorRef).name + '''>█</font>' | Out-File d:\colores.html -Append
}

$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

for ()

{

Start-Sleep -m 1000

$dX = ([System.Windows.Forms.Cursor]::Position.X) #X coordinates

$dY = ([System.Windows.Forms.Cursor]::Position.Y) #Y coordinates

Write-Host $dX,$dY #print coordinates

$PixelColorRef = $GDI::GetPixelColor($dX,$dY)

[System.Drawing.Color]::FromArgb($PixelColorRef)

'█' | Out-File d:\colores.html -Append

}

Añadir una marca de agua a una imagen

(No Ratings Yet)

#Cargar imagen
$imagen = [System.Drawing.Image]::FromFile("D:\power\foto5.bmp")
#Crear Bitmap
$bmp = New-Object System.Drawing.Bitmap([int]($imagen.width)),([int]($imagen.height))
#Cargar Graphic
$dibujo = [System.Drawing.Graphics]::FromImage($bmp)
#Dibujar la marca de agua utilizando una figura de tipo rectángulo y un texto con una fuente
$dibujo.DrawImage($imagen,(New-Object Drawing.Rectangle 0,0,$imagen.Width,$imagen.Height),0,0,$imagen.Width,$imagen.Height,([Drawing.GraphicsUnit]::Pixel))
$dibujo.DrawString('Marca de agua',(New-Object System.Drawing.Font("Arial",29,[Drawing.FontStyle]'Bold' )),(New-Object Drawing.SolidBrush ([System.Drawing.Color]::Red)),0,10)
#Guardar el Bitmap
$bmp.Save('D:\power\foto5marcagua.bmp',[System.Drawing.Imaging.ImageFormat]::Bmp)
$bmp.Dispose()
$imagen.Dispose()

#Cargar imagen

$imagen = [System.Drawing.Image]::FromFile("D:\power\foto5.bmp")

#Crear Bitmap

$bmp = New-Object System.Drawing.Bitmap([int]($imagen.width)),([int]($imagen.height))

#Cargar Graphic

$dibujo = [System.Drawing.Graphics]::FromImage($bmp)

#Dibujar la marca de agua utilizando una figura de tipo rectángulo y un texto con una fuente

$dibujo.DrawImage($imagen,(New-Object Drawing.Rectangle 0,0,$imagen.Width,$imagen.Height),0,0,$imagen.Width,$imagen.Height,([Drawing.GraphicsUnit]::Pixel))

$dibujo.DrawString('Marca de agua',(New-Object System.Drawing.Font("Arial",29,[Drawing.FontStyle]'Bold' )),(New-Object Drawing.SolidBrush ([System.Drawing.Color]::Red)),0,10)

#Guardar el Bitmap

$bmp.Save('D:\power\foto5marcagua.bmp',[System.Drawing.Imaging.ImageFormat]::Bmp)

$bmp.Dispose()

$imagen.Dispose()

Dividir una captura de pantalla en sectores

(1 votes, average: 5.00 out of 5)

[Reflection.Assembly]::LoadWithPartialName("System.Drawing")
function screenshot([Drawing.Rectangle]$bounds, $path)
{
$bmp = New-Object Drawing.Bitmap $bounds.width, $bounds.height
$graphics = [Drawing.Graphics]::FromImage($bmp)
$graphics.CopyFromScreen($bounds.Location, [Drawing.Point]::Empty, $bounds.size)
$bmp.Save($path,'bmp')
$graphics.Dispose()
$bmp.Dispose()
}

#Parte izquierda: la posición x es igual a 0 hasta que la posición x sea igual a la mitad de la pantalla
for($i=0; $i -lt 720; $i=$i+30)
{
#Sin acumular, línea a línea de tamaño 30
$bounds = [Drawing.Rectangle]::FromLTRB(0, $i, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i+30)
#Acumulado
#$bounds = [Drawing.Rectangle]::FromLTRB(0, 0 [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i+30)
$fichero='d:\power\capturap\'+$i+'.png'
#Realizar captura
screenshot $bounds $fichero
D:\program\tesseract-ocr-3.02-win32-portable\Tesseract-OCR\tesseract.exe $fichero $fichero.Replace('.png','') -l eng | Out-Null
gc $fichero.Replace('.png','.txt')
}

#Parte derecha: la posición x es igual a la mitad de la pantalla hasta que la x sea igual al tamaño completo de la pantalla
for($i=0; $i -lt 720; $i=$i+30)
{
#Sin acumular, línea a línea de tamaño 30
$bounds = [Drawing.Rectangle]::FromLTRB([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, $i+30)
#Acumulado
#$bounds = [Drawing.Rectangle]::FromLTRB([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, 0, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, $i+30)
$fichero='d:\power\capturap\'+$i+'.png'
#Realizar captura
screenshot $bounds $fichero
D:\program\tesseract-ocr-3.02-win32-portable\Tesseract-OCR\tesseract.exe $fichero $fichero.Replace('.png','') -l eng | Out-Null
gc $fichero.Replace('.png','.txt')
}

[Reflection.Assembly]::LoadWithPartialName("System.Drawing")

function screenshot([Drawing.Rectangle]$bounds, $path)

{

$bmp = New-Object Drawing.Bitmap $bounds.width, $bounds.height

$graphics = [Drawing.Graphics]::FromImage($bmp)

$graphics.CopyFromScreen($bounds.Location, [Drawing.Point]::Empty, $bounds.size)

$bmp.Save($path,'bmp')

$graphics.Dispose()

$bmp.Dispose()

}

#Parte izquierda: la posición x es igual a 0 hasta que la posición x sea igual a la mitad de la pantalla

for($i=0; $i -lt 720; $i=$i+30)

{

#Sin acumular, línea a línea de tamaño 30

$bounds = [Drawing.Rectangle]::FromLTRB(0, $i, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i+30)

#Acumulado

#$bounds = [Drawing.Rectangle]::FromLTRB(0, 0 [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i+30)

$fichero='d:\power\capturap\'+$i+'.png'

#Realizar captura

screenshot $bounds $fichero

D:\program\tesseract-ocr-3.02-win32-portable\Tesseract-OCR\tesseract.exe $fichero $fichero.Replace('.png','') -l eng | Out-Null

gc $fichero.Replace('.png','.txt')

}

#Parte derecha: la posición x es igual a la mitad de la pantalla hasta que la x sea igual al tamaño completo de la pantalla

for($i=0; $i -lt 720; $i=$i+30)

{

#Sin acumular, línea a línea de tamaño 30

$bounds = [Drawing.Rectangle]::FromLTRB([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, $i, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, $i+30)

#Acumulado

#$bounds = [Drawing.Rectangle]::FromLTRB([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width/2, 0, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, $i+30)

$fichero='d:\power\capturap\'+$i+'.png'

#Realizar captura

screenshot $bounds $fichero

D:\program\tesseract-ocr-3.02-win32-portable\Tesseract-OCR\tesseract.exe $fichero $fichero.Replace('.png','') -l eng | Out-Null

gc $fichero.Replace('.png','.txt')

}

Older Posts