Drawing | Scripting and security

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

(2 votes, average: 5.00 out of 5)

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

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

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

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

}

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

(No Ratings Yet)

#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

}

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

}

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

ZoomIt

(No Ratings Yet)

Introduction ZoomIt is a screen zoom and annotation tool for technical presentations that include application demonstrations. ZoomIt runs unobtrusively in […]

Crear una notificación en Windows con PowerShell

(No Ratings Yet)

$balloon = New-Object System.Windows.Forms.NotifyIcon 

#Configurar notificación
#Icono
$balloon.Icon  = [System.Drawing.Icon]::ExtractAssociatedIcon((Get-Process -Name notepad).Path) 
$balloon.BalloonTipIcon  = [string]$Icon = 'Info'
#Mensaje
$balloon.BalloonTipText  = "Mensaje"
#Título
$balloon.BalloonTipTitle  = "Título"
 
$balloon.Visible  = $true
$balloon.ShowBalloonTip(5000)

$balloon = New-Object System.Windows.Forms.NotifyIcon

#Configurar notificación

#Icono

$balloon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon((Get-Process -Name notepad).Path)

$balloon.BalloonTipIcon = [string]$Icon = 'Info'

#Mensaje

$balloon.BalloonTipText = "Mensaje"

#Título

$balloon.BalloonTipTitle = "Título"

$balloon.Visible = $true

$balloon.ShowBalloonTip(5000)

Hacer clic en una posición de la pantalla con PowerShell

(1 votes, average: 5.00 out of 5)

$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.Cursor]::Position = New-Object System.Drawing.Point(10,10)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

$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.Cursor]::Position = New-Object System.Drawing.Point(10,10)

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

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

Mover el ratón a una posición de la pantalla y hacer clic con PowerShell

(1 votes, average: 5.00 out of 5)

$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.Cursor]::Position = New-Object System.Drawing.Point(100,100)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

$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.Cursor]::Position = New-Object System.Drawing.Point(100,100)

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

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

Mover el ratón a una posición de la pantalla con PowerShell

(No Ratings Yet)

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

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

Downdetector with PowerShell

(3 votes, average: 3.67 out of 5)

using assembly System.Windows.Forms
using namespace System.Windows.Forms
 
function screenshot($path)
{
    Start-Process chrome "https://downdetector.com/status/level3/map/"
    Start-Sleep -Seconds 5
	$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 = [Form] @{
Text = 'Mi formulario'
BackgroundImageLayout = "None"
}
#Creación de los botones
$button = [Button] @{
 Text = 'Level3'
 Dock = 'Top'
}

#Acciones de los botones
$button.add_Click{

screenshot(".\test.bmp")

#Creación del formulario
$Image=[system.drawing.image]::FromFile(".\test.bmp")

$form2 = [Form] @{
Text = 'Mi formulario'
BackgroundImage = $Image
Width = $Image.Width
Height = $Image.Height
BackgroundImageLayout = "None"
}
$form2.ShowDialog()
}

#Añadir botones al formulario
$form.Controls.Add($button)
$form.ShowDialog()

using assembly System.Windows.Forms

using namespace System.Windows.Forms

function screenshot($path)

{

Start-Process chrome "https://downdetector.com/status/level3/map/"

Start-Sleep -Seconds 5

$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 = [Form] @{

Text = 'Mi formulario'

BackgroundImageLayout = "None"

}

#Creación de los botones

$button = [Button] @{

Text = 'Level3'

Dock = 'Top'

}

#Acciones de los botones

$button.add_Click{

screenshot(".\test.bmp")

#Creación del formulario

$Image=[system.drawing.image]::FromFile(".\test.bmp")

$form2 = [Form] @{

Text = 'Mi formulario'

BackgroundImage = $Image

Width = $Image.Width

Height = $Image.Height

BackgroundImageLayout = "None"

}

$form2.ShowDialog()

}

#Añadir botones al formulario

$form.Controls.Add($button)

$form.ShowDialog()

Automatizar SDRSharp con PowerShell (parte 5)

(No Ratings Yet)

Abrir, ocultar el menú, poner en funcionamiento SDRSharp y recorrer el rango de frecuencias desde 400~470 MHz haciendo una captura […]

Automatizar SDRSharp con PowerShell (parte 4)

(1 votes, average: 5.00 out of 5)

Abrir, ocultar el menú, poner en funcionamiento SDRSharp y recorrer el rango de frecuencias desde 400~470 MHz

#Abrir SDRSharp
Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(23,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(60,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(382,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400
[System.Windows.Forms.SendKeys]::SendWait("400")

Start-Sleep -Seconds 5

#Hacer 70 clics en la posición de la unidad en los MHz
1..70 | % {
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(422,46)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5
}

#Abrir SDRSharp

Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo

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

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

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

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp

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

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

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

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic

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

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

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

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400

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

Start-Sleep -Seconds 5

#Hacer 70 clics en la posición de la unidad en los MHz

1..70 | % {

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

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

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

Start-Sleep -Seconds 5

}

Automatizar SDRSharp con PowerShell (parte 3)

(No Ratings Yet)

Abrir, ocultar el menú y poner en funcionamiento SDRSharp en la frecuencia 400 MHz

#Abrir SDRSharp
Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(23,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(60,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(382,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400
[System.Windows.Forms.SendKeys]::SendWait("400")

#Abrir SDRSharp

Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo

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

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

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

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp

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

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

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

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic

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

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

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

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400

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

Pulsar en el primer resultado de la búsqueda en Baidu

(No Ratings Yet)

#Para la resolución de pantalla 1366 x 768

$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

Start-Process Chrome 'https://www.baidu.com/'

Start-Sleep -Seconds 5

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(384,302)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('PowerShell')
[System.Windows.Forms.SendKeys]::SendWait('{ENTER}')

Start-Sleep -Seconds 5

#Pulsar en el primer resultado de la búsqueda
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(198,212)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

#Para la resolución de pantalla 1366 x 768

$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

Start-Process Chrome 'https://www.baidu.com/'

Start-Sleep -Seconds 5

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

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

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

Start-Sleep -Seconds 5

[System.Windows.Forms.SendKeys]::SendWait('PowerShell')

[System.Windows.Forms.SendKeys]::SendWait('{ENTER}')

Start-Sleep -Seconds 5

#Pulsar en el primer resultado de la búsqueda

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

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

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

Automatizar SDRSharp con PowerShell (parte 2)

(No Ratings Yet)

Abrir, ocultar el menú y poner en funcionamiento SDRSharp

#Abrir SDRSharp
Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(23,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(60,52)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

#Abrir SDRSharp

Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para 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 en el botón del menú para ocultarlo

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

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

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

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp

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

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

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

Older Posts