Cómo implementar la función de interceptación en VB

Tres segundos después de hacer clic en el botón, la pantalla completa se cortará automáticamente y la captura de pantalla se colocará en d:\zt.

Función de declaración privada GetDC Lib "usuario 32" (ByVal hwnd As Long) es Long

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

Función de declaración privada GetActiveWindow Lib "user32 "() es Long

tenue

Subcomando privado 1_Click()

Temporizador 1. Enabled=True

Finalizar conector

Subform_Load() privado

Continuar en caso de error

MkDir "d: \zt " 'Crear carpeta .

Yo. AutoRedraw = True

Conector final

Subtemporizador privado 1_Timer()

a = a + 1

Si a = 3, Luego comience a capturar la pantalla en tres segundos.

Yo. Ocultar

BitBlt Me.hDC, 0, 0, pantalla. ancho, pantalla. Altura

Captura de pantalla "Getdc (getactivewindow), 0, 0, vbsrccopy".

Yo. Mostrar

Archivo atenuado como cadena

sFile = " d:\ ZT \ " & formato (ahora "aaaammdd hhmmss") & ".BMP "

Guardar una foto para mi. Imagen, sArchivo 'Sálvame.hDC

Temporizador 1. enable=false

Finalizar si...

Finalizar adaptación