Verifica conexão com a Internet usando xHarbour+TIP.LIB

[sygecom]

*O Exemplo abaixo verifica a conexão com a Internet.
*Obs:tem que linkar a TIP.LIB

Código: Selecionar todos

IF VereficaNet()=.T.
    @ 10,10 say "Conectado"
else
    @ 10,10 say "Deconectado"
Endif

*******************************
Function VereficaNet( cAddress )
*******************************
LOCAL aHosts
LOCAL cName
InetInit()
IF cAddress == NIL
   cAddress := "www.google.com.br"
ENDIF
aHosts := InetGetHosts( cAddress )
IF aHosts == NIL .or. len(aHosts)=0
   InetCleanup()
   RETURN .f.
endif
InetCleanup()
RETURN .t.

[ederxc]

Valeu Tio !