vb Ingrese el nombre del proceso para obtener el título del formulario

Tomando el Bloc de notas como ejemplo, hay varios Bloc de notas ejecutándose en el sistema.

Código del módulo: Función de declaración pública GetWindowText Lib "user32" alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Función de declaración pública EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Función de declaración pública IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Const pública GW_OWNER = 4

Función de declaración pública GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

WndCaption público como cadena

Público Función EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long, ByVal hwnd As Long ByVal lParam As Long) Como booleano

Dim S como cadena

Atenuar a As Long

Atenuar v siempre

S = String(255, 0)

Llamar a GetWindowText( hwnd, S, 255)

S = Izquierda(S , InStr(S, Chr(0)) - 1)

v = GetWindow(hwnd, GW_OWNER)

a = IsWindowVisible(hwnd)

Si Len (S) &gt; 0 Y a <> 0 Y v = 0 Y Derecha(S, 3) = "Bloc de notas" Entonces

WndCaption = WndCaption & >

Finalizar si

EnumWindowsProc = True

Finalizar función

Código de ventana:

Privada?Sub?Command1_Click()

EnumWindows?AddressOf?

EnumWindowsProc,?0&

MsgBox?WndCaption

End?Sub

Código de ventana ：

¿Privado?