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)

}

Crear formularios (parte 3)

Formulario 1

#Crear un formulario, añadir una etiqueta, un botón y una caja de texto
#Funcionalidad para el formulario:
#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra
#Pulsar la tecla Escape sale del formulario

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

#Etiqueta
$Label=New-Object System.Windows.Forms.Label
$Label.Text="Etiqueta de ejemplo"
$Label.AutoSize=$True
$Label.Location=New-Object System.Drawing.Size(160,160)

#Botón
$Button=New-Object System.Windows.Forms.Button
$Button.Size=New-Object System.Drawing.Size(75,23)
$Button.Text="Botón de ejmplo"
$Button.Location=New-Object System.Drawing.Size(180,180)

#Caja de texto
$TextBox = New-Object System.Windows.Forms.TextBox
$TextBox.Location = New-Object System.Drawing.Size(100,220)
$TextBox.Size = New-Object System.Drawing.Size(260,20)

#Funcionalidad para el formulario:
#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra
#Pulsar la tecla Escape sale del formulario
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$Var=$TextBox.Text;Write-Host $Var;$Form.Close()}})
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$Form.Close()}})

#Añadir etiqueta
$Form.Controls.Add($Label)

#Añadir botón
$Form.Controls.Add($Button)

#Añadir caja de texto
$Form.Controls.Add($TextBox)

$Form.ShowDialog()

#Crear un formulario, añadir una etiqueta, un botón y una caja de texto

#Funcionalidad para el formulario:

#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra

#Pulsar la tecla Escape sale del formulario

#Formulario

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

$Form.Text="Formulario"

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

$Form.StartPosition="CenterScreen"

#Etiqueta

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

$Label.Text="Etiqueta de ejemplo"

$Label.AutoSize=$True

$Label.Location=New-Object System.Drawing.Size(160,160)

#Botón

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

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

$Button.Text="Botón de ejmplo"

$Button.Location=New-Object System.Drawing.Size(180,180)

#Caja de texto

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

$TextBox.Location = New-Object System.Drawing.Size(100,220)

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

#Funcionalidad para el formulario:

#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra

#Pulsar la tecla Escape sale del formulario

$Form.KeyPreview = $True

$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$Var=$TextBox.Text;Write-Host $Var;$Form.Close()}})

$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$Form.Close()}})

#Añadir etiqueta

$Form.Controls.Add($Label)

#Añadir botón

$Form.Controls.Add($Button)

#Añadir caja de texto

$Form.Controls.Add($TextBox)

$Form.ShowDialog()

Formulario 2

#Crear un formulario, añadir una etiqueta, dos botones y una caja de texto
#Funcionalidad para el formulario:
#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra
#Pulsar la tecla Escape sale del formulario

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

#Etiqueta
$Label=New-Object System.Windows.Forms.Label
$Label.Text="Etiqueta de ejemplo"
$Label.AutoSize=$True
$Label.Location=New-Object System.Drawing.Size(160,160)

#Caja de texto
$TextBox = New-Object System.Windows.Forms.TextBox
$TextBox.Location = New-Object System.Drawing.Size(100,180)
$TextBox.Size = New-Object System.Drawing.Size(260,20)

#Botón1
$Button1=New-Object System.Windows.Forms.Button
$Button1.Size=New-Object System.Drawing.Size(75,23)
$Button1.Text="Botón OK"
$Button1.Location=New-Object System.Drawing.Size(120,220)

#Botón2
$Button2=New-Object System.Windows.Forms.Button
$Button2.Size=New-Object System.Drawing.Size(75,23)
$Button2.Text="Botón Cancelar"
$Button2.Location=New-Object System.Drawing.Size(220,220)

#Funcionalidad para el formulario:
#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra
#Pulsar la tecla Escape sale del formulario
$Form.KeyPreview = $True
$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$Var=$TextBox.Text;Write-Host $Var;$Form.Close()}})
$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$Form.Close()}})

#Funcionalidad para el botón:
#Pulsar Enter almacena en una variable el contenido de la caja de texto y se muestra
#Pulsar Escape sale del formulario
$Button1.Add_Click({$Var=$TextBox.Text;Write-Host $Var})
$Button2.Add_Click({$Form.Close()})

#Añadir etiqueta
$Form.Controls.Add($Label)

#Añadir botones
$Form.Controls.Add($Button1)
$Form.Controls.Add($Button2)

#Añadir caja de texto
$Form.Controls.Add($TextBox)

$Form.ShowDialog()

#Crear un formulario, añadir una etiqueta, dos botones y una caja de texto

#Funcionalidad para el formulario:

#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra

#Pulsar la tecla Escape sale del formulario

#Formulario

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

