Preencher formulario da receita federal

[marcioe]

Olá amigos
Teria uma forma de abrir o site da receita e já enviar os dados

https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp


ou seja em nosso sistema já tem todos os dados em nosso cadastro, dai já queria abir com tudo preenchido.

Agradeço aos amigos

[sistem]

Function test4()
  Local hWnd, oOle, cData, cUrl:="https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"

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

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

   oOle:Navigate(cUrl)

   hWnd:=oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)

   While oOle:Busy
     syswait(.5)
   End

  CATCH
  END

  cData := "01112017"

  TRY
   oOle := oOle:Document()
      oOle:All:Item("txtCPF",0):Value := "99999999999"
      oOle:All:Item("txtNome",0):Value := "AAAAAAAAAANOME"
      oOle:All:Item("txtDataNascimento",0):Value := cData
      oOle:All:Item("txtNomeMae",0):Value := "AAAAAAAAAAA"
      oOle:All:Item("txtTitulo",0):Value := "9999999999999"
      oOle:All:Item("Enviar",0):Focus()
      oOle:All:Item("Enviar",0):Click()
  CATCH
  END

  oOle := Nil

Return nil

 

[marcioe]

ola, bom dia era exatamento isso muito obrigado.