ACESSAR PAGINA DA WEB E PEGAR DADOS - VB6

NAUTILUZ 28/11/2012 10:43:04
#414940
Tenho aqui uma trava boa, continua só quando carregada a pagina

Private Sub Form_Load()

Me.Visible = True

WB.Navigate [Ô]http://[Ô]

Do While WB.ReadyState <> READYSTATE_COMPLETE

DoEvents

Loop

End Sub

Espero telo ajudado, pois o bem maior e poder compartilhar..
KERPLUNK 28/11/2012 10:44:49
#414941
Citação:

:
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...


Obviamente. Página é um conjunto de informações, você precisa especificar o que quer.
PAYDANA 28/11/2012 18:53:59
#414986
mand ao link da tal pagina e fala o que quer pega la
FERRUBIM 01/12/2012 11:26:41
#415209
fiz assim(abaixo) mas o problema é o seguinte:
tenho 5 registros na tabela TAB_PROCESSOS_LIDOS, como faço para q rode o primeiro registro,va em [Ô]Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)[Ô],faça tudo q tem lá e só depois pegue o regsitro 2 desta tabela e assim sucessivamente ?????
alguem tem uma idéia de como fazer [Ô]melhor[Ô] essa rotina ????

**** DTX_TX_OBSERVACAO é um textbox *****

Private Sub Form_Load()
Dim wl_Select As String
Dim cur_usuario As Recordset
Dim WL_NR_PROCESSO As String
Dim WL_CD_FORO As Integer

wl_Select = [Ô]SELECT * FROM TAB_PROCESSOS_LIDOS[Ô]
wl_Select = wl_Select & [Ô] WHERE [Ô]
wl_Select = wl_Select & [Ô] PROCESSO_LIDO = [ô]N[ô][Ô]
Set cur_usuario = db.OpenRecordset(wl_Select)
With cur_usuario
Do While Not .EOF
WL_NR_PROCESSO = IIf(IsNull(!nr_processo), [Ô][Ô], !nr_processo)
WL_CD_FORO = IIf(IsNull(!COD_COMARCA), [Ô]0[Ô], !COD_COMARCA)
WL_NR_PROCESSO = Replace(WL_NR_PROCESSO, [Ô].[Ô], [Ô][Ô])
WL_NR_PROCESSO = Replace(WL_NR_PROCESSO, [Ô]/[Ô], [Ô][Ô])
WL_NR_PROCESSO = Replace(WL_NR_PROCESSO, [Ô]\[Ô], [Ô][Ô])
WL_NR_PROCESSO = Replace(WL_NR_PROCESSO, [Ô]-[Ô], [Ô][Ô])

WebBrowser1.Navigate2 [Ô]http://esaj.tjsc.jus.br/cpo/pg/search.do?xml=true&cbPesquisa=NUMPROC&dePesquisa=[Ô] & WL_NR_PROCESSO & [Ô]&cdForo = [Ô] & Mid(WL_NR_PROCESSO, 1, 2) & [Ô][Ô]
.MoveNext
Loop
.Close

End With



Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim wl_posicao As Integer
Dim wl_final As Integer
Dim wl_final2 As Integer
Dim WL_NR_PROCESSO As String
Dim wl_nr_cnj As String
Dim wl_posicao_termina As Integer

DTX_TX_OBSERVACAO = WebBrowser1.Document.documentElement.innerText
wl_posicao = InStr(1, DTX_TX_OBSERVACAO, [Ô]Processo:[Ô])
wl_posicao = InStr(wl_posicao + 10, DTX_TX_OBSERVACAO, [Ô]Processo:[Ô])
wl_posicao = wl_posicao + 10
wl_final = InStr(wl_posicao, DTX_TX_OBSERVACAO, [Ô]([Ô])
wl_final2 = InStr(wl_posicao, DTX_TX_OBSERVACAO, [Ô])[Ô])
wl_posicao_termina = (wl_final) - wl_posicao
WL_NR_PROCESSO = Mid(DTX_TX_OBSERVACAO, wl_posicao, wl_posicao_termina - 1)
wl_posicao_termina = wl_final2 - wl_final
wl_nr_cnj = Mid(DTX_TX_OBSERVACAO, wl_final + 1, wl_posicao_termina - 1)

End Sub
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar