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
Testar conexão com a internet
Moderador: Moderadores
3 Mensagens • Página 1 de 1
Testar conexão com a internet
por Clipper » 22 Fev 2007 09:54
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
-
Clipper Colaborador 
- Mensagens: 1320
- Data de registro: 23 Ago 2004 00:04
- Cidade/Estado: Recife/PE
- Curtiu: 0 vez
- Mens.Curtidas: 3 vezes
por Cleiton Fidelis » 27 Fev 2007 08:06
Patrao Clipper,
O link ta em manutencao, poderia enviar-me a funcao ?
Abracos
Cleiton Fidelis
Divinopolis MG
cleitonfidelis@hotmail.com
O link ta em manutencao, poderia enviar-me a funcao ?
Abracos
Cleiton Fidelis
Divinopolis MG
cleitonfidelis@hotmail.com
-
Cleiton Fidelis Usuário NÃvel 2 
- Mensagens: 79
- Data de registro: 06 Jul 2004 09:44
- Cidade/Estado: Divinopolis MG
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por rochinha » 02 Mar 2007 22:32
Assim fica melhor
codigo completo C.BAT
codigo completo PINGA.PRG
Como os arquivos são pequenos podem ser colocados explicitamente. Só não dá quando forem .OBJ e .EXE e ai só zipando.
codigo completo C.BAT
CLIPPER PINGA
RTLINK FI PINGA
DEL PINGA.OBJ
codigo completo PINGA.PRG
*------------------*
// 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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master 
- Mensagens: 4544
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 806 vezes
- Mens.Curtidas: 245 vezes
Ver tópicos ativos •
3 Mensagens • Página 1 de 1
Retornar para Contribuições, Dicas e Tutoriais
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
