Imprimir Página - No cerrar ventana modulo BAS [SOLUCIONADO]

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:

' 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

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

Código

SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

por lo que tu quieras, en este caso un shell

Código

shell start "explorer www.google.com"

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: usuario oculto en 1 Mayo 2011, 18:13 pm