none
Como posso verificar se uma página da WEB existe pelo VB.NET? Através de LINK/URL de um site existente ou não? RRS feed

  • Pergunta

  • Boa tarde.

    Gostaria de implementar em minha aplicação uma maneira de verificar se uma página web existe (seja ela de qual site for) se ela existir, o webbrowser exibirá ela, mas se não existir, colocarei uma mensagem, e provavelmente depois que eu criar ela, automaticamente ela aparecer na aplicação. Eu queria fazer do mesmo jeito que a gente faz com o diretório do pc exemplo:

    My.Computer.FileSystem.DirectoryExists("LINK DA PASTA PC")

    Queria dessa mesma forma, só que com LINKS da net. É possível?

    OBS: Obviamente o código acima só funciona com diretório de pasta, não funciona da maneira que quero com páginas da internet :(

    domingo, 5 de março de 2017 16:15

Respostas

  • Bom dia Vini lima,

    Por gentileza, verifique a sugestão neste link.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 6 de março de 2017 12:53
    Moderador

Todas as Respostas

  • Bom dia Vini lima,

    Por gentileza, verifique a sugestão neste link.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 6 de março de 2017 12:53
    Moderador
  • Bom dia,

    Devido a falta de interação do autor dessa pergunta,

    essa thread está sendo fechada. Caso o problema ainda

    esteja ocorrendo, favor abrir uma nova thread.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 8 de março de 2017 12:06
    Moderador
  • Bom dia,

    Devido a falta de interação do autor dessa pergunta,

    essa thread está sendo fechada. Caso o problema ainda

    esteja ocorrendo, favor abrir uma nova thread.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    Obrigado, mas já resolvi o problema... como sempre, me virei sozinho e pensando muito consegui resolver! Mas de qualquer forma obrigado. Se alguém precisar, coloco o código ;)
    quarta-feira, 8 de março de 2017 17:36
  • Bom dia Vini,

    Por gentileza, se possível poste a sua solução, isso irá ajudar a comunidade do fórum.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 9 de março de 2017 13:12
    Moderador
  • Olá Robson! Desculpe pela demora, eu nem tinha percebido que a thread foi fechada, mas de qquer forma venho agora mostrar minha solução é simples:

     Public Class Form1
    'Variável com nome do site (pode se usar um textbox se preferir):
     Public Site = "https://www.seusite.exemplo.com"
    
    'Botão que verifica a existência do site:
    
    Private Sub btn_verificar_site_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_verificar_site.Click
            If ExisteLink(Site) Then
                MessageBox.Show("O site existe!")
            Else
                MessageBox.Show("O site não existe.")
            End If
        End Sub
                
    Private Function ExisteLink(ByVal url As String) As Boolean
            Try
                'Cria um HttpWebRequest
                Dim request As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
                'Define o metodo Request HEAD, podemos usar GEt tambem
                request.Method = "HEAD"
                'Obtendo a resposta com  HttpWebResponse.
                Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
                'Retorna True se o status for igula 200
                Return (response.StatusCode = HttpStatusCode.OK)
            Catch
                'qualquer exceção irá retornar false
                Return False
            End Try
        End Function
    End Class
    É isso! Desculpe pela demora!!! Espero que ajude alguém!!!

    terça-feira, 2 de maio de 2017 03:45