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