RE:Como capturar el titulo de una ventana
Te sugiero que abras un proyecto nuevo con un fom1, en el cual debes poner un timer, que se debe llamar Timer1, e introducir el siguiente codigo en el formulario.
Option Explicit
'Constantes
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
' funciones Api
Private Declare Sub SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long)
'Función que recupera el texto de la ventana
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
' Recupera el Hwnd de la ventana
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Form_Load()
Me.FontSize = 10
Timer1.Interval = 300
'Esto es para que quede el formulario OnTop
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, _
0, 0, 500, 100, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
End Sub
Private Sub Timer1_Timer()
Dim hwnd_Ventana As Long
Dim Caption_Ventana As String
Dim length As Long
' Captura el Hwnd de la ventana activa
hwnd_Ventana = GetForegroundWindow()
'Crea un Buffer para el caption del title bar
Caption_Ventana = Space$(1024)
' Retorna la cantidad de caracteres
length = GetWindowText(hwnd_Ventana, Caption_Ventana, Len(Caption_Ventana))
' Obtiene solo el caption sin los espacios nulos de la cadena
Caption_Ventana = Left$(Caption_Ventana, length)
Me.Cls
'Imprime el caption de la ventana que tiene el foco en el _
formulario y el HWND
Me.Print "HWND: -> " & CStr(hwnd_Ventana)
Me.Print "Título: -> " & Caption_Ventana
End Sub