ACESSAR PAGINA DA WEB E PEGAR DADOS - VB6
Pessoal ,preciso pelo VB6 acessar a página do tribunal de justiça com um número de processo e pegar automaticamente as movimentações desse processo e já gravar diretamente no sistema...alguém tem algum exemplo de como fazer isso, buscar dados de uma página da internet e já gravar no banco de dados ???já procurei mas não achei nada que pudesse me ajudar...
obrigado
obrigado
Numa simples busca aqui no site, achei vários exemplos, como este
JAa tinha visto este exemplo mas para m im nao funciona ... onde ficam os dados de retorno ??? nao consegui entender como funciona,por isso queria um outro exemplo
Vamos lá então:
Crie um projeto vazio
Adicione o componente [Ô]Microsoft Internet Control[Ô](menu Project/Components)
Fazendo isso, o componente [Ô]WebBrowser[Ô] vai estar na barra de componentes(é um globinho azul)
Adicione esse componente ao form e cole o código abaixo no form:
Veja a mágica
Crie um projeto vazio
Adicione o componente [Ô]Microsoft Internet Control[Ô](menu Project/Components)
Fazendo isso, o componente [Ô]WebBrowser[Ô] vai estar na barra de componentes(é um globinho azul)
Adicione esse componente ao form e cole o código abaixo no form:
WebBrowser1.Navigate2 [Ô]http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=414869&varWorld=[Ô]
x = [Ô][Ô]
MsgBox WebBrowser1.Document.All(151).outerText
Veja a mágica
Se der uma janela de erro, quer dizer que a página ainda não carregou no componente, espere um tempinho, clique em debug e rode normalmente
Nesta linha, MsgBox WebBrowser1.Document.All(151).outerText
está dando o erro
object variable or with block variable not set
preciso declarar algo mais ???
está dando o erro
object variable or with block variable not set
preciso declarar algo mais ???
Private Sub Form_Load()
WebBrowser1.Navigate2 [Ô]http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=414869&varWorld=[Ô]
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox WebBrowser1.Document.All(151).outerText
End Sub
WebBrowser1.Navigate2 [Ô]http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=414869&varWorld=[Ô]
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox WebBrowser1.Document.All(151).outerText
End Sub
a minha dúvida é, como pegar algum dado da tela automaticamente e trazer para o meu banco de dados ..por exemplo,no meio da tela tem as movimentacoes do processo(conforme abaixo), como consigo [Ô]pegar[Ô] essa parte e trazer para o banco de dados..???????????????
Movimentações
Data Movimento
10/10/2012 Retorno dos autos ao arquivo (processo já baixado)
Caixa n. 49/2012
04/09/2012 Processo arquivado definitivamente
04/09/2012 Certificado trânsito em julgado
Certifico que a sentença de fls. 62-68 transitou em julgado, pois o prazo teve inÃcio em 26.07.2012 e término em 09.08.2012.
25/07/2012 Certificada a publicação da relação de edital
Relação :0116/2012 Data da Publicação: 25/07/2012 Número do Diário: 1440 Página:
23/07/2012 Aguardando publicação
Relação: 0116/2012 Teor do ato: Assim sendo, rejeito o pedido formulado na inicial e, com fundamento no inciso I do artigo 269 do CPC, decido o processo com apreciação do mérito. Via de consequência, condeno a parte autora no pagamento de honorários advocatÃcios de sucumbência, os quais arbitro em R$ 1.200,00 (mil e duzentos reais), com fundamento no 4 do artigo 20 do CPC, cuja execução fica suspensa por força do artigo 12 da Lei n. 1.060/50. Sem custas (alÃnea [Ô]d[Ô] do artigo 35 da LCE 156/97). Publique-se. Registre-se. Intimem-se. Transitada em julgado, arquive-se.
Incidentes, ações incidentais, recursos e execuções de sentenças
Movimentações
Data Movimento
10/10/2012 Retorno dos autos ao arquivo (processo já baixado)
Caixa n. 49/2012
04/09/2012 Processo arquivado definitivamente
04/09/2012 Certificado trânsito em julgado
Certifico que a sentença de fls. 62-68 transitou em julgado, pois o prazo teve inÃcio em 26.07.2012 e término em 09.08.2012.
25/07/2012 Certificada a publicação da relação de edital
Relação :0116/2012 Data da Publicação: 25/07/2012 Número do Diário: 1440 Página:
23/07/2012 Aguardando publicação
Relação: 0116/2012 Teor do ato: Assim sendo, rejeito o pedido formulado na inicial e, com fundamento no inciso I do artigo 269 do CPC, decido o processo com apreciação do mérito. Via de consequência, condeno a parte autora no pagamento de honorários advocatÃcios de sucumbência, os quais arbitro em R$ 1.200,00 (mil e duzentos reais), com fundamento no 4 do artigo 20 do CPC, cuja execução fica suspensa por força do artigo 12 da Lei n. 1.060/50. Sem custas (alÃnea [Ô]d[Ô] do artigo 35 da LCE 156/97). Publique-se. Registre-se. Intimem-se. Transitada em julgado, arquive-se.
Incidentes, ações incidentais, recursos e execuções de sentenças
Sim, consegue, mas você vai ter que procurar na coleção [Ô]All[Ô] do objeto WebMethods, onde está o que você quer buscar. Use a Watch Window
Tem funções no WebBrowser que retorna tags e textos da pagina carregada, não tenho certeza que e esta aqui
Text1.Text = WB.document.Body.innertext
mas tenta ai, depois cria um filtro procurando o texto em questão no Text1,
strstring e mid para cortar o que queres vai da tua criatividade o filtro de texto...
Text1.Text = WB.document.Body.innertext
mas tenta ai, depois cria um filtro procurando o texto em questão no Text1,
strstring e mid para cortar o que queres vai da tua criatividade o filtro de texto...
coloquei assim: CampoRecebido = WebBrowser1.Object.Document.All.Item(499).innerText
queria ver se tinha uma maneira de já colocar o número (499 por exemplo) para Ãr direto mas pelo que vi terei que fazer uma rotina a parte para pegar
as posições que desejo...
queria ver se tinha uma maneira de já colocar o número (499 por exemplo) para Ãr direto mas pelo que vi terei que fazer uma rotina a parte para pegar
as posições que desejo...
Tópico encerrado , respostas não são mais permitidas