Sección de códigos , trucos y ejemplos para visual basic


54 - Ponerle contraseña si se intenta abrir el internet Explorer

<Volver> - Anterior - Siguiente



 

Este ejemplo lo hizo el amigo Leandro Ascierto y muestra como hacer para que al ejecutar el internet Explorer, se abra un formulario pidiendo un password. , si se ingresa el password correcto se puede abrir, de lo contrario se cerrará

En el mismo se utilizan dos funciones del Api: SendMessage y FindWindow.

SendMessage es para cerrar el Internet explorer, y Findwindow para recuperar el Hwnd del mismo

Si el Password es correcto se abre Ie, si no se cierra. El password del ejemplo es "Administrador"

El funcionamiento es mas o menos asi: Un Timer chequea cada cierto tiempo mediante el Api FindWindow, pasándole la clase de ventana, en este caso la del Internet Explorer que es "IEFrame". Si está en ejecución, la función FindWindow devuelve un valor distinto de 0, .. si devuelve otro número quiere decir que se intento abrir, entonces mostramos el formulario para ingresar la contraseña . Si no es correcta, cerramos la ventana mediante SendMessage, si es correcta salimos del Timer y abrimos el Internet Explorer mediante el comando Shell

 

Ejemplo

 

Evitar la ejecución del internet explorer mediante una clave de acceso

 

Nota: esto también puede sevir para utilizarlo con cualquier tipo de programa o ventana, solo hay que saber el nombre de la clase que se le pasa a la función FindWindow que también se puede obtener mediante el Api GetClassName

 

Código fuente en el formulario :

 



Buscar en Recursos vb