ACCEDER AL NAVEGADOR

[JALMAG]

Puedes utilizar:

_Execute( _HMG_MainHandle, "open", cnombreHTML )

Para ello deberás incluir FileIO.ch

Hola Jalmag, tampoco me funciona. me dice que no reconoce la variable "_HMG_MAINHANDLE" y al principio del fichero puse los includes indicados.

#include "hmg.ch"
#include "_dbf.ch"
#include "dbstruct.ch"
#include "ficheIO.ch"

Estoy usando XP con HMG3.4.

Muchas gracias por contestar.

Es este:

Public _HMG_MainHandle := 0

[mustafa]

Hola amigos:

Con las indicaciones de JALMAG Ok!!

Code: Select all

#include "hmg.ch"
#include "dbstruct.ch"
#include "FileIO.ch"       

FUNCTION MAIN
Public _HMG_MainHandle := 0
Public cnombreHTML:= "https://www.hmgforum.com/viewtopic.php?f=24&t=6725"     

_Execute( _HMG_MainHandle, "open", cnombreHTML )

Return Nil

Salud a todos, cuidaros del "Bixu"
Un abrazo /Regards
Mustafa

[Ismach]

Asi lo hago yo

Code: Select all

    PUBLIC oIE    As Object
    PUBLIC ccUID       := ""
    PUBLIC cAurelia    := "https://www.lawebdelprogramador.com/foros/Clipper-FiveWin/index1.html"
    PUBLIC nHeight     := 0
    PUBLIC nWidth      := 0

    public miState     := 0

    nHeight     := GetDesktopHeight()-100
    nWidth      := GetDesktopWidth()-3
    set( _SET_CODEPAGE, 'UTF8' )
    ccUID := GetUserName()
    IF ( oIE := win_oleCreateObject( "InternetExplorer.Application" ) ) != NIL
        oIE:__hSink := __axRegisterHandler( oIE:__hObj, {| ... | QOut( ... ) } )
        oIE:visible := .F.
        oIE:Navigate( cAurelia )
        DoEvents()
        WHILE oIE:ReadyState != 4
             DoEvents()
	     hb_idleSleep( 5 )
        ENDDO
    ELSE
        MsgInfo( "Error. Internet Explorer not available.", win_oleErrorText()  )
    ENDIF
    BEGIN SEQUENCE WITH {|o| break(o)}
    oIE:document:refresh()
    oIE:document:forms(0):all("textSearch"):Value := "Harbour"
    oIE:document:Title := "Buscando en la web del programador"
    oIE:Document:Forms[0]:submit()

[Ismach]

Tengo un nuevo desafio, como se hace para tomar el control de una penstaña con una url ya cargada del Iexplorer?, es decir no quiero abrir el navegador y cargar desde 0 la pagina sino tomar el control luego de una validacion que realice dicha pagina.

[LOUIS]

Amigo Mustafa

Con Ud estoy aprendiendo mucho, le estoy muy agradecido ...

Casualmente andaba buscando cómo abrir una página web desde un comando HMG y como siempre su aporte es magnífico.

Estoy haciendo otro jueguito de entretenimiento familiar y ahí puse su código sencillo pero eficaz !

Déjeme hacer unos últimos ajustes de apariencia y lo compartiré con todos Ustedes.

Saludos.
Louis

P.D.- De todos Uds. Amigos Programadores, he aprendido y sigo aprendiendo mucho, cuidado se me ponen celosos