$Form.Text="Formulario"

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

$Form.StartPosition="CenterScreen"

#Etiqueta

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

$Label.Text="Etiqueta de ejemplo"

$Label.AutoSize=$True

$Label.Location=New-Object System.Drawing.Size(160,160)

#Caja de texto

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

$TextBox.Location = New-Object System.Drawing.Size(100,180)

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

#Botón1

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

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

$Button1.Text="Botón OK"

$Button1.Location=New-Object System.Drawing.Size(120,220)

#Botón2

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

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

$Button2.Text="Botón Cancelar"

$Button2.Location=New-Object System.Drawing.Size(220,220)

#Funcionalidad para el formulario:

#Pulsar la tecla Enter almacena en una variable el contenido de la caja de texto y se muestra

#Pulsar la tecla Escape sale del formulario

$Form.KeyPreview = $True

$Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$Var=$TextBox.Text;Write-Host $Var;$Form.Close()}})

$Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$Form.Close()}})

#Funcionalidad para el botón:

#Pulsar Enter almacena en una variable el contenido de la caja de texto y se muestra

#Pulsar Escape sale del formulario

$Button1.Add_Click({$Var=$TextBox.Text;Write-Host $Var})

$Button2.Add_Click({$Form.Close()})

#Añadir etiqueta

$Form.Controls.Add($Label)

#Añadir botones

$Form.Controls.Add($Button1)

$Form.Controls.Add($Button2)

#Añadir caja de texto

$Form.Controls.Add($TextBox)

$Form.ShowDialog()

Crear formularios (parte 2)

Formulario 1

#Crear un formulario, añadir una etiqueta y un botón
#Formulario
$Form=New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

#Etiqueta
$Label=New-Object System.Windows.Forms.Label
$Label.Text="Etiqueta de ejemplo"
$Label.AutoSize=$True
$Label.Location=New-Object System.Drawing.Size(185,180)

#Botón
$Button=New-Object System.Windows.Forms.Button
$Button.Size=New-Object System.Drawing.Size(75,23)
$Button.Text="Botón"
$Button.Location=New-Object System.Drawing.Size(200,200)

#Añadir etiqueta
$Form.Controls.Add($Label)
#Añadir botón
$Form.Controls.Add($Button)

$Form.ShowDialog()

#Crear un formulario, añadir una etiqueta y un botón

#Formulario

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

$Form.Text="Formulario"

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

$Form.StartPosition="CenterScreen"

#Etiqueta

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

$Label.Text="Etiqueta de ejemplo"

$Label.AutoSize=$True

$Label.Location=New-Object System.Drawing.Size(185,180)

#Botón

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

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

$Button.Text="Botón"

$Button.Location=New-Object System.Drawing.Size(200,200)

#Añadir etiqueta

$Form.Controls.Add($Label)

#Añadir botón

$Form.Controls.Add($Button)

$Form.ShowDialog()

Formulario 2

#Crear un formulario, añadir una etiqueta, un botón y una caja de texto
#Formulario
$Form = New-Object System.Windows.Forms.Form
$Form.Text="Formulario"
$Form.Size=New-Object System.Drawing.Size(500,500)
$Form.StartPosition="CenterScreen"

#Etiqueta
$Label=New-Object System.Windows.Forms.Label
$Label.Text="Etiqueta de ejemplo"
$Label.AutoSize=$True
$Label.Location=New-Object System.Drawing.Size(180,160)

#Botón
$Button=New-Object System.Windows.Forms.Button
$Button.Size=New-Object System.Drawing.Size(75,23)
$Button.Text="Botón"
$Button.Location=New-Object System.Drawing.Size(195,180)

#Caja de texto
$TextBox = New-Object System.Windows.Forms.TextBox
$TextBox.Location = New-Object System.Drawing.Size(110,215)
$TextBox.Size = New-Object System.Drawing.Size(260,20)

#Añadir etiqueta
$Form.Controls.Add($Label)

#Añadir botón
$Form.Controls.Add($Button)

#Añadir caja de texto
$Form.Controls.Add($TextBox)

$Form.ShowDialog()

#Crear un formulario, añadir una etiqueta, un botón y una caja de texto

#Formulario

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

$Form.Text="Formulario"

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

$Form.StartPosition="CenterScreen"

#Etiqueta

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

$Label.Text="Etiqueta de ejemplo"

$Label.AutoSize=$True

$Label.Location=New-Object System.Drawing.Size(180,160)

#Botón

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

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

$Button.Text="Botón"

$Button.Location=New-Object System.Drawing.Size(195,180)

#Caja de texto

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

$TextBox.Location = New-Object System.Drawing.Size(110,215)

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

#Añadir etiqueta

