[Resolvido]Formulário com navegador web (VBA interagindo com os forms da pagina web do navegador nativo)

Ola pessoal tudo bem?
é o seguinte, estou montando um BD para trabalhar o tempo todo interagindo com a web, para registrar cada inserção/modificação. para isso consegui um código VBA que interage perfeitamente com o IE, logando no site e inserindo dados nos forms do site sem nenhum problema. Abaixo o código que interage com o IE logando no site.

Código:

Option Compare Database

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_Celepar()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "http://celepar7.pr.gov.br/gta"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document

HTMLDoc.all.edUsuario.Value = Forms.Login.Login
HTMLDoc.all.edSenha.Value = Forms.Login.Senha

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub


Porém gostaria de fazer essa interação diretamente com o navegador web do access embutido no Formulário Access, como o exemplo abaixo, e não ter que ficar mudando para o IE toda hora.

Quais as modificações no código VBA que preciso fazer pra isso acontecer?
Desde ja Agradeço.

Tente colocar o webbrowser no formulário e mudar as referências para ele.

Ou, se colocar uma cópia do seu aplicativo aqui, fica mais fácil para fazermos testes.

Siga as dicas abaixo ↓↓↓

Ola amigo criquio
Desculpe minha ignorância, mas é justamente isso que quero saber como fazer, mudar as referências! em anexo o arquivo com o webBrowser ja inserido no form, mas o comando esta abrindo a janela do IE.

Não consegui anexar pelo form do blog, o hospedei no 4shared

Form com a dúvida em questão

Desde ja agradeço

Amigão, está dando erro de arquivo não reconhecido. Você o fez no Access 2010? Se for, tente converter para o 2007 ou 2003. Quase ninguem tem o 2010 ainda.

Certo, Utilizo o 2010 sim, o link abaixo consta o arquivo convertido.

O interessante do 2010 é que quando você insere o WebBrowser ele ja pede abre o construtor de links onde você pode direcionar para o link que você quiser, inclusive adicionando parâmetros (que podem ser do seu BD), porém os forms que eu usarei possuem muitos campos e isto não cabe em um link (o link fica muito grande) por isso a idéia.



Form convertido 2003

Desculpas pelo transtorno

=)

Como não tenho aqui user e pass para testar, não tenho certeza se vai dar certo, mas tente tirar a sub do módulo e colocar no próprio formulário. O código completo do formulário ficaria assim:

Option Compare Database

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_Celepar()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
WebBrowser1.navigate "http://celepar7.pr.gov.br/gta"
Set oBrowser = Me.WebBrowser1
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate "http://celepar7.pr.gov.br/gta"
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = Me.WebBrowser1.Document

HTMLDoc.all.edUsuario.Value = Forms.Navegador.Login
HTMLDoc.all.edSenha.Value = Forms.Navegador.Senha

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

Private Sub Comando2_Click()
Call Login_Celepar
End Sub

Criquio, amigão estamos quase la!

com as substituições indicadas por você consegui fazer o navegador rodar e até inserir as informações do login/senha, porém acho que a instrução para clicar no botão confirmar não esta funcionando pois ele não completa o login e retorna na mesma pagina (a mesma instrução rodando no IE direto loga certinho). O correto da instrução seria logar e ir para a próxima pagina.

O browser recebe o login/senha
O video 1 mostra oque acontece no form



O video 2 mostra oque deveria acontecer no WebBrowser do form


Mais uma vez, obrigado

Detalhe que em ambos os vídeos o script é o mesmo!

Fiz uns testes e verifiquei que as instruções para inserção do login/senha, bem como o clique no botão para logar estão corretos, não entendo oque esta "travando" o processo!

alguma idéia a mais?

Eu mesmo ainda não usei esse tipo de recurso, mas já li com cliques de botão dentro de um webbrowser é meio sinistro mesmo.

Perdoe-me a intromissao. mas se inserir a senha manualmente no webBrowser ele realiza o login?

Ola Haryson, que isso qualquer ajuda/reflexão é bem vinda

Sim se eu realizar a entrada do login/senha manualmente e clicar no botão manualmente ele entra normalmente!

O problema esta no click do botão então?

