ref pagina fa internet

[syspel]

alguem sabe como resolver este erro

deste ja obrigado

fhw 13.12 xhar 123 dbf

carlos

[kapiaba]

   oActivex:Silent := .T.

[syspel]

deu erro nao funciou

ok

brigado

ACAZ.TXT

[kapiaba]

#include "FiveWin.ch"



Function abresite(cSite)

IF(!IsInternet())

    MsgInfo("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação")

    RETURN(.f.)

ENDIF


PRIVATE oDlgIE, oActiveX, cEvents:="Vidal",oExplorer


   cSite := ( "www.correios.com.br" )


Define Dialog oDlgIE From 0,0 TO 550,950 PIXEL Title " ..::"+"| Acessando:"+cSite


     oDlgIE:lHelpIcon:=.F.


     oActiveX:=TActiveX():New( oDlgIE, "Shell.Explorer",10,15,450,237 )


     // oActivex:Silent := .T.  // EM FWHX15.05 NEM E MAIS NECESSARIO.


     oDlgIE:oClient:=oActiveX


     oDlgIE:bPainted = { | hDC | GradientFill( hDC, 0, 0, oDlgIE:nHeight, oDlgIE:nWidth, { { 0.50, 16054371, 8388608 } } ) }


Activate Dialog oDlgIE Centered;

    On Init(mBarraStatus(cSite),oActiveX:Do( "Navigate", cSite ))



Return(nil)

Static Func mBarraStatus(cSite)

Define STATUSBAR oStatusBar Prompt "Syspel" OF oDlgIE

    oActiveX:SetProp( "STATUSBAR", .T. )

    RETURN(.t.)

[syspel]

deu erro

brigado

fwh 1402 xbar 123 dbf

carlos

[syspel]

deu este erro

_objsndmgs

[ 1 = U

[ 2 = _silent

fwh 14.02 xhab 123 dbf

carlos

[AnaCatacombs]

Parece que a variavel que vc está usando pra fazer o :Silent não é um objeto, pelo erro.

Da uma mensagem antes com o Valtype da variavel só pra conferir.

[kapiaba]

// ABRESITE.PRG By Joao Santos - 25/08/2015 - POWERED BY FIVEWIN.


#Include "FiveWin.ch"


MEMVAR oActiveX

MEMVAR cEvents


Function abresite(cSite)


   LOCAL oWnd


   IF(!IsInternet())


      MsgInfo("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação")


      RETURN NIL


   ENDIF


   cEvents := "Vidal"

   cSite := ( "www.correios.com.br" )


   DEFINE WINDOW oWnd TITLE " ..::" + "| Acessando: " + cSite


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


   oActivex:Silent := .T.


   oActivex:SetFocus()


   oWnd:oClient = oActiveX


   //oActiveX:Navigate( "www.correios.com.br" )

   oActiveX:Navigate( cSite )


   ACTIVATE WINDOW oWnd MAXIMIZED


Return(nil)


// FIM DO PROGRAMA - By Joao Santos.

[syspel]

deu certo obrigado

amigao

carlos