Vb obtiene el identificador de ventana

Definición de función API

Función de declaración privada getwindowtextlib "usuario 32" alias "GetWindowTextA" (ByVal hwnd es Long, ByVal lpString es String, ByVal cch es Long) es Long

Función de declaración privada mostrar ventana Lib "usuario 32" (ByVal hwnd es Long, ByVal nCmdShow es Long) es Long

Función de declaración privada GetWindow Lib "usuario 32" (ByVal hwnd tiene la misma longitud , ByVal La misma longitud que wCmd)

La función de declaración privada GetClassName Lib "user32 "alias" GetClassNameA" (ByVal hwnd es Long, ByVal lpClassName es String, ByVal nMaxCount es Long) es Long

Const GW_HWNDFIRST = 0

Const GW_HWNDNEXT = 2

Subcomando privado 1_Click()

Atenuar s mientras

Tome un como una cadena de caracteres dim

a = space(255)

S = getwindow (me.hwnd, GW_hwndfirst)' para obtener el identificador.

' GetWindowText s,a,255 'Obtiene el título.

Marque ab como cadena * 255

GetClassName s, ab, 255 ' para obtener el nombre de la clase.

Marcar el nombre de la clase como una cadena

nombre de clase = striper flag(ab)' el striper flag es una función definida por el usuario, seguida de un código, que se utiliza para eliminar el terminador.

Si UCase(ClassName) = "NOTEPAD", entonces

List1. Adjuntar una

Lista1. ItemData(List1.ListCount - 1) = s

Terminará si...

Mientras lo hace

Múltiples actividades

S = GetWindow(s, GW_HWNDNEXT)' para obtener el identificador.

' GetWindowText s,a,255 'Obtiene el título.

GetClassName s,ab,255 'Para obtener el nombre de la clase.

ClassName = StripTerFlag(ab)

Si UCase(ClassName) = "NOTEPAD", entonces

List1. Adjuntar una

Lista1. ItemData(List1. ListCount - 1) = s

Terminará si...

Bucle

Conector final

Sublista privada1_Click ( )

' lista de msgbox 1 . datos del elemento (lista 1 . listindex)' Haga clic en el cuadro de lista para obtener el identificador.

Conector final