Testar conexão com a internet

[Clipper]

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

[Cleiton Fidelis]

Patrao Clipper,


O link ta em manutencao, poderia enviar-me a funcao ?

Abracos

Cleiton Fidelis
Divinopolis MG
cleitonfidelis@hotmail.com

[rochinha]

Assim fica melhor

codigo completo C.BAT

Código: Selecionar todos

CLIPPER PINGA
RTLINK FI PINGA
DEL PINGA.OBJ

codigo completo PINGA.PRG

Código: Selecionar todos

*------------------*
// 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

Como os arquivos são pequenos podem ser colocados explicitamente. Só não dá quando forem .OBJ e .EXE e ai só zipando.