Não testei, mas tente enviar o foco para o controle webbrowser antes do clique:

Me.NomeDoWB.SetFocus

Não sei, não consigo identificar, pois se vc ver o 1º video acima, ele insere os dados ai e rapidamente eles desaparecem (como se a pagina voltasse ao endereço inicial ao invés de seguir para a proxima).

Fiz alguns testes sem o clique no botão para enviar os dados, acontece a mesma coisa que no video 1

Boa tarde Trcalgaro

Estou tentando utilizar seu código.
Criei um formulário com um botão, mas ao clicar no mesmo, recebo o erro de "o tipo definido pelo usuário não foi definido"
podes me informar o que está errado?

Abraço

Marcelo

Tiago, tentou colocar o Me.NomeDoControleWebbrower.SetFocus conforme mencionei?

Marcelo, tente marcar as referências "Microsoft HTML Object Library" e "Microsoft Internet Controls".

Pelo que percebi no video.. ele leva os valores para o objeto mas carrega a instrução do navegador novamente sem os dados..
Tente ver a ordem dos comandos... talvez seja isso

Estou utilizando o access 2010 e não estou encontrando o local para esta alteração.

Já localizei.
Obrigado

Me.NomeDoWB.SetFocus não foi suficiente, fiz o teste deixando só o preenchimento, sem o click, ou só o click com preenchimento dos dados manualmente, acontece a mesma coisa!

O que seria o "Me.WebBrowser1"??

Me.WebBrowser1 se refere ao NavegadorWeb embutido ao form, se você utiliza o 2010, não é o navegador que aparece na aba Desining, e sim o controle ActiveX Microsoft WebBrowser!

Podes me facilitar, que agora tranquei.

Abraço

Marcelo

Bom pessoal
Consegui alguns avanços.
Apesar da pagina retornar a tela de login, ela efetua o login e retorna ao invés de seguir, porém como executa o login posso redirecionar para as paginas que desejo no site sem problemas. Então teoricamente o problema foi resolvido, agora seria interessante descobrirmos porque o code não se comporta da mesma forma nos dois navegadores (interno/externo)

O código final ficou

Código:

Option Compare Database

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_Celepar()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
WebBrowser1.navigate "http://celepar7.pr.gov.br/gta"
Set oBrowser = Me.WebBrowser1
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate "http://celepar7.pr.gov.br/gta"
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Me.WebBrowser1.SetFocus

Set HTMLDoc = Me.WebBrowser1.Document

HTMLDoc.all.edUsuario.Value = Me.Login
HTMLDoc.all.edSenha.Value = Me.Senha

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear

Resume Next
End If
End Sub

Marcelo, tudo bem cara.

Amigão da uma "googlada" (inserir navegador web no access) ou (criando um navegador web no access) que você entenderá oque estou falando. A respeito do Access 2010 de uma pesquisada na própria ajuda dele sobre o navegador nativo dele.

é muita coisa pra explicar por aqui caro...vai por mim =)

Considerado resolvido

ok, vou verificar este assunto.
Abraço

Se uma pergunta, onde está localizado o nome "login" e a "senha" para que o "VBA" coloque o login e a senha em seus respectivos lugares?

Não sei se isso ainda interessa a alguem, mas...
Solucionei a questão do acesso retirando este trecho
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

e após este trecho do código inclui esta parte
HTMLDoc.all.btnEntrar.Click

Se vc abrir o html do site vai ver que o nome que dão ao botao entrar é btnEntrar

Testado e aprovado

Código completo
Option Compare Database

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_Celepar()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
WebBrowser1.navigate "http://celepar7.pr.gov.br/gta"
Set oBrowser = Me.WebBrowser1
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate "http://celepar7.pr.gov.br/gta"
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Me.WebBrowser1.SetFocus

Set HTMLDoc = Me.WebBrowser1.Document

HTMLDoc.all.edUsuario.Value = Me.Login
HTMLDoc.all.edSenha.Value = Me.Senha
HTMLDoc.all.btnEntrar.Click

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear

Resume Next
End If
End Sub



Data/hora atual: 31/5/2012, 16:16



Um abraço a todos