Código VB que toma una captura de pantalla y la guarda como una imagen.

Declaración privada Sub keybd_event Lib "user32" (ByVal bVk como byte, ByVal Scan como byte, ByVal dwFlags mientras, ByVal dwExtraInfo mientras)

Const VK _SNAPSHOT como byte = & p>Private Sub Command1_Click() 'Guarda la imagen completa de la pantalla en un archivo

keybd_event VK_SNAPSHOT, 0, 0, 0

DoEvents

SavePicture Clipboard.GetData (vbCFBitmap), "c:\abc.bmp"

End Sub

Private Sub Command2_Click() 'Guarda la imagen de la ventana de la aplicación actual en un archivo

keybd_event VK_SNAPSHOT, 0, 0,0

DoEvents

keybd_event event VK_SNAPSHOT, 1, 0, 0

DoEvents

SavePicture Portapapeles.GetData(vbCFBitmap), "c:\abc.bmp"

End Sub