como puedo saber desde mi visual foxpro si tengo internet

[Javier Bernal]

Les pregunto esto aunque se que es muy obvio observar la barra de tareas, pero cuando no lo observas o eres un usuario que te asustas cuando haces alguna actividad que requiere de conexión a Internet y esta no esta no es satisfactoria ahí me gustaría enviar un mensaje que no hay conexión disponible.

Si alguien tiene respuesta se lo agradeceré.

[Edgar Acevedo]

Tal vez esta función te pueda servir:

? Hay_Web()

FUNCTION HAY_WEB
   DECLARE LONG InternetGetConnectedState IN "wininet.dll" LONG lpdwFlags, LONG dwReserved
   IF InternetGetConnectedState(0, 0) = 1 THEN
       M.HAY_WEB_RS = .T.
   ELSE
       M.HAY_WEB_RS = .F.
   ENDIF
   RELEASE InternetGetConnectedState
RETURN M.HAY_WEB_RS

[Saúl Piña]

En mi caso, yo utilizo un prg para testear si existe conexion a internet y por medio de un parametro obtener el status.

Adjunto el prg

[Javier Bernal]

Gracias por sus aportaciones, hice las pruebas y fueron satisfactorias. Saludos a Todos

[Jean Pierre Adonis De La Cruz Garcia]

Es Viernes todo vale

Fíjate si tu zorro esta en la nube, sino le dices al principito que te eche una mano

[goyohidalgo]

El viernes, 28 de agosto de 2015, 0:30:47 (UTC-4:30), Javier Bernal escribió:

Les pregunto esto aunque se que es muy obvio observar la barra de tareas, pero cuando no lo observas o eres un usuario que te asustas cuando haces alguna actividad que requiere de conexión a Internet y esta no esta no es satisfactoria ahí me gustaría enviar un mensaje que no hay conexión disponible.

Si alguien tiene respuesta se lo agradeceré.

Yo utilizo estas instrucciones y me funcionan muy bien espero te puedan ayudar

DECLARE INTEGER InternetCheckConnection in wininet.dll;

STRING lpszUrl, INTEGER dwFlags, INTEGER dwReserved 

IF InternetCheckConnection("http://www.google.com", 1, 0) == 1 then

ELSE

  MESSAGEBOX('NO hay conexión a Internet, revisa la conexión, e intenta de nuevo.')

  RETURN 

ENDIF

[José Enrique Llopis]

Mira este enlace

 

http://fox.wikis.com/wc.dll?Wiki~IsSystemConnectedToInternet

 

 

Pepe Llopis

 

 

---

[Rudolf Johann Heiner]

DECLARE LONG InternetGetConnectedState IN "wininet.dll" LONG lpdwFlags, LONG dwReserved

IF InternetGetConnectedState(0, 0) = 1 THEN

 

    *Tu codigo aqui

 

ENDIF

[Guillermo L.]

Tengo un problema que se me da con un cliente especificacmente: Para conectarme a internet uso InetCtrl.Inet.1 ; En mi aplicacion y en mi PC accede perfectamente a Internet. Pero en la PC de mi cliente y solamente con mi aplicacion no accede as Internet (con otras aplicaciones si accede a Internet). En la PC de mi cliente el Firewall esta totalmente desactivado. Repito: Solo pasa con mis aplicaciones en la pc de mi cliente. Con las otras aplicaciones que tiene mi cliente instaladas no tiene este problema. Solo con las nuestras. Pero esas mismas aplicaciones nuestras en el resto de nuestra clientela acceden perfectamente a Internet. Alguien sabe a qué se debe este problema ?

[Claudio Segretin]

No se para que te conectas, pero asegúrate que el IP de tu cliente no este baneado en el servidor al que quieres acceder.

Saludos

Claudio E. Segretin

El vie., 7 jun. 2019 a las 19:30, Guillermo L. (<sistem...@gmail.com>) escribió:

Tengo un problema que se me da con un cliente especificacmente: Para conectarme a internet uso InetCtrl.Inet.1 ; En mi aplicacion y en mi PC accede perfectamente a Internet. Pero en la PC de mi cliente y solamente con mi aplicacion no accede as Internet (con otras aplicaciones si accede a Internet). En la PC de mi cliente el Firewall esta totalmente desactivado. Repito: Solo pasa con mis aplicaciones en la pc de mi cliente. Con las otras aplicaciones que tiene mi cliente instaladas no tiene este problema. Solo con las nuestras. Pero esas mismas aplicaciones nuestras en el resto de nuestra clientela acceden perfectamente a Internet. Alguien sabe a qué se debe este problema ?

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/d323011e-ce16-4cca-94f9-60fbbe75183a%40googlegroups.com.

[Guillermo L.]

Nuestra aplicacion accede a nuestros dominios para traspaso de informacion. Lo raro es que no accede directamente a ningun sitio de los nuestros, pero si se coloca la url en un explorador web cualquiera, si accede

El viernes, 7 de junio de 2019, 19:52:23 (UTC-3), Claudio Segretin escribió:

No se para que te conectas, pero asegúrate que el IP de tu cliente no este baneado en el servidor al que quieres acceder.

Saludos

Claudio E. Segretin

El vie., 7 jun. 2019 a las 19:30, Guillermo L. (<sistem...@gmail.com>) escribió:

Tengo un problema que se me da con un cliente especificacmente: Para conectarme a internet uso InetCtrl.Inet.1 ; En mi aplicacion y en mi PC accede perfectamente a Internet. Pero en la PC de mi cliente y solamente con mi aplicacion no accede as Internet (con otras aplicaciones si accede a Internet). En la PC de mi cliente el Firewall esta totalmente desactivado. Repito: Solo pasa con mis aplicaciones en la pc de mi cliente. Con las otras aplicaciones que tiene mi cliente instaladas no tiene este problema. Solo con las nuestras. Pero esas mismas aplicaciones nuestras en el resto de nuestra clientela acceden perfectamente a Internet. Alguien sabe a qué se debe este problema ?

--
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[ZeRoberto]

Talvez esto te ayude

Function InternetConnected()
Local llResult
    llResult = .T.
    Declare Long InternetGetConnectedState In "wininet.dll" Long, Long
    If InternetGetConnectedState(0, 0) != 1
       llResult = .F
    EndIf
    Clear Dlls "InternetGetConnectedState"
Return (llResult)

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/82f91e6f-2aab-416f-9046-43ad5a6be33b%40googlegroups.com.

[Guillermo L.]

Tenes ejemplos de acceso a la web mediante  wininet.dll   ???? 

D&G Consultora

Tucuman 661 - 1º piso - Oficina 5

Gral. Roca - Rio Negro

Argentina

Sitio Web "D&G Consultora"

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8p7D45hQq4Qdjo228nnc9jX9i2k6Wqfd5poLpdAnZ%3DGdw%40mail.gmail.com.