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

#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

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

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

}

Añadir una marca de agua a una imagen

#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

[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')

}

Simular la transmisión de vídeo entre un cliente y un servidor (streaming)

Dividir un vídeo MP4 en imágenes

D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\thesmash.mp4 -f image2 -pix_fmt bgr8 D:\power\video\capturas2\%01d.bmp

1	D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\thesmash.mp4 -f image2 -pix_fmt bgr8 D:\power\video\capturas2\%01d.bmp

Enviar cada una de las imágenes entre un cliente y un servidor Cliente que envía la imágenes al servidor:

function send-msg($file)
{
$client = New-Object System.Net.Sockets.TcpClient "localhost", 8982
$stream = $client.GetStream()
$writer = New-Object System.IO.StreamWriter $stream

$bytes = [System.IO.File]::ReadAllBytes($file)
#$writer.WriteLine($bytes)
$writer.Write($bytes,0,$bytes.length)
$writer.Dispose()
$stream.Dispose()
$client.Dispose()
}

ls F:\power\video\captura\ | %{send-msg($_.FullName)}

function send-msg($file)

{

$client = New-Object System.Net.Sockets.TcpClient "localhost", 8982

$stream = $client.GetStream()

$writer = New-Object System.IO.StreamWriter $stream

$bytes = [System.IO.File]::ReadAllBytes($file)

#$writer.WriteLine($bytes)

$writer.Write($bytes,0,$bytes.length)

$writer.Dispose()

$stream.Dispose()

$client.Dispose()

}

ls F:\power\video\captura\ | %{send-msg($_.FullName)}

Servidor que recibe las imágenes que le envía el cliente:

$endpoint = new-object System.Net.IPEndPoint ([system.net.ipaddress]::any, 8982)
$listener = new-object System.Net.Sockets.TcpListener $endpoint
$listener.start()
$contador=0
do {
$client = $listener.AcceptTcpClient()
$stream = $client.GetStream();

$reader = New-Object System.IO.StreamReader $stream

$lines=$reader.ReadToEnd()

$enc = [system.Text.Encoding]::Default
$filebytes = $enc.GetBytes($lines)

$contador=$contador+1
[System.IO.File]::WriteAllBytes('F:\power\video\capturas2\'+$contador+'.bmp', $filebytes)

$reader.Dispose()
$stream.Dispose()
$client.Dispose()

} while (1)

$endpoint = new-object System.Net.IPEndPoint ([system.net.ipaddress]::any, 8982)

$listener = new-object System.Net.Sockets.TcpListener $endpoint

$listener.start()

$contador=0

do {

$client = $listener.AcceptTcpClient()

$stream = $client.GetStream();

$reader = New-Object System.IO.StreamReader $stream

$lines=$reader.ReadToEnd()

$enc = [system.Text.Encoding]::Default

$filebytes = $enc.GetBytes($lines)

$contador=$contador+1

[System.IO.File]::WriteAllBytes('F:\power\video\capturas2\'+$contador+'.bmp', $filebytes)

$reader.Dispose()

$stream.Dispose()

$client.Dispose()

} while (1)

Juntar las imágenes en un vídeo MP4

D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\capturas3\%01d.bmp -r 10 D:\power\video\thesmash23.mp4

1	D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\capturas3\%01d.bmp -r 10 D:\power\video\thesmash23.mp4

Añadir una marca de agua a un vídeo MP4

Dividir un vídeo MP4 en imágenes

D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\thesmash.mp4 -f image2 -pix_fmt bgr8 D:\power\video\capturas2\%01d.bmp

1	D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\thesmash.mp4 -f image2 -pix_fmt bgr8 D:\power\video\capturas2\%01d.bmp

Añadir un texto a cada una de la imágenes

#Cargar System.Drawing
[Reflection.Assembly]::LoadWithPartialName("System.Drawing")
#Listar imágenes 
Get-ChildItem D:\power\video\capturas2 | %{
#Listar cada imagen
$_
#Cargar imagen
$imagen = [System.Drawing.Image]::FromFile($_.FullName)
#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\video\capturas3\'+$_.Name,[System.Drawing.Imaging.ImageFormat]::Bmp)
$bmp.Dispose()
$imagen.Dispose()
}

#Cargar System.Drawing

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

#Listar imágenes

Get-ChildItem D:\power\video\capturas2 | %{

#Listar cada imagen

#Cargar imagen

$imagen = [System.Drawing.Image]::FromFile($_.FullName)

#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\video\capturas3\'+$_.Name,[System.Drawing.Imaging.ImageFormat]::Bmp)

$bmp.Dispose()

$imagen.Dispose()

}

Juntar las imágenes en un vídeo MP4

D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\capturas3\%01d.bmp -r 10 D:\power\video\thesmash23.mp4

1	D:\program\ffmpeg\bin\ffmpeg.exe -i D:\power\video\capturas3\%01d.bmp -r 10 D:\power\video\thesmash23.mp4

Añadir una marca de agua a varias imágenes

#Cargar System.Drawing
[Reflection.Assembly]::LoadWithPartialName("System.Drawing")
#Listar imágenes 
Get-ChildItem D:\power\video\capturas2 | %{
#Listar cada imagen
$_
#Cargar imagen
$imagen = [System.Drawing.Image]::FromFile($_.FullName)
#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\video\capturas3\'+$_.Name,[System.Drawing.Imaging.ImageFormat]::Bmp)
$bmp.Dispose()
$imagen.Dispose()
}

#Cargar System.Drawing

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

#Listar imágenes

Get-ChildItem D:\power\video\capturas2 | %{

#Listar cada imagen

#Cargar imagen

$imagen = [System.Drawing.Image]::FromFile($_.FullName)

#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\video\capturas3\'+$_.Name,[System.Drawing.Imaging.ImageFormat]::Bmp)

$bmp.Dispose()

$imagen.Dispose()

}

Realizar miniaturas de los últimos dominios indexados

(((Invoke-WebRequest 'http://es.wsdata.co/2016-02-23/domains-list.html').AllElements).where{$_.class -eq "responsive"}).innerHTML -split '[\r\n]' |%{
if($_ -match 'href')
{
Start-Sleep -Seconds 5
$Domain=$_ -replace "<.*?>"
Start-Process chrome $Domain

$Path=’D:\power\dominios\'+$Domain.replace('.','')+'.bmp’
$Path
$Bitmap=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)
$Graphics=[System.Drawing.Graphics]::FromImage($Bitmap)
$Graphics.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $Bitmap.Size)
$Graphics.Dispose()
$Bitmap.Save($Path,'Bmp')
$Bitmap.Dispose()

$BitmapT = [System.Drawing.Image]::FromFile($Path)
$Thumbnail = $BitmapT.GetThumbnailImage(200, 200, $null, [intptr]::Zero)
$Thumbnail.Save($Path+".thumbnail.jpg" )
$BitmapT.Dispose()
$Thumbnail.Dispose()
}
}

(((Invoke-WebRequest 'http://es.wsdata.co/2016-02-23/domains-list.html').AllElements).where{$_.class -eq "responsive"}).innerHTML -split '[\r\n]' |%{

if($_ -match 'href')

{

Start-Sleep -Seconds 5

$Domain=$_ -replace "<.*?>"

Start-Process chrome $Domain

$Path=’D:\power\dominios\'+$Domain.replace('.','')+'.bmp’

$Path

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

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

$Graphics.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $Bitmap.Size)

$Graphics.Dispose()

$Bitmap.Save($Path,'Bmp')

$Bitmap.Dispose()

$BitmapT = [System.Drawing.Image]::FromFile($Path)

$Thumbnail = $BitmapT.GetThumbnailImage(200, 200, $null, [intptr]::Zero)

$Thumbnail.Save($Path+".thumbnail.jpg" )

$BitmapT.Dispose()

$Thumbnail.Dispose()

}