SEM CONEXAO COM A NET

RICOCARDOZO 10/06/2011 13:10:16
#376427
Olá a todos
Estou com um probleminha e queria ver se não existe uma solução mais simples para isto.
Por exemplo ao carragar meu sistema ele traz dados via internet , sem uso do inet nem webbroser nem o winsock.
Só que quando a internet está fora do ar ele trava e demora uma cara pra abrir o programa pois a rotina fica no load do fom principal.
Já baixei varias coisas para verificar se a internet está ok mas não funcionou pelo fato de ser modem adsl.

Dai eu pergunto pra voces?
Será que não tem uma forma via api do windows para verificar se a conexão está ativa , ou um determinado site esta fora do ar?

Ou uma outra forma de não travar o sistema , a função que conecta com a net ficar rodando em segundo plano.
RICOCARDOZO 10/06/2011 13:48:55
#376433
Mais estou usando o VB6
TECLA 10/06/2011 20:24:11
#376468
Como você obtém os dados da internet?
Usando ADO?
RICOCARDOZO 10/06/2011 22:17:21
#376474
Direto do xml de uma pagina:
Set objNode2 = RSSItem(lPos).getElementsByTagName([Ô]description[Ô])

EDERMIR 11/06/2011 23:14:05
#376539
Insira o INET e verifique a existência de um site, se o retorno for diferente de [Ô][Ô] então o site está fora do ar (ou você está fora da net).

Wresposta = Inet1.OpenURL([Ô]http://www.brasil.gov.br/[Ô])
if Wresposta = [Ô][Ô] then
msgbox([Ô]Fora da NET[Ô])
endif
Tópico encerrado , respostas não são mais permitidas