Tal vez sea imposible

**OtSiRc**
22 de Mayo del 2005
weno no se si me podrán ayudar. Aki mi pregnta.
yo kiero acer una aplicación sencilla ke al abrir internet explorer mi aplicacion muestre un mensje ke avise:"acabas de abrir internet explorer"
----------------------------------------------------------
gracias por anticipado **OtSiRc**

. : AlphaSoft : .
22 de Mayo del 2005
O.k.

Hola Chavos!

Bueno **OtSiRc** lo que te dijo Axelopez esta perfecto, yo quiero contribuirte con lo que se me ocurre:

Usando el ejemplo de Axelopez podrias investigar el titulo de la ventana, asignarlo a una variable de tipo STRING y con un bucle FOR podrias buscar la cadena MICROSOFT INTERNET EXPLORER.

Bueno, vamos al ejemplo...

' Esta sentencia es en caso de error...
On error Resume Next

FOR i = 1 to LEN(variableTitulo)

strTemp = mid(VariableTitulo, i, 27)
if strTemp = "Microsoft Internet Explorer" then
msgBox "Se ha abierto el explorador de internet"
end if

Next i


Bueno creo que esta facil no....

Lo que icimos fue buscar entre el caption ( el titulo de la ventana ) la cadena Microsoft internet explorer, como normalmente esta al final del titulo ( Pej. www.Google,com Microsoft Internet Explorer ) lo que hacemos es ir letra por letra hasta encontrar esa cadena...

Espero que me hallan entendido y Bienvenidos al foro!

Saludos!

. : AlphaSoft : ,

axelopez
22 de Mayo del 2005
-------------------------------------------------------
bueno esto te funcionaria cuando levantes
una ventana de internet explorer
------------------------------------------------------

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String

Ret = "about:blank - Microsoft Internet Explorer"
'solo que se obliga a tener esa pagina de inicio
'en el explorador.
bl = 0

WinWnd = FindWindow(vbNullString, Ret)
If WinWnd <> 0 Then
msgbox "VENTANA ABIERTA"
end if

otra opcion

puede ser que busques entre los nombres de todas las ventanas y cuentes las que incluyan en su titulo micorsoft internet explorer y si hay mas que la ultima vez es que hay una nueva