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:
Código
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.