vb Obtiene todos los identificadores de ventana que cumplen las condiciones
Función de declaración privada GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString Como cadena, ByVal cch As Long) As Long
Const privada GW_HWNDFIRST = 0
Const privada GW_HWNDNEXT = 2
Subcomando privado1_Click()
Dim lngHwnd As Long, ret As Long
Dim s As String * 255
Dim sName As String
lngHwnd = GetWindow(Me.hwnd, GW_HWNDFIRST)
Hacer mientras lngHwnd
ret = GetWindowText(lngHwnd, s, 255)
sName = En blanco(s)
Si InStr( sName, "111") <> 0 luego
'Escribe aquí el código relevante para agregar un identificador a la matriz
End If
lngHwnd = GetWindow( lngHwnd, GW_HWNDNEXT)
Bucle
End Sub
Función pública en blanco (ByVal szString As String) Como cadena
Dim l Como entero
l = InStr(szString, Chr(0))
Si l > 0 entonces
En blanco = Left(szString, l - 1 )
p>De lo contrario
En blanco = szString
Finalizar si
Finalizar función