sobre servidor web

[Samy Bolsoni 0]

Pessoal, estou com uma dúvida se existe como o VB validar se um servidor ou página web estão disponíveis ou online... por exemplo, retornar um valor X se a página http://www.teste.com.br/teste.php estiver indisponível.

Desde já agradeço.

Abraços.

[Luizgrs 0]

Você pode utilizar o componente xmlhttprequest.

Para isso você vai em References e marca a opção Microsoft XML, version 2.0 (em outras versões também pode funcionar), depois você utiliza o seguinte código:

Dim http As New XMLHTTPRequest 'instancia o novo objetohttp.open "GET", url, False 'prepara o objetohttp.send 'dispara o pedidoIf http.Status <> 200 Then 'verifica o status	MsgBox "ERRO"Else	MsgBox "Página Aberta com sucesso!"	conteudo_da_pagina = http.responseTextEnd If

A propriedade status retorna o código de status do HTTP.

 

O componente acessa a página e caso ela abra normalmente o status será 200 (OK) caso contrário ocorreu algum erro (você pode verificar pelo status).