VB.Net - Capturar pantalla

Ahora vamos a crear un jpg que contenga una captura de la pantalla.

Hemos creado una función que devuelve una imagen, usamos el SendKeys para capturar la pantalla y la extraemos del portapapeles, luego llamaremos a la funcion y el resultado lo guardaremos en una ruta del disco duro.
Mira que bonito olle!

Public Function TrincarImagen() As Image

' Tamaño de lo que queremos copiar
' En este caso el tamaño de la ventana principal
Dim fSize As Size = Screen.PrimaryScreen.Bounds.Size
' Creamos el bitmap con el área que vamos a capturar
Dim bm As New Bitmap(fSize.Width, fSize.Height)
' Un objeto Graphics a partir del bitmap
Dim gr As Graphics = Graphics.FromImage(bm)
' Copiar todo el área de la pantalla
gr.CopyFromScreen(0, 0, 0, 0, fSize)

Return bm
End Function

Ahora solo queda llamar a la funcion y guardar la imagen. Seria algo asi:


Dim Pantallazo As Image
Pantallazo = TrincarImagen()
Pantallazo.Save("RUTA\pantallazo.jpg")



Listo!

You liked this post? Subscribe via RSS feed and get daily updates.

5 comentarios:

  1. Hola, te felicito por la información, clara y concisa.
    Mi consulta, después de hacer el save a disco manejo la imagen grabada y cuando le hago delete no me deja por estar en uso, Qué debo hacer? Desde ya muchas gracias.
    Saludos. Pablo.

  2. hola es muy didáctico
    si me puedes ayudar con esto me sale un error al crear un directorio
    Public Class Form1
    Public Function TrincarImagen() As Image
    Dim fSize As Size = Screen.PrimaryScreen.Bounds.Size
    Dim bm As New Bitmap(fSize.Width, fSize.Height)
    Dim gr As Graphics = Graphics.FromImage(bm)
    gr.CopyFromScreen(0, 0, 0, 0, fSize)
    Return bm
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Pantallazo As Image
    Dim CARPETA As String
    Pantallazo = TrincarImagen()
    CARPETA = InputBox("CUAL ES EL DANE DE LA SEDE Y EL NOMBRE")
    My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & CARPETA & " ")
    Pantallazo.Save("S:\ANTIVIRUZ\INGETTEL\" & CARPETA & "\pantallazo.jpg")
    End Sub
    End Class

  3. metete en el culo esa basura,,

  4. metete en el culo esa basura,,

  5. precisamente lo que necesitaba, gracias

Publicar un comentario en la entrada