Página 1 de 1
Testar conexão com a internet
Enviado: 22 Fev 2007 10:54
por 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
Enviado: 27 Fev 2007 08:06
por Cleiton Fidelis
Patrao Clipper,
O link ta em manutencao, poderia enviar-me a funcao ?
Abracos
Cleiton Fidelis
Divinopolis MG
cleitonfidelis@hotmail.com
Enviado: 02 Mar 2007 22:32
por rochinha
Assim fica melhor
codigo completo C.BAT
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.