none
Me ajudem por favor! RRS feed

  • Pergunta

  • Amigos do MSDN, há tempo venho tentando mudar o endereço dessa rotina abaixo, eu quero buscar estes dados no site do Google, mas não consigo, sempre dá erros. 

    Essa rotina funciona direitinho, buscando os dados no site da UOL, alguém que conhece pode me dizer o que tem que fazer para dar certo com o Google?

    Imports HtmlAgilityPack

    Public Class Form1
        Dim dezRes(15) As Integer

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim res = New TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15}

            Dim webGet As New HtmlWeb

            Dim doc As HtmlDocument = webGet.Load("https://noticias.uol.com.br/loterias/lotofacil/")

            Dim work As HtmlNodeCollection = doc.DocumentNode.SelectNodes(" /html/body/div[6]/section/div/div/div[1]/div/div/div[1]/div/div/div[1]/div[2]/div[1]/div/div[1]/div")

            'popula a matriz do resultado
            For u = 0 To 14
                dezRes(u) = work(u).InnerText
                res(u).Text = work(u).InnerText
            Next

        End Sub

    End Class

    terça-feira, 20 de outubro de 2020 01:38

Respostas

  • Prezado Durval.

    Tente incluindo esta linha:

    Aqui testei e deu certo.

    System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls11 Or System.Net.SecurityProtocolType.Tls12 Or System.Net.SecurityProtocolType.Ssl3

            Dim webGet As New HtmlWeb

            Dim doc As HtmlDocument = webGet.Load("https://noticias.uol.com.br/loterias/lotofacil/")


    MARIANO1776

    • Marcado como Resposta Durval Teixeira segunda-feira, 23 de novembro de 2020 19:18
    domingo, 22 de novembro de 2020 16:06

Todas as Respostas

  • Bom dia Durval,

    Qual erro que você esta recebendo quando tenta usar o Google?  Tenho esse exemplo de código que pode ajudar:

        Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
            Process.Start("firefox", "https://www.google.com.br/#q=" + txtInput.Text)
        End Sub

    Boa sorte! 
    terça-feira, 20 de outubro de 2020 13:33
    Moderador
  • Olá Mauricio. É só copiar e colar, veja se você consegue rodar essa minha rotina ai talvez você verá o que está acontecendo com o Google

    Só tem que baixar o HtmlAgilityPack

    Vá em Ferramentas/Gerenciador de Pacotes do NuGet/Gerenciador de Pacotes do NuGet para Soluções... e uma vez lá procure o pacote HtmlAgilityPack e baixe-o.

    Rodei essa tua rotina, tive que tirar o "firefox" aí rodou certo, mas ela só acessa o site do Google, eu queria buscar dados que é o resultado da Loto Fácil, são as 15 dezenas, a data e o número do teste, mas no Google não consigo buscar esses dados, já no site da UOL você verá que os dados vem corretos.

    terça-feira, 20 de outubro de 2020 18:56
  • Olá Durval,

    Eu não consegui achar o URL da Google Brasil que puxa resultados da loto. Você pode consultar no forum da Google para o URL certo para botar na rotina
    quarta-feira, 21 de outubro de 2020 13:48
    Moderador
  • Penso que para saber o URL do Google para loterias, basta colocar no prompt do Google: loto fácil e lá está o endereço, não é isso?
    quinta-feira, 22 de outubro de 2020 03:39
  • Ola Durval,

    Daqui dos EUA, quando procuro por loto fácil só puxa e site abaixo. Mais sim, só tem que achar o URL certo para botar no método para poder funcionar 

    http://www.loterias.caixa.gov.br/wps/portal/loterias/landing/lotofacil

    quinta-feira, 22 de outubro de 2020 13:12
    Moderador
  • Prezado Durval.

    Tente incluindo esta linha:

    Aqui testei e deu certo.

    System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls11 Or System.Net.SecurityProtocolType.Tls12 Or System.Net.SecurityProtocolType.Ssl3

            Dim webGet As New HtmlWeb

            Dim doc As HtmlDocument = webGet.Load("https://noticias.uol.com.br/loterias/lotofacil/")


    MARIANO1776

    • Marcado como Resposta Durval Teixeira segunda-feira, 23 de novembro de 2020 19:18
    domingo, 22 de novembro de 2020 16:06