Drawing | Scripting and security

Abrir las categorías de una página web en WordPress que se listan mediante botones en un formulario de PowerShell

19/06/201907/06/2019

$buttons_functionslist=@(
    $json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON
    $json.name
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
            if($json.name.indexof($this.Text))
            {
                start chrome $json.link[$json.name.indexof($this.Text)]
            }
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

$json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON

$json.name

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

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

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

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

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

if($json.name.indexof($this.Text))

{

start chrome $json.link[$json.name.indexof($this.Text)]

}

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Ver mediante una lista de botones en un formulario de PowerShell las categorías de una página en WordPress

17/06/201907/06/2019

$buttons_functionslist=@(
    $json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON
    $json.name
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
	        Write-Host $this.Text
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

$json=(Invoke-WebRequest -Uri 'https://www.jesusninoc.com/wp-json/wp/v2/categories').content | ConvertFrom-JSON

$json.name

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

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

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

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

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

Write-Host $this.Text

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

PowerShell

Añadir botones a un formulario en PowerShell de forma automática

07/06/201907/06/2019

$buttons_functionslist=@(
	"Botón1",
	"Botón2",
	"Botón3"
	"Botón4"
	"Botón5"
)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)
	{
	$thisbutton = New-Object System.Windows.Forms.Button
	[string]$thisbuttonname = $buttons_functionslist[$loop]
	$thisbutton.Text = $thisbuttonname
	$thisbutton.size = New-Object System.Drawing.Size(100,20)
	$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))
	$thisbutton.Add_Click({
	        Write-Host $this.Text
		})
	$Form.Controls.Add($thisbutton)
	$loop += 1
	}

$Form.ShowDialog()

$buttons_functionslist=@(

"Botón1",

"Botón2",

"Botón3"

"Botón4"

"Botón5"

)

$buttons_functionbuttoncount = $buttons_functionslist.count

$loop = 0

#Formulario

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

$Form.Text="Formulario"

$Form.Size=New-Object System.Drawing.Size(500,500)

$Form.StartPosition="CenterScreen"

while($loop -lt $buttons_functionbuttoncount)

{

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

[string]$thisbuttonname = $buttons_functionslist[$loop]

$thisbutton.Text = $thisbuttonname

$thisbutton.size = New-Object System.Drawing.Size(100,20)

$thisbutton.Location = New-Object System.Drawing.Size(200,(20*$loop+1))

$thisbutton.Add_Click({

Write-Host $this.Text

})

$Form.Controls.Add($thisbutton)

$loop += 1

}

$Form.ShowDialog()

Automation

Automatizar el movimiento del ratón en el sistema operativo Windows con PowerShell

01/08/201817/06/2018

#Ejercicio 1
#Posición X,Y
$dX = ([System.Windows.Forms.Cursor]::Position.X) #Coordenada X
$dY = ([System.Windows.Forms.Cursor]::Position.Y) #Coordenada Y
$dX,$dY

#Ejercicio 2
#Ver la posición X,Y de forma indefinida cada medio segundo
for ()
{
Start-Sleep -m 500
$dX = ([System.Windows.Forms.Cursor]::Position.X)
$dY = ([System.Windows.Forms.Cursor]::Position.Y)
Write-Host $dX,$dY #print
}

#Ejercicio 3
#Almacenar las posiciones en un fichero
for (1)
{
Start-Sleep -s 1
$dX = ([System.Windows.Forms.Cursor]::Position.X)
$dY = ([System.Windows.Forms.Cursor]::Position.Y)
Write-Host $dX,$dY
$dX.ToString()+','+$dY.ToString() | Out-File posicion.txt -Append
}

#Ejercicio 4
#Reproducir las posiciones almacenadas en un fichero
gc .\posicion.txt | %{
Start-Sleep -s 1
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point($_.split(',')[0],$_.split(',')[1])
}

