Red de conocimiento informático - Espacio del host - Función API interceptada

Función API interceptada

He escrito un software de captura de pantalla escrito en VB, que puede personalizar un rectángulo para capturar un área específica. Si es necesario, dime tu dirección de correo electrónico y te enviaré el código fuente.

API principal:

Public Const PM _ REMOVE = & ampH1

Mensajes relacionados con el mouse

Public Const WM _ MOUSEFIRST = & ampH200

Const pública WM _ MOUSELAST = & ampH209

Const pública WM _ RBUTTONDOWN = & ampH204

Const pública WM _ LBUTTONDOWN = & ampH201

Const pública WM_RBUTTONUP = & ampH205

Const pública WM_LBUTTONUP = & ampH202

Const pública WM_MOUSEMOVE = & ampH200

Constante de función BitBlt

Const Pública SRCCOPY = & ampHCC0020

Servicios de Construcción Pública = & ampH660046

Constante de función PatBlt

Constante pública DINV = 3 p>

Public Const DSTINVERT = & ampH550009

Signo RECT

Igual longitud en la izquierda

Misma longitud en la parte superior

Misma longitud

Los fondos tienen la misma longitud

Tipo final

Tipo POINTAPI

x tienen la misma longitud

Siempre y cuando

Tipo final

Tamaño de fuente

cx tenga la misma longitud

cy tenga la misma longitud

Tipo de fin

Tipo de mensaje

hwnd tiene la misma longitud

Longitud del mensaje

wParam tiene la misma longitud

lParam tiene la misma longitud

El tiempo tiene la misma longitud

pt que POINTAPI

Tipo de fin

Funciones de Windows sobre mensajes

Declarar función PeekMessage Lib "usuario 32" alias "PeekMessageA"

(lpMsg es Msg, ByVal hwnd es Long,_

ByVal wMsgFilterMin solamente,_

ByVal wMsgFilterMax As Long,_

ByVal wRemoveMsg As Long _

) tiene la misma longitud

Declare la función esperar mensaje Lib "usuario 32" () como Largo

Declarar la función traducir mensaje Lib "usuario 32" (lpMsg As msg) se declara como Largo

Declarar función enviar mensaje Lib " usuario 32" alias "DispatchMessageA"

(lpMsg As msg) tiene la misma longitud

Declarar función postmessagelib "usuario 32" alias "PostMessageA"\u

(ByVal hwnd As Long,_

ByVal wMsg As Long,_

ByVal wParam As Long, _

ByVal lParam As Long _

) siempre que

Función de captura del mouse

Poner la función de captura del conjunto Lib "usuario 32" (ByVal hwnd As Long) se declare como Long

Declarar la función libera captura Lib "usuario 32" () como Long

Declara la función get capt

ure Lib "user 32" () declarada como Long

Declarada la función DeleteDC Lib "GDI 32" (ByVal hdc As Long) como Long

Declarada la función eliminar objeto Lib "GDI 32 " \u

(ByVal hObject tiene la misma longitud) tiene la misma longitud

Función de declaración gettextextendpoint 32 Lib " GDI 32 " Alias ​​​​" gettextextendpoint 32a " u

(ByVal hdc Misma longitud, _

ByVal lpszString como cadena, _

ByVal cbString As Long, _

lpSize As Size _

) Misma longitud

La función de declaración es rect vacía Lib "usuario 32" (lpRect As RECT) misma longitud

Función de declaración PatBlt Lib "GDI 32"

(ByVal hdc tiene la misma longitud, _

ByVal p>

ByVal dwRop As Long _

) la misma longitud

Declarar la biblioteca de rectángulos de funciones "gdi32"

(ByVal hdc tiene la misma longitud, _

ByVal X1 tiene la misma longitud, ByVal Y1 tiene la misma longitud,_

BYD Declara la función screento cliente Lib "usuario 32"

(ByVal hwnd As Long, _

lpPoint As POINTAPI _

) la misma longitud

Declarar función seleccionar objeto Lib " GDI 32 " \u

(ByVal hdc tiene la misma longitud, _

ByVal hObject As Long _

) tiene la misma longitud

Declarar función TextOut Lib "GDI 32" alias "TextOutA"

(ByVal hdc tiene la misma longitud, _

ByVal x tiene la misma longitud, ByVal y tiene la misma longitud, _

ByVal lpString como una cadena, _

ByVal nCount As Long _

) la misma longitud

Función de declaración SetTextColor Lib "GDI 32" u

(ByVal hdc tiene la misma longitud, _

ByVal crColor As Long _

) tiene la misma longitud

Declare la función SetBkColor Lib " GDI 32 " u

(ByVal hdc tiene la misma longitud, _

ByVal crColor As Long _

) tiene la misma longitud

Declare la función SetForegroundWindow biblioteca "user32"

(ByVal hwnd As Long) Misma longitud

Declarar la función de actualización de la ventana Lib "usuario 32" (ByVal hwnd As Long) como Long

Declarar la función WindowFromPoint Lib "usuario 32" u

(ByVal xPoint As Long, _

PorValorPunto Mientras _

) misma longitud

Declarar función BitBlt Lib "GDI 32"

(ByVal hDestDC As Long, _

ByVal x misma longitud, _

Solo por Val y,_

Solo por Val nAncho,_

PorVal nAltura como largo,_

PorVal hSrcDC como largo,_

ByVal xSrc As Long,_

ByVal ySrc As Long,_

ByVal dwRop As Long _

)La misma longitud

Declarar función CreateDCNull Lib "GDI 32" alias "CreateDCA"

(ByVal lpDriverName como cadena,_

ByVal lpDeviceName como cadena,_

ByVal lpOutput en forma de cadena, _

ByVal lpInitData As Long _

)

Función de declaración ReleaseDC Lib " usuario 32 " \u

(ByVal hwnd As Long, _

ByVal hdc As Long _

) tiene la misma longitud

Declare la función GetDeviceCaps Lib " GDI 32 " u

(ByVal hdc tiene la misma longitud, _

ByVal nIndex As Long _

) tiene la misma longitud

Función de declaración crear mapa de bits Lib " GDI 32 " \u

(ByVal nWidth As Long,_

ByVal nHeight As Long,_

El plan ByVal tiene la misma longitud,_

ByVal nBitCount As Long, _

lpBits As Any _

) la misma longitud

Declarar función cliente en la pantalla Lib "usuario 32"

(ByVal hwnd As Long, _

lpPoint As POINTAPI _

) tiene la misma longitud

Declare la función CreateCompatibleDC Lib " GDI 32 " u

(ByVal hdc tiene la misma longitud)

Declara la función abrir portapapeles Lib "usuario 32"

(ByVal hwnd tiene la misma longitud ) tiene la misma longitud

La función de la biblioteca EmptyClipboard "user32" () declarada como Long

Declarar la función setclipboarddatalib "user 32"

(ByVal wFormat As Long , _

ByVal hMem As Long _

) misma longitud

Declarar función CreateDC Lib "GDI 32" alias "CreateDCA"

(ByVal lpDriverName como cadena,_

ByVal lpDeviceName como una cadena, _

ByVal lpOutput en forma de cadena, _

lpInitData es Long _

) la misma longitud

Declare la función CreateCompatibleBitmap Lib " GDI 32 " u

(ByVal hdc tiene la misma longitud, _

ByVal

Siempre que nWidth sea tan largo como _

ByVal nHeight As Long _

)

Declare la función cerrar portapapeles Lib "usuario 32" () como Long