PEGAR DADOS DO SITE E JOGAR NA TEXTBOX

MARIOANDRADE 03/03/2015 23:08:58
#444923
Meus amigos eu preciso de um código para pegar o resultado da consulta deste site http://www.qualoperadora.net/ e colocar em uma textbox.
JABA 04/03/2015 01:02:48
#444934
http://www.macoratti.net/12/01/vbn_webr1.htm
MARIOANDRADE 04/03/2015 10:33:54
#444937
Citação:

:
http://www.macoratti.net/12/01/vbn_webr1.htm



Agradeço a tentativa de ajuda mas esse tópico é para VB.NET
NIKYTS 04/03/2015 14:03:02
#444957
M4R10, neste caso o site em questão é teu ou caso saibas bem como o site efectua essa operação, então poderás fazer algo do género:
     Dim servidor As XMLHTTP60: Set servidor = New XMLHTTP60
    servidor.open [Ô]GET[Ô], aqui_colocas_o_site_e_a_pesquisa_a_se_efectuada, False
    servidor.Send [ô]envia o pedido para o servidor

	If Not InStr(servidor.responseText, [Ô]HTTP Error[Ô]) > 0 Then
        If servidor.readyState = 4 And servidor.Status = 200 Then
            If xml.loadXML(servidor.responseText) Then
                Set nodeList = xml.selectNodes([Ô]/result[Ô])
                For Each node In nodeList
                    [ô]Para o ciclo se i=20 porque as visitas poderão estar todas a [ô]0[ô], senão carrega tudos os registos a 0
					text1.text=node.selectSingleNode([Ô]Dados[Ô]).Text
				next
			end if
		end if
	end if
MARIOANDRADE 04/03/2015 22:53:48
#444981
Dá erro na linha 
If xml.loadXML(servidor.responseText) Then
diz que o objeto é requerido,
eu achei que seria mais simples...
FABRICIOWEB 05/03/2015 11:05:36
#444993
Não sei se e o mesmo modo mas para pegar os dados do site da receita federal fiz dessa forma talvez te de uma luz

Dim Nome As String
Dim Value As String

Dim CNPJ As String
Dim Tipo As String
Dim Abertura As String
Dim RazaoSocial As String
Dim Fantasia As String
Dim Endereco As String
Dim Numero As String
Dim Complemento As String
Dim Bairro As String
Dim Cidade As String
Dim UF As String
Dim CEP As String
Dim SITUACAO As String
Dim MotivoSituacaoCadastral As String
Dim SituacaoEspecial As String
Dim DataSituacaoEspecial As String
For i = 0 To WebBrowser1.Document.All.Length - 3
Nome = WebBrowser1.Document.All.item(i).innerText
Value = WebBrowser1.Document.All.item(i + 2).innerText
If (Nome = [Ô]LOGRADOURO [Ô]) Then
Text8 = Value
End If
If (Nome = [Ô]BAIRRO/DISTRITO [Ô]) Then
Text12 = Value
End If
If (Nome = [Ô]NÚMERO [Ô]) Then
Text13 = Value
End If
If (Nome = [Ô]COMPLEMENTO [Ô]) Then
Text26 = Value
End If
If (Nome = [Ô]MUNICÍPIO [Ô]) Then
Text11 = Value
End If
If (Nome = [Ô]UF [Ô]) Then
Combo2 = Value
End If

If (Nome = [Ô]CEP [Ô]) Then
MaskEdBox5 = Value
End If

If (Nome = [Ô]NOME EMPRESARIAL [Ô]) Then
Text9 = Value
End If
[ô]NOME EMPRESARIAL


If (Nome = [Ô]NÚMERO DE INSCRIÇÃO [Ô]) Then
Value = WebBrowser1.Document.All.item(i + 3).innerText
MaskEdBox2 = Value
End If


If (Nome = [Ô]SITUAÇÃO CADASTRAL [Ô]) Then
[ô]Value = WebBrowser1.Document.All.item(i).innerText
Text23 = Value
End If
[ô] CADASTRAL




Next i
WEVERSON 05/03/2015 17:57:40
#445017
Caro colega M4R10,

Eu fiz este teste de uma olhada ai....
MARIOANDRADE 09/03/2015 22:56:01
#445105
Citação:

:
Caro colega M4R10,

Eu fiz este teste de uma olhada ai....



Isso é vb.net amigo, eu preciso em VB6
PEGUDO 10/03/2015 13:01:04
#445126 Resposta escolhida
Tem muito tempo que não uso o VB6, mas tenta assim:
Dim resultado As Object = webbrowser1.document.getElementById([txt-color=#e80000][Ô]resultado[Ô][/txt-color]) [txt-color=#007100][ô]Não lembro se é Object ou Variant[/txt-color]

MsgBox([Ô]A operadora é: [Ô] & resultado.All.Item(0).innerText)
MsgBox([Ô]O estado é: [Ô] & resultado.All.Item(0).innerText)
MsgBox([Ô]Informações adicionais: [Ô] & resultado.All.Item(0).innerText)


Você só tem que modificar o index do [txt-color=#0000f0]All.Item(0)[/txt-color]. Vai trocando para 1, 2, 3... até você pegar o valor que corresponde à operadora, ao estado e às informações.

Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar