Programa de captura de pantalla VB

Este es el código de captura de pantalla. El programa toma una captura de pantalla después de ejecutarse durante 3 segundos, la muestra en vb y guarda la imagen en la carpeta d:\zt. Para GetDC (GetActiveWindow), 0, 0, vbSrcCopy '0,0 en la pantalla interceptada son las coordenadas de la intercepción. Puede ajustar las coordenadas para controlar el área interceptada. 0,0 es la pantalla completa. >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 As Long, 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" () Mientras

Atenuar un

Subcomando privado1_Click()

Timer1.Enabled = True

Finalizar sub

Timer1. Private Sub Form_Load()

En caso de error, reanudar siguiente

MkDir "d：\zt" 'Crear carpeta

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 = "d：\zt\" amp Format(Now, "yyyymmddhhmmss") amp; ; " .BMP "

SavePicture Me.Image, sFile 'Save Me.hDC

Timer1.Enabled = False

Finalizar si

Fin del subtítulo