Código:
' Función para recorrer las ventanas abiertas
Public Function EnumCallback(ByVal A_hwnd As Long, _
ByVal param As Long) As Long
Dim buffer As String * 256
Dim Titulo_Win As String
Dim Size_buffer As Long
'Retorna la cantidad de caracteres del título de la ventana actual
Size_buffer = GetWindowText(A_hwnd, buffer, Len(buffer))
'Elimina los espacios nulos de la cadena
Titulo_Win = Left$(buffer, Size_buffer)
'(hasta aquí no hace falta cambiar nada) supongo
'si se encuentra la cadena en el caption de la ventana se cierra
If InStr(Titulo_Win, El_titulo) <> 0 Then
' Finaliza la ventana
SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0& '(supongo que sta parte se cambia)
End If
' Esto continúa enumerando las siguientes ventanas de windows
EnumCallback = 1
End Function
Por favor que alguien me ayude a conseguir lo que pretendo, muchas gracias de antemano.
code entero: http://www.recursosvisualbasic.com.ar/htm/listado-api/142-cerrar-ventana-de-windows-sendmessage.htm