capturar ventana activa, funciona pero...

[gnzsoloyo]

En el evento Click un botón, poner esto:

Código vb.net:

Dim oImagen As Image = GetWindowCapture()
        oImagen.Save(oFile, Imaging.ImageFormat.Jpeg)
 

Donde oFile es una variable stringo con el nombre del archivo con la ruta completa donde se grabará.

A esto hay que agregarle el método:

Código vb.net:

Public Function GetWindowCapture() As Image
        Dim objTecla As SendKeys
        Dim oBitmap As Bitmap
        objTecla.SendWait("%{PRTSC}")
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function