FSIST E CHROME

[REINALDAO]

Bom dia,

Ao utilizar o https://www.fsist.com.br

A ROTINA ABRE SEMPRE O INTERNET EXPLORE , TEM COMO ABRIR PELO GOOGLE CHROME?

[kapiaba]

Chrome deve ser o navegador Padrão.

//-> Programa Para acionar o FSIST. By João Santos - 14/05/2019 - kapiabafwh@gmail.com. 
	#Include "FiveWin.Ch"
	Static oWnd
	Function Main()
	    LOCAL cFsist
	    cFsist := ( "https://www.fsist.com.br/" )
	    //-> Invisibilizo a Janela
    DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5
	    ACTIVATE WINDOW oWnd ;
       ON INIT( ShellExecute(GetActiveWindow(),"open",'"'+cFsist+'"'), oWnd:End()  )
	Return Nil
	//-> Fim do programa

[REINALDAO]

OBRIGADO, FUNCIONOU MAS SERA QUE TEM COMO ABRI O CHROME ATRAVES DESTA ROTINA:

  Local hWnd, oOle, cUrl, oShell
  cUrl:="https://www.fsist.com.br"

  TRY
   oOle:= CreateObject("InternetExplorer.Application")

   oOle:ToolBar    := .f.
   oOle:StatusBar  := .f.
   oOle:MenuBar    := .f.
   oOle:Visible    := .t.

   oOle:Navigate2(cUrl)

   hWnd:=oOle:hWnd
   ShowWindow(hWnd, 1)   // 2 para trabalhar minimixado, sem trauma para usuario
   BringWindowToTop(hWnd)

//   GetWndDefault():Minimize()

   While oOle:Busy
     syswait(.5)
   End
  CATCH
  END

  TRY
   oDoc := oOle:Document()
   oDoc:All:Item("chave",0):Value := cChave
   oDoc:All:Item("butconsulta",0):Focus()
   oDoc:All:Item("butconsulta",0):Click()
   syswait(5)
   oDoc:All:Item("linksemcert",0):Focus()
   oDoc:All:Item("linksemcert",0):Click()
   syswait(1)
  oShell := CreateObject( "WScript.Shell" )
  oShell:AppActivate("Internet Explorer")
// oShell:SetForegroundWindow()
   oShell:SendKeys("%{TAB}")  // tecla tab acionada p/foco do salvar
   oShell:SendKeys("%{S}")   // Alt+S salvar o xml

   oShell:SendKeys("%{TAB}")  // TAB de novo em caso falha do 1 tab
   oShell:SendKeys("%{S}")   // agora comece a rezar

//   oShell:SendKeys("{Enter}")
   syswait(3)
   oOle:Quit()
  CATCH
  END

 

[kapiaba]

Não que eu saiba.

[oribeiro]

Alguém já tentou fazer um download automático por esse site?

https://lite.arquivei.com.br/?utm_source=google&utm_medium=cpc&utm_campaign=_LS_Arquivei-Lite_Institucional&utm_term=%2Barquivei %2Blite&gclid=EAIaIQobChMIie_c8e6f4gIVlguRCh1RGwNkEAAYASAAEgJ_4fD_BwE