topic-5215

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Verificar Conexion con Internet
Posted: Tue Dec 05, 2006 09:17 PM

Amigos del foro, tengan buena tarde...

¿Existe alguna forma de saber si el pc esta conectado a internet?, y si se puede me podrian pasar un ejemplo.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Verificar Conexion con Internet
Posted: Tue Dec 05, 2006 09:52 PM

regards, saludos

Antonio Linares
www.fivetechsoft.com

Posts: 840

Joined: Thu Oct 13, 2005 07:05 PM

Verificar Conexion con Internet
Posted: Tue Dec 05, 2006 10:24 PM

Una forma de hacerlo sin matar pulgas a cañonazos:

Function IsInternet()
WSAStartup()
RETURN (IIF(GetHostByName("microsoft.com")<>"0.0.0.0",.T.,.F.)

Saludos

R.F.

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

Verificar Conexion con Internet
Posted: Wed Dec 06, 2006 01:03 PM

Leandro:

Esta es la que yo utilizo:

Function IsInternet()

  LOCAL cIp, cVret := .F.

  WsaStartUp()

  cIp := GETHOSTBYNAME("microsoft.com")

  WsaCleanUp()

RETURN (cIp<>"0.0.0.0")

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Gracias a todos
Posted: Thu Dec 07, 2006 11:24 PM

Muchas gracias a todos funciono de maravilla.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums