GetActiveObject y Vista
Publicado: Jue Abr 26, 2007 2:24 pm
Tengo este código funcionando perfectamente...
Local oIE
Local oForm, oActiveX
If n = 1
TRY
oIE := GetActiveObject( "InternetExplorer.Application" )
CATCH
TRY
oIE := CreateObject( "InternetExplorer.Application" )
oIE:Visible := .T.
oIE:Navigate( cURL )
CATCH
Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+ "]" )
END
END
ElseIf n = 2
ShellExecute( 0, "open", cURL, 0, 0, SW_SHOWNORMAL )
ElseIf n = 3
oIE := TOleAuto():New( "InternetExplorer.Application" )
oIE:Navigate( cURL )
oIE:Visible := .T.
EndIf
Ahora bien, en el caso 1... en Vista abre dos SESIONES (Ventanas) del Iexplorer... ¿?¿?
Una se queda con una sola pestaña "Conectando"... y no hace nada mas...
La otra es la que navega a la URL.
Un Saludo,
Xevi.
--
Local oIE
Local oForm, oActiveX
If n = 1
TRY
oIE := GetActiveObject( "InternetExplorer.Application" )
CATCH
TRY
oIE := CreateObject( "InternetExplorer.Application" )
oIE:Visible := .T.
oIE:Navigate( cURL )
CATCH
Alert( "ERROR! IExplorer not avialable. [" + Ole2TxtError()+ "]" )
END
END
ElseIf n = 2
ShellExecute( 0, "open", cURL, 0, 0, SW_SHOWNORMAL )
ElseIf n = 3
oIE := TOleAuto():New( "InternetExplorer.Application" )
oIE:Navigate( cURL )
oIE:Visible := .T.
EndIf
Ahora bien, en el caso 1... en Vista abre dos SESIONES (Ventanas) del Iexplorer... ¿?¿?
Una se queda con una sola pestaña "Conectando"... y no hace nada mas...
La otra es la que navega a la URL.
Un Saludo,
Xevi.
--