$Form.Controls.Add($Label)

#Añadir botón

$Form.Controls.Add($Button)

#Añadir caja de texto

$Form.Controls.Add($TextBox)

$Form.ShowDialog()

Crear formularios (parte 1)

Formulario 1

#Crear un formulario
$Form = New-Object System.Windows.Forms.Form
#Form.ShowDialog (Método)
#Muestra el formulario como un cuadro de diálogo modal
$Form.ShowDialog()

#Crear un formulario

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

#Form.ShowDialog (Método)

#Muestra el formulario como un cuadro de diálogo modal

$Form.ShowDialog()

Formulario 2

#Añadir un título a un formulario
$Form = New-Object System.Windows.Forms.Form
#Control.Text (Propiedad)
#Obtiene o establece el texto asociado al control
$Form.Text = "Nuevo formulario"
$Form.ShowDialog()

#Añadir un título a un formulario

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

#Control.Text (Propiedad)

#Obtiene o establece el texto asociado al control

$Form.Text = "Nuevo formulario"

$Form.ShowDialog()

Formulario 3

#Añadir una etiqueta a un formulario
$Form = New-Object System.Windows.Forms.Form
$Label = New-Object System.Windows.Forms.Label
$Label.Text = "Etiqueta de ejemplo"
#Label.AutoSize (Propiedad)
#Obtiene o establece un valor que indica si el control cambia automáticamente de tamaño para mostrar todo su contenido
$Label.AutoSize = $True
#Control.ControlCollection.Add (Método)
#Agrega el control especificado a la colección del control.
$Form.Controls.Add($Label)
$Form.ShowDialog()

#Añadir una etiqueta a un formulario

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

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

$Label.Text = "Etiqueta de ejemplo"

#Label.AutoSize (Propiedad)

#Obtiene o establece un valor que indica si el control cambia automáticamente de tamaño para mostrar todo su contenido

$Label.AutoSize = $True

#Control.ControlCollection.Add (Método)

#Agrega el control especificado a la colección del control.

$Form.Controls.Add($Label)

$Form.ShowDialog()

Formulario 4

#Añadir una etiqueta a un formulario con un estilo de fuente: Times New Roman tamaño 18 y ajustando el tamaño del formulario para poder ver correctamente la etiqueta
$Form = New-Object System.Windows.Forms.Form
#Font (Clase)
#Define un formato concreto para el texto, incluidos el nombre de fuente, el tamaño y los atributos de estilo. Esta clase no puede heredarse
$Font = New-Object System.Drawing.Font("Times New Roman",18,[System.Drawing.FontStyle]::Italic)
#Control.Font (Propiedad)
#Obtiene o establece la fuente del texto que muestra el control.
$Form.Font = $Font
$Label = New-Object System.Windows.Forms.Label
$Label.Text = "Etiqueta de ejemplo"
$Label.AutoSize = $True
$Form.Controls.Add($Label)
#Form.AutoScroll (Propiedad)
#Obtiene o establece un valor que indica si en el formulario se permite el desplazamiento automático
$Form.AutoScroll = $True
#Form.AutoSize (Propiedad)
#Cambie el tamaño del formulario de acuerdo con la configuración de AutoSizeMode
$Form.AutoSize = $True
#Form.AutoSizeMode (Propiedad)
#Obtiene o establece el modo por el que el formulario cambia automáticamente de tamaño
$Form.AutoSizeMode = "GrowAndShrink"
$Form.ShowDialog()

#Añadir una etiqueta a un formulario con un estilo de fuente: Times New Roman tamaño 18 y ajustando el tamaño del formulario para poder ver correctamente la etiqueta

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

#Font (Clase)

#Define un formato concreto para el texto, incluidos el nombre de fuente, el tamaño y los atributos de estilo. Esta clase no puede heredarse

$Font = New-Object System.Drawing.Font("Times New Roman",18,[System.Drawing.FontStyle]::Italic)

#Control.Font (Propiedad)

#Obtiene o establece la fuente del texto que muestra el control.

$Form.Font = $Font

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

$Label.Text = "Etiqueta de ejemplo"

$Label.AutoSize = $True

$Form.Controls.Add($Label)

#Form.AutoScroll (Propiedad)

#Obtiene o establece un valor que indica si en el formulario se permite el desplazamiento automático

$Form.AutoScroll = $True

#Form.AutoSize (Propiedad)

#Cambie el tamaño del formulario de acuerdo con la configuración de AutoSizeMode

$Form.AutoSize = $True

#Form.AutoSizeMode (Propiedad)

#Obtiene o establece el modo por el que el formulario cambia automáticamente de tamaño

$Form.AutoSizeMode = "GrowAndShrink"

$Form.ShowDialog()