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?

Question

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 :(

Answer 1

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.

Answer 2

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.

Answer 3

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 ;)

Answer 4

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.

Answer 5

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