FiveTech Software tech support forums

Tim, try with
viewtopic.php?f=6&t=35214&p=210030&hilit=ISInternet#p209553

Karinha, gracias por el aporte trabaja bien.

Hola, eso fue una sugerencia del foro nacional de fivewin, para forzar la conexión con microsoft. Funciona perfecto. Saludos.

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

Haga asi: //-> Funcao para checar a InternetFUNCTION IsInternet()   LOCAL cIp, cVret := .F.   WsaStartUp()   cIp := GETHOSTBYNAME( "microsoft.com" )   cIp := GETHOSTBYNAME( ...

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á ...

... Function HrDtInternet() Local oHttp, ; cResp1 := "", ; cResp := "", ; cHora := "", ; cData := "" IF !IsInternet() MsgWait( "Não foi possível conectar a Internet para"+CRLF+; "buscar a Data e Hora de Brasilia"+CRLF+; "A Data ...

... local oDlg, aGet[4], aBtn[2], oActiveX local cCity := space(100) local cCountry := "CL" local cStreet := space(100) local nNum := 0 If !IsInternet() MsgInfo("Ud. no posee Conección Activa a <INTERNET>, !!! Favor Verificar ¡¡¡ ") Return Nil Endif Define Dialog oDlg Resource ...

O puedes usar la function IsInternet() -> return .T. / .F.

... el siguiente tema desde el programa ingreso a distintas paginas con la siguiente funcion //////////// Function VerURL(cLink) Local oActiveX If IsInternet() DEFINE DIALOG oDlg RESOURCE "CONSULTA_WEB_3" TITLE "Ver URL" REDEFINE ACTIVEX oActiveX ID 10 OF oDlg PROGID "Shell.Explorer" ...

... bMens, lAuth:=!Empty(cUser).and.!Empty(cPass) Local aAttach:={} Default nPort := 25, ; cSubject := "", ; cBody := "" if !IsInternet() aviso({'ATENCION','No existe conección a internet','Intente más tarde o verifique su problema'}) return .t. endif If "GMAIL.COM" ...

... := 2 // send using: 1 = pickup folder 2 = port memvar aAttach Default nPort := 25, ; cSubject := "", ; cBody := "" if !IsInternet() aviso({'ATENCION','No existe conección a internet','Intente más tarde o verifique su problema'}) return .t. endif If "GMAIL.COM" ...

... LOCAL ts_token:="",ts_usuario:=space(50),ts_id:=space(50) LOCAL ts_clave:=space(20),ts_exit:=.f.,tw_servidor:='' LOCAL nrate:=nil if !isinternet() msgalert('Computador Sin Conexion a Internet','Verifique') return .f. endif if .NOT.FILE("\MLMALL\config\config.ini") msgalert('Archivo ...

... function consulta() Local user:="Cliente5",pass:="3217" Local URL:='https://zofri.mekanosige.cl:2414/WcfCP.svc?singleWsdl' if !isinternet() msgalert('Computador Sin Conexion a Internet','Verifique') return .f. endif doc = CreateObject( "MSXML2.DOMDocument" ) ohttp ...

Claro, no hay problema.

Saludos,


Adhemar