Buenas. Estoy tratando de hacer un chat mediante el uso de XMLHTTP con vbscript.
el unico problema es que no me lee el txt que escribe y no lo actualiza en el textarea, aunque el txt es escrito y sobreescriot correctamente. alguien puede decirme donde esta el error? y que solucion o alternativa en caso de no poder mediante este metodo.
Es mejor con iExplorer Navigate?
Aca el code:
Sub actel()
nomvar = int(rnd * 888888)
Set nomvar = CreateObject("MSXML2.XMLHTTP")
nomvar.open "GET", "http://localhost/msnvbs/conv83472980093.txt", FALSE
nomvar.send
el.value = nomvar.ResponseText
el.scrollTop=9999999
set nomvar = nothing
MOTORD = WINDOW.SETTIMEOUT("actel()", 5000)
End Sub
Sub Document_onKeyPress()
If window.event.keyCode="13" Then
nomvar = int(rnd * 888888)
Set nomvar = CreateObject("MSXML2.XMLHTTP")
nomvar.open "POST", "http://localhost/msnvbs/enviar.php?contrasena=" &contrasena.value& "&nombre=" & nombre.value & "&mensaje=" &yo.value&"", False
nomvar.send
yo.value = ""
el.scrollTop=9999999
set nomvar = nothing
actel()
end if
end sub
Saludos!
PD: Utilizo un nombre random para la variable porque etsaba probando pero no creo que eso cambie nada.