Hola compa帽eros:
Estoy teniendo problemas de lentitud al ejecutar la funci贸n IsInternet() sobre todo cuando el internet se cae, tarda hasta 30 segundos en regresar el control al equipo, ya intente con GetHostByName y me sucede lo mismo en varios equipos. Habr谩 alguna soluci贸n mas r谩pida para poder detectar si se tiene conexi贸n a internet??
Alguna ayuda??
Saludos !!
Eduardo Borond贸n Mu帽iz
//-> Funcao para checar a Internet
FUNCTION IsInternet()
LOCAL cIp, cVret := .F.
WsaStartUp()
cIp := GETHOSTBYNAME( "microsoft.com" )
cIp := GETHOSTBYNAME( "microsoft.com" )
WsaCleanUp()
// Seguranca caso o provedor da microsoft esteja fora do ar...
IF ( cIp <= "0.0.0.0" )
WsaStartUp()
cIp := GetHostByName( "google.com" )
cIp := GetHostByName( "google.com" )
WsaCleanUp()
ENDIF
RETURN( cIp<>"0.0.0.0" )Gracias Karinha por responder, lo voy a probar como me indicas y te comento como me fue, s贸lo una pregunta, por que haces una doble llamada a la funci贸n GetHostByName() ?
Saludos!!
Eduardo Borond贸n Mu帽iz
Hola, eso fue una sugerencia del foro nacional de fivewin, para forzar la conexi贸n con microsoft. Funciona perfecto. Saludos.
Karinha, gracias por el aporte trabaja bien.
