Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "User32" () As Long
Dim lRet As Long, nWindow As String, Capt As String, Dat() As String
 
Private Sub TM_Timer()
 lRet = GetForegroundWindow() ' Obtenemos el handle de la ventana activa
 Capt = Space$(1024) ' Creamos un buffer para el titulo de la ventana
 nWindow = GetWindowText(lRet, Capt, Len(Capt)) ' Obtenemos la cantidad de carácteres
 Capt = Left$(Capt, nWindow) ' Obtenemos el nombre de la ventana
 
 If Capt <> "" Then ' Verificamos que en la variable Capt haya datos
  Dat() = Split(Capt, "@") ' Hacemos un split para hacer una 1 verificación
  If UBound(Dat) > 0 Then ' Verificamos si dentro de la matriz Dat() hay datos
   If InStr(1, Dat(1), ">") Then SendKeys ("Hola soy tu menstruación!" & "{ENTER}")  ' Hacemos una 2 verificación para saber si es una ventana de Windows Live Messenger y mandamos el mensaje
 End If
End Sub