Encuentre el código fuente para el truncamiento y escalado de páginas web

lngHwnd = FindWindowEx(Me.hwnd, 0, "Shell Embedded", vbNullString)

lngHwnd = FindWindowEx(lngHwnd, 0, "Shell Document Object View", vbNullString)

p>

Una instantánea de la página web, que se muestra como Imagen 1 y luego se guarda como un archivo.

SendMessage lngHwnd, WM_PRINT, Picture1.hDC, PRF_CHILDREN o PRF_CLIENT o PRF_ERASEBKGND o PRF_NONCLIENT o PRF_OWNED

Actividades múltiples

Este código envía la instantánea del navegador web a Picture control .

Se puede guardar con savepivture.

Si desea hacer zoom y guardar, puede llamar a API (StrechBlt) para hacer zoom y luego enviarlo a la imagen.

Si hay varias ventanas, consulte primero la descripción de la función de FindWindowEx.

Menú Eliminar

Alias ​​la función FindWindowEx Lib "usuario 32" a "FindWindowExA" (ByVal hwnd 1 es Long, ByVal hWnd2 es Long, ByVal lpsz1 es String, ByVal lpsz2 es Cadena) Declarada como larga

Explicación

Encuentre la primera ventana secundaria que cumpla con la condición especificada en la lista de ventanas.

Valor de retorno

Long, el identificador de la ventana encontrada. Si no se encuentra ninguna ventana coincidente, se devuelve cero. GetLastError

Lista de parámetros

Tipo y descripción de parámetro

HWnd1 Long se establecerá para encontrar la ventana principal de la ventana secundaria. Si se establece en cero, significa utilizar la ventana del escritorio (normalmente la ventana de nivel superior se considera una ventana secundaria del escritorio, por lo que también se buscará).

HWnd2 Dragon, empieza a ser optimista sobre esta ventana. De esta manera, podemos encontrar todas las ventanas secundarias calificadas llamando a FindWindowEx varias veces. Si se establece en cero, la búsqueda comenzará desde la primera subventana.

Cadena Lpsz1, el nombre de la clase a buscar. Cero significa ignorar.

Cadena Lpsz2, el nombre de la clase a buscar. Cero significa ignorar.

En otras palabras, el segundo parámetro puede especificar dónde comenzar la búsqueda.

Si se encuentra el primer navegador web, guárdelo en wlngHwnd.

La primera búsqueda aquí debe cambiarse a

wlngHwnd = FindWindowEx(Me.hwnd, 0, "Shell Embed", vbNullString)

lngHwnd = FindWindowEx ( wlngwnd, 0, "Shell Document Object View", vbNullString)

Entonces, si desea encontrar el segundo navegador web, debe comenzar a buscarlo desde este lngHwnd.

Es decir,

WLNGHWND = FindWindowex(I. HWND, WLNGHWND, "Shell Embed", VBNullString)' Preste atención a esta oración y obtenga el control del segundo control web.

lngHwnd = FindWindowEx(wlngwnd, 0, "Shell Document Object View", vbNullString)

En tercer lugar, este es el segundo identificador del navegador.

WLNGHWND = FindWindowex(i. HWND, WLNGHWND, "Shell Embed", VBNullString)' Preste atención a esta oración y obtenga el control del tercer control web.

lngHwnd = FindWindowEx(wlngwnd, 0, "Vista de objetos de documento de Shell", vbNullString)