Downdetector with PowerShell

using assembly System.Windows.Forms
using namespace System.Windows.Forms
 
function screenshot($path)
{
    Start-Process chrome "http://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 "http://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)

Abrir, ocultar el menú, poner en funcionamiento SDRSharp y recorrer el rango de frecuencias desde 400~470 MHz haciendo una captura de pantalla por cada frecuencia

#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

#Función para capturar la pantalla
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')
}

#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

#Ruta de la captura de pantalla
screenshot "e:\frecuencias\$_.bmp"
}

#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

#Función para capturar la pantalla

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

}

#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

#Ruta de la captura de pantalla

screenshot "e:\frecuencias\$_.bmp"

}

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)

}

Abrir una cuenta de Twitter y hacer capturas de pantalla de los tuits

#Función para capturar pantalla y almacenarla en un fichero
[Reflection.Assembly]::LoadWithPartialName("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')
}

#Abrir la cuenta de Twitter
Start-Process chrome http://twitter.com/microsoft

#Hacer captura de pantalla de la cuenta de Twitter, después de realizar la captura avanzar página y volver a realizar la captura de pantalla
$avanzar=0

do
{
Start-Sleep -Seconds 5

$path=’E:\twitter\captura'+$avanzar+'.bmp’
screenshot($path)

#Avanzar página
[System.Windows.Forms.SendKeys]::SendWait("{PGDN}")

$avanzar+=1
}while($avanzar -lt 10)

#Función para capturar pantalla y almacenarla en un fichero

[Reflection.Assembly]::LoadWithPartialName("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')

}

#Abrir la cuenta de Twitter

Start-Process chrome http://twitter.com/microsoft

#Hacer captura de pantalla de la cuenta de Twitter, después de realizar la captura avanzar página y volver a realizar la captura de pantalla

$avanzar=0

{

Start-Sleep -Seconds 5

$path=’E:\twitter\captura'+$avanzar+'.bmp’

screenshot($path)

#Avanzar página

[System.Windows.Forms.SendKeys]::SendWait("{PGDN}")

$avanzar+=1

}while($avanzar -lt 10)

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

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

}