Tiempo de espera Agotado

[Jose Alberto Chaves]

Hola Amigos.

esto es parte de un codigo de una consulta api a una pagina WEB

Verifico que exista conexión  a internet. Cuando no existe conexion la mayoria de las veces continua de forma correcta, pero aveces me envia mensaje de error:

 // en la captura adjunta esta el mensaje de error que me envia  

Me podrian ayudar a por lo menos indicarme que puede ser.

Parte del codigo:

Declare SHORT InternetGetConnectedState In wininet;

INTEGER @ lpdwFlags,;

INTEGER dwReserved

conectada= InternetGetConnectedState (1,0)

If conectada=1 && EXISTE CONEXION A INTERNET

oHTTP.Send(cJsonRpcCall)

Else

Return .F.

Endif

Local lcResultText

lcResultText = oHTTP.responseText

Thisform.edit1.Value=Textmerge (lcResultText)