PEGAR AS TAGS DO GOOGLE

 Tópico anterior Próximo tópico Novo tópico

PEGAR AS TAGS DO GOOGLE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#496179 - 02/02/2021 12:14:37

COQUITO
BELO HORIZONTE
Cadast. em:Junho/2014


 Anexos estao visíveis somente para usuários registrados

olá pessoal

preciso de uma ajuda, estou querendo pegar os resultados da pesquisa do google, já tentei de outras formas mais não consegui, cheguei so o básico mais nao consegui entender de como pegar em lista os titulos, descrição e links. E colocar na grid

  é possivel que alguem tenha algum exemplo prático para poder guiar de como fazer?

segue o codigo que estou fazendo.

Private Sub btnCarregaLsta_Click(sender As Object, e As EventArgs) Handles btnCarregaLsta.Click
        If txtUrls.Text = '' Then
            MsgBox('Vazio')
            Exit Sub
        Else

            Web_Navegar.Navigate(New Uri(txtUrls.Text))
        End If


        Dim wc As New WebClient
        Dim StrUrl As String = wc.DownloadString('https://www.google.com/search?sxsrf=ALeKk00m9-snp-m8Z-fQiBk0jhI0xaufYA%3A1612101683377&ei=M7gWYIfHFr_B5OUPlMepiAQ&q=vbnet&oq=vbnet&gs_lcp=CgZwc3ktYWIQAzIHCCMQsAMQJzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQzIHCAAQsAMQQ1AAWABggw9oAXACeACAAQCIAQCSAQCYAQCqAQdnd3Mtd2l6yAEKwAEB&sclient=psy-ab&ved=0ahUKEwjHrLfhqsbuAhW_ILkGHZRjCkEQ4dUDCA0&uact=5')
        Dim html_Document As New HtmlAgilityPack.HtmlDocument
        html_Document.LoadHtml(StrUrl)
      

    End Sub




#496180 - 02/02/2021 13:56:53

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


 Anexos estao visíveis somente para usuários registrados

se der certo com oque vc precisa esta no net framework 4.7
finalize o topico



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário