Source language: Translate to:

Envio de datos mediante POST con VBScript

Discusión sobre NeoBook en español

Moderators: Neosoft Support, beno

Envio de datos mediante POST con VBScript

Postby ecueto » Wed Aug 16, 2017 10:26 am

Hola amigos.
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
ecueto
 
Posts: 26
Joined: Sat Jun 07, 2014 12:04 am

Re: Envio de datos mediante POST con VBScript

Postby ecueto » Sat Aug 19, 2017 1:39 am

En realidad lo único que quiero es que si por algún motivo se interrumpe la conexión con el servidor, evitar el Mensaje que sale diciendo que el tiempo de espera se ha superado, porque va a confundir si usa el programa algún compañero.
No se porque no se genera un error cuando se supera el tiempo de espera en vez del dichoso mensaje.

Muchas gracias a todos

E.Cueto
ecueto
 
Posts: 26
Joined: Sat Jun 07, 2014 12:04 am

Re: Envio de datos mediante POST con VBScript

Postby virger » Sat Aug 19, 2017 6:20 am

Y porque no usar PHP quiza JAVASCRIPT ?
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 510
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Envio de datos mediante POST con VBScript

Postby ecueto » Sun Aug 20, 2017 10:37 am

gracias Virger lo intentare.

E.Cueto
ecueto
 
Posts: 26
Joined: Sat Jun 07, 2014 12:04 am

Re: Envio de datos mediante POST con VBScript

Postby pgsoft » Tue Aug 29, 2017 10:04 pm

Hola.

usa :

SetVar "[WSHTimeOut]" "-1"

Saludos.
pgsoft
 
Posts: 7
Joined: Thu Jun 15, 2017 11:10 am


Return to NeoBook en Español

Who is online

Users browsing this forum: No registered users and 2 guests