FiveTech Software tech support forums

... DEFINE WINDOW oChildWnd FROM 0,0 TO 600,800 PIXEL TITLE "PORTO SEGUROS"

oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

oActivex:Silent := .T.

oChildWnd:oClient = oActiveX

oActiveX:Do( "Navigate2", cSite )

ACTIVATE WINDOW oChildWnd

RETURN NIL

// FIN / END

Regards, saludos.

... 1 PIXEL

oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

oActivex:Silent := .T.

oChildWnd:oClient = oActiveX

// oActiveX:Do( "Navigate2", "http://www.fivetechsoft.com" )
//oActiveX:Do( "Navigate2", "https://app.pedidosbcn.com/tienda/tiendadepizzas" )

oActivex:SetFocus ...

oDlg:oClient:=TActiveX():New(oDlg, "Shell.Explorer.2", 0, 0, oDlg:nWidth, oDlg:nHeight)
oDlg:oClient:Do("Navigate2", "https://www.website/")

do while .T.
oDk:=oDlg:oClient:GetProp("Document")
if valtype(oDk)="U".or.oDk:ReadyState!="complete"
WaitMessage()
SysRefresh()
else
lOk:=.T.
exit ...

... a veces NO
retu .f.
END

WITH OBJECT oIE
:Visible := .F.
:ToolBar := .F.
:FullScreen := .F.
:Invoke( "Navigate", cURL )
END WITH

TRY
oIE:Navigate2( clinkSing )
CATCH oErr1
TRY
oIE:Navigate( clinkSing )
CATCH oErr2
MsgWait("Error al tratar de firmar documento","No firmo",2)
retu .f.
END ...

... PIXEL TITLE cTitle

oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

oActivex:Silent := .T.

oChildWnd:oClient = oActiveX

oActiveX:Do( "Navigate2", "http://www.fivetechsoft.com" )

oActivex:SetFocus()

ACTIVATE WINDOW oChildWnd

RETURN NIL

// FIN


Regards, saludos.

... oDlg SIZE 300,300 PIXEL TRUEPIXEL @ 20,20 ACTIVEX oActivex PROGID "Shell.Explorer.2" SIZE 260,260 OF oDlg oDlg:bInit := { || oActivex:Navigate2( TrueName( "temp.html" ) ) } ACTIVATE DIALOG oDlg CENTERED

https://imagizer.imageshack.com/v2/xq90/924/nNE29n ...

... oIE
:Visible := .F.
:ToolBar := .F.
:StatusBar := .F.
:MenuBar := .F.
:FullScreen := .F.
:Invoke( "Navigate", cURL )
END WITH

TRY
oIE:Navigate2( cUrl )
CATCH oErr
TRY
oIE:Navigate( cUrl )
CATCH oErro
END
END

WHILE oIE:Busy
SysWait(1)
SysRefresh()
Loop
END

HB_IDLESLEEP( 1 )
nPos ...

... MemoWrit(cPath+"MiHtml.htm",chtml)
DEFINE WINDOW ohtmlDlg TITLE "Mostra la licenza"
oActiveX := TActiveX():New( ohtmlDlg, "Shell.Explorer.2" )
ohtmlDlg:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",cPath+"MiHtml.htm")
ACTIVATE WINDOW ohtmlDlg
RETUR NIL

... oActiveX
MemoWrit(cPath+"MiHtml.htm",chtml)
DEFINE WINDOW ohtmlDlg TITLE "html test
oActiveX := TActiveX():New( ohtmlDlg, "Shell.Explorer.2" )
ohtmlDlg:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",cPath+"MiHtml.htm")
ACTIVATE WINDOW ohtmlDlg
RETUR NIL

... OBJECT oIE
:Visible := .f.
:ToolBar := .f.
:StatusBar := .f.
:MenuBar := .f.
:FullScreen := .f.
:Left:=150
:Top:=150
END WITH
oIE:Navigate2("http://www.simjcloud.com/testing/leaflet/html/index.html?latfrom=37.899926&lngfrom=-4.731114&latto=37.587115&lngto=-4.639551")
do While oIE ...

... el pais vale "CL"

cTemp := cFilePath(GetModuleFilename(GetInstance()))+"google\Temp.html"

MemoWrit( cTemp, cHtml )
oActiveX:Do( "Navigate2", cTemp )

return Nil



func GoogleOk( cDirecc )
cDirecc := Upper(cDirecc)
cDirecc := Trim(StrTran( cDirecc, '.', ''))
cDirecc := Trim(StrTran ...

En efecto tendría que ser oActiveX:DO( "Navigate2", cDir ) lo otro es un "defecto" al copiar y pegar el código en el mensaje .
Como "Test" comenta el" on init" a ver si te da error o se queda en la ventana .
Tambien puede funcionar con oActiveX:DO( "Navigate", cDir ) ( sin el "2" ) .

Tu ...

Amigo ya probé tu codigo.

Primeramente me arrojó error de sintaxis en la línea ON INIT ( oActiveX:DO( "Navigate2", cDir ) y recordando lo que lei anoche, el amigo cristóbal navarro recomendaba sustituir ":" por ":" de manera que quedara oActiveX:DO( "Navigate2", cDir ) ) (por lo menos ...

... la respuesta de una web cuando la llamo así:

oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" )

oWndWeb:oClient = oActiveX
oWndWeb:Resize()

oActiveX:Do( "Navigate2", cWeb )

He buscado un poco por la red y no doy con ello, y lo que encuentro en este foro por ahora tampoco.

Gracias,

... New( oWndChild, "Shell.Explorer.2" )

oWndChild:oClient = oActiveX // To fill the entire window surface
oWndChild:Resize()

oActiveX:Do( "Navigate2", "http://www.nfce.se.gov.br/portal/painelMonitor.jsp" )
oActiveX:Silent := .t.

ACTIVATE WINDOW oWnd
return nil

FUNCTION INTER_APP_WEB ...