SEM CONEXAO COM A NET
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.
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.
Mais estou usando o VB6
Como você obtém os dados da internet?
Usando ADO?
Usando ADO?
Direto do xml de uma pagina:
Set objNode2 = RSSItem(lPos).getElementsByTagName([Ô]description[Ô])
Set objNode2 = RSSItem(lPos).getElementsByTagName([Ô]description[Ô])
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