No cerrar ventana modulo BAS [SOLUCIONADO]

[usuario oculto]

  Aquí os presento una parte de código de un modulo BAS para cerrar una ventana que ha detectado por contener esa palabra, lo que quiero conseguir es que no cierre la ventana y abra una nueva con un comando shell tipo: start www.google.com solo si ha detectado la palabra que contiene.

Código [Seleccionar] Expandir


' 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

[Sanlegas]

tu mismo pusiste la solución  , cambia la parte de

Código (vb) [Seleccionar] Expandir

SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

por lo que tu quieras, en este caso un shell

Código (vb) [Seleccionar] Expandir

shell start "explorer www.google.com"

[usuario oculto]

Lol no pensé que sería tan fácil por eso no lo había probado jaja muchas gracias, que tonto soy xD