Estoy trabajando en una aplicación Neoboock para mi uso:
Tengo que mandar unos textos a un servidor de Medios Audiovisuales.
Tiene incorporado un servidor web que permite recibir los textos, se envia el nombre de la variable y el texto y este servidor envia los datos a unas pantallas.
Necesita que se le envié por el método POST.
al principio utilizaba la función de Neoboock estandar INTERNETPOST y no hay problema cuando no tienes que enviar textos muy seguidos
El caso es que ahora quiero enviar un contador hacia atras que he programado con un TIMER que se actualiza cada segundo y a veces cada 1/2 segundo, pero a internetPost no le da tiempo, por lo que estuve buscando y lo he intentado con VbScript y el resultado a sido espectacular, puedo enviar datos cada 300ms o menos el servidor de Medios es muy rápido.
Os paso la funcion VBscritpt que utilizo.
El problema que tengo es cuando no se puede conectar con el servidor porque se interrumpe la conexión por algún motivo.
Al principio del script que ejecuta el timer compruebo que tenga conexion con el servidor y si no la tiene saco un mensaje, luego el timer llama a la función VbScript que os paso, si se interrumpe aqui la conexión es donde tengo el problema.
He utilizado On Error Resume Next y le paso la variable con el codigo de error al script que llama a la función de VBScript. pero no es suficiente, porque antes de Salir de la función VbScript me sale el mensaje de tiempo de espera superado cuando no consigue conectarse.
Se os ocurre alguna solución.
Gracias a todos
Eduardo Cueto
Code: Select all
'URL to open....
sUrl = "[%2]:8080/forms/VisfxCreditsTextInputMulti"
'POST Request to send.
sRequest = "[%1]"
HTTPPost sUrl, sRequest
nbSetVar "[codigoError]", Err.Number
Function HTTPPost(sUrl, sRequest)
On Error Resume Next
set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.open "POST", sUrl,false
oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.setRequestHeader "Content-Length", Len(sRequest)
oHTTP.send sRequest
HTTPPost = oHTTP.responseText
End Function
