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.
Verificar Conexion con Internet
Verificar Conexion con Internet
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
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")
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
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
Gracias a todos
Muchas gracias a todos funciono de maravilla. 
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]