Fazendo uma varredura no HD encontrei essa funçãozinha simples que testa se tem conectividade com a internet.
www.phrep.com.br/pinga.zip
Até logo.
Ps. Gostei muito desse nome "Pinga", pense num nomão.... :)Pos
Marcelo

Moderador: Moderadores
CLIPPER PINGA
RTLINK FI PINGA
DEL PINGA.OBJ
*------------------*
// Marcelo Mendes //
*------------------*
// Funcao para testar se a uma conexao com a internet ativa
// Retorna .T. se houver conexao ou .F. se nao houver
CLS
RUN ping www.uol.com.br -n 1 -w 5000 >RETORNO.PIN
DBCREATE("RETORNO.DBF",{{"RET","C",80,0}})
USE RETORNO
DBAPPEND()
APPEND FROM RETORNO.PIN SDF
DBGOTOP()
LOCATE FOR "ESGOTADO"$UPPER(RET)
IF EOF()
@ 10,00 SAY "Conectado..."
USE
FERASE("RETORNO.DBF")
FERASE("RETORNO.PIN")
RETURN(.T.) // Conectado a internet
ELSE
@ 10,00 SAY "Desconectado..."
USE
FERASE("RETORNO.DBF")
FERASE("RETORNO.PIN")
RETURN(.F.) // Desconectado da internet
ENDIF
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes