Ejemplos usando el Api de windows para Visual basic

142 - Finalizar las ventanas abiertas a partir del caption

Volver al Listado Api - Anterior - Siguiente



 

 

 

Contenido

 

 

 

 


Ejemplo 1

Esta rutina utiliza las funciones Api EnumWindows, GetWindowText y SendMessage.

La primer función se encarga de enumerar y listar las ventanas. GetWindowText devuelve el caption de la misma y SendMessage para cerrarla

También hay otra función a la cual se le envía el texto que debe contener la misma para determinar si se cierra o no, por ejemplo si enviamos

Call Cerrar_ventana(" Google ")

.. se finalizarán todas las que contengan dicha frase en el caption

Se necesita: un módulo bas para declarar el procedimiento que enumera las ventanas, y un CommandButton en el Formulario.

Nota: asi como está planteado el ejemplo, el título a cerrar distingue de mayúsculas y minúsculas. Para que no haga caso de esto, una forma es colocando en el módulo bas la instrucción Option Compare Text

 

Código fuente en el Form:

Código a colocar en el módulo BAS

 


Ejemplo 2

Cerrar programa o ventana a partir del Class Name

Este otro proyecto de ejemplo, es muy similar al anterior, es decir enumera las ventanas abiertas en windows con el Api EnumWindows

Pero en ves de cerrarlas a partir del título de la ventana como en el caso anterior, lo hace a partir del nombre de clase de la misma, que se recupera con Api getClassName.

El código , chequea mediante un timer, si la clase es IeFrame, que es la del internet explorer, y se encuentra abierta la cierra

 

Código fuente en un formulario ( Agregar un control timer )

Este otro código en un módulo bas

 


Relacionados



Buscar en Recursos vb