Red de conocimiento informático - Problemas con los teléfonos móviles - Código de captura de pantalla de VB

Código de captura de pantalla de VB

Captura de pantalla de VB, guardar en archivo de mapa de bits

'Sección de declaración

Opción explícita

Const privada SRCCOPY = &HCC0020

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

Función de declaración privada GetDesktopWindow Lib "user32" () As Long

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

Función de declaración privada ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

'Parte del código del formulario

Private Sub Form_Load( )

Me.AutoRedraw = True

End Sub

Subcomando privado1_Click()

CopyScreen "d:\1. bmp"

End Sub

Sub CopyScreen(FileName As String)

Dim w As Long, h As Long

Dim hwndSrc As Long

Atenuar hSrcDC siempre

hwndSrc = GetDesktopWindow()

hSrcDC = GetWindowDC(hwndSrc)

w = Screen.Width \ Screen. TwipsPerPixelX

h = Screen.Height \ Screen.TwipsPerPixelY

Llamar a BitBlt(hdc, 0, 0, w, h, hSrcDC, 0, 0, SRCCOPY)

Llame a ReleaseDC(hwndSrc, hSrcDC)

SavePicture Me.Image, FileName

End Sub

Guarde la captura de pantalla completa en el nombre de archivo especificado Archivo de mapa de bits

CopyScreen(FileName As String)

El parámetro FileName puede ser la ruta completa del nombre del archivo