#Ejercicio 5
#Hacer clic izquierdo en una posición de la pantalla
#Funciones y declaraciones necesarias para poder hacer clic 
$MouseEventSig=@’
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
‘@
$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru
#Hacer clic izquierdo en el botón de inicio
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0);
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0);

#Ejercicio 6
#Hacer clic derecho en una posición de la pantalla
#Funciones y declaraciones necesarias para poder hacer clic 
$MouseEventSig=@’
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
‘@
$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru
#Hacer clic derecho en el botón de inicio
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)
$MouseEvent::mouse_event(0x00000008, 0, 0, 0, 0);
$MouseEvent::mouse_event(0x00000010, 0, 0, 0, 0);

#Ejercicio 7
#Pintar una línea automáticamente en Paint
#Desde la posición 200,200 a la posición 300,300
Start-Process C:\WINDOWS\system32\mspaint.exe
Start-Sleep -Seconds 5
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(200,200)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
Start-Sleep -Seconds 2
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(300,300)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

#Ejercicio 1

#Posición X,Y

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

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

$dX,$dY

#Ejercicio 2

#Ver la posición X,Y de forma indefinida cada medio segundo

for ()

{

Start-Sleep -m 500

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

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

Write-Host $dX,$dY #print

}

#Ejercicio 3

#Almacenar las posiciones en un fichero

for (1)

{

Start-Sleep -s 1

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

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

Write-Host $dX,$dY

$dX.ToString()+','+$dY.ToString() | Out-File posicion.txt -Append

}

#Ejercicio 4

#Reproducir las posiciones almacenadas en un fichero

gc .\posicion.txt | %{

Start-Sleep -s 1

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point($_.split(',')[0],$_.split(',')[1])

}

#Ejercicio 5

#Hacer clic izquierdo en una posición de la pantalla

#Funciones y declaraciones necesarias para poder hacer clic

$MouseEventSig=@’

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

‘@

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru

#Hacer clic izquierdo en el botón de inicio

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0);

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0);

#Ejercicio 6

#Hacer clic derecho en una posición de la pantalla

#Funciones y declaraciones necesarias para poder hacer clic

$MouseEventSig=@’

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

‘@

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru

#Hacer clic derecho en el botón de inicio

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(19,741)

$MouseEvent::mouse_event(0x00000008, 0, 0, 0, 0);

$MouseEvent::mouse_event(0x00000010, 0, 0, 0, 0);

#Ejercicio 7

#Pintar una línea automáticamente en Paint

#Desde la posición 200,200 a la posición 300,300

Start-Process C:\WINDOWS\system32\mspaint.exe

Start-Sleep -Seconds 5

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(200,200)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

Start-Sleep -Seconds 2

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(300,300)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Graphics PowerShell

Detectar el color de un píxel en PowerShell

06/03/201810/02/2018

$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

Graphics PowerShell

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

30/01/201827/12/2017

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

Graphics PowerShell

Comparar dos imágenes con PowerShell mostrando la diferencia

28/01/201827/12/2017

#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

Automation Graphics PowerShell

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

21/01/201826/12/2017

$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

}

Graphics PowerShell

Convert una imagen JPG a caracteres en la consola de PowerShell (obtener el negativo)

20/01/201826/12/2017

$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

}

Automation PowerShell

Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

17/01/201816/12/2017

#Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

$MouseEventSig=@'
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
'@

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name "MouseEventWinApi" -passThru

[System.Windows.Forms.SendKeys]::SendWait("^(2)")

while($true)
{
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([Int](Get-Random (10..1021)),[Int](Get-Random (10..800)))
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5
}

#Representar clicks en pantalla teniendo activado Zoomit para poder representar las coordenadas

$MouseEventSig=@'

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name "MouseEventWinApi" -passThru

[System.Windows.Forms.SendKeys]::SendWait("^(2)")

while($true)

{

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([Int](Get-Random (10..1021)),[Int](Get-Random (10..800)))

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

}

Older Posts