Usuário com melhor resposta
Me ajudem por favor!

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