[Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

Boa tarde,


Ja pesquisei e não consegui nada. Preciso de um exemplo para inserir dados de um formulario direto no site da http://www1.sefaz.ms.gov.br/tributos, para gerar a Guia de Recolhimento do ST, onde os dados do meu formulario que são referente a a emissão dessa guia, tipo Insc. Estadual, data, valor...
Agradeço desde já.

Veja com atenção este tópico até ao final;

http://maximoaccess.forumeiros.com/t7608-resolvidoacessar-site-que-exige-login-e-senha

Boa tarde,
Obrigado pelo retorno, consegui adaptar esse codigo graças ao topico que me mandou
na primeira pagina ele prencheu o tributo e clicou no botão consultar
mas agora fiquei travado nessa opção, ele não quer prencher os outros campos.


Primeiro ele acessa esse endereço http://www1.sefaz.ms.gov.br/tributos/ e seleciona o tributo
dai vai para outra pagina http://www1.sefaz.ms.gov.br/tributos/consultar.asp com o tributo selecionado
para somente preenchar Valor, data, IE etc...
Private Sub Comando221_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Dim IE As Object
Set IE = CreateObject("internetexplorer.application")

IE.Visible = True

apiShowWindow IE.hWnd, SW_MAXIMIZE
IE.Navigate "http://www1.sefaz.ms.gov.br/tributos/"

While IE.Busy
DoEvents
Wend

IE.Document.all("tributo").value = "333"
While IE.Busy
DoEvents
Wend
IE.Document.all("Submit").Click
SendKeys "{tab}", True
SendKeys "{enter}", True

While IE.Busy

DoEvents
Wend

IE.Document.all("ie").value = Me.ieempresa.value
Set IE = Nothing


End Sub

Veja o simples;

Private Sub SeuBotao_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Dim IE As Object
Set IE = CreateObject("internetexplorer.application")

IE.Visible = True

    apiShowWindow IE.hWnd, SW_MAXIMIZE
      IE.Navigate "http://www1.sefaz.ms.gov.br/tributos/"

         While IE.Busy
            DoEvents
         Wend

    IE.Document.all("tributo").Value = "333"
    IE.Document.Forms("Credito").Submit

         While IE.Busy
            DoEvents
         Wend

    IE.Document.all("IE").Value = 1234
    IE.Document.all("DTVENCIMENTO").Value = 15112012
    IE.Document.all("REFERENCIA").Value = 112012
    IE.Document.all("DT").Value = 15112012
    IE.Document.all("VALOR").Value = 500
    IE.Document.all("HIST06").Value = "Credito para o Marcelo"
    'IE.Document.Forms("Credito").Submit

Set IE = Nothing
End Sub

E ae, Resolveu ?

Bom dia, muito obrigado pela resolução do meu problema. Resolveu e muito a minha vida....
Um abraço..

Só faltou o Resolvido.

Desta vez eu coloco.