Cómo tomar una captura de pantalla en vb y guardarla en una carpeta específica

Método muy simple, simulación sin pulsación de teclas. Simplemente use un control de temporizador y un botón.

Función de declaración privada GetDC Lib "user32" (ByVal hwnd As Long) Mientras

Función de declaración privada BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y mientras, ByVal nWidth mientras, ByVal nHeight mientras, ByVal hSrcDC mientras, ByVal xSrc mientras, ByVal ySrc mientras, ByVal dwRop mientras) Mientras

Función de declaración privada GetActiveWindow Lib "user32 " () Siempre que

Atenúe un

Subcomando privado1_Click()

Timer1.Enabled = True

Fin Sub

Private Sub Form_Load()

En caso de error, reanudar siguiente

MkDir "c:\zt" 'Carpeta de compilación

Me.AutoRedraw = True

End Sub

Private Sub Timer1_Timer()

a = a 1

Si a = 3 Entonces 'Iniciar captura de pantalla en tres segundos

Me.Hide

BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, _

GetDC(GetActiveWindow), 0, 0 , vbSrcCopy 'Capturar pantalla

Me.Show

Dim sFile As String

sFile = "C:\zt\" amp 'Obtener el archivo después de tres visualización de la pantalla de segundos. Formato(Ahora, "yyyymmddhhmmss") & ".BMP"

SavePicture Me.Image, sFile 'Save Me.hDC

Timer1.Enabled = False

Finalizar si

Fin Sub