Me ajudem por favor!

Question

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

Answer 1

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! 

Answer 2

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.

Answer 3

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

Answer 4

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?

Answer 5

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

Answer 6

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