¿Cómo ejecutar código JS en una página web y obtener el valor de retorno?
.Subrutina Ejecutar JS, variable, pública
.Parámetro JS_, texto
. Parámetro ExecuteCode, valor lógico, vacío, si se ejecuta el código especificado
Variable local vit, tipo de variable
Variable local Iwnd, objeto
. Si es verdadero (Objeto de documento web. Está vacío ())
Objeto de documento web. crear("archivohtml", )
. Fin si es verdadero
Iwnd = Objeto de documento web. Leer atributo de tipo de objeto("parentWindow",)
Iwnd.method("execScript", select(ejecutar código, JS_, "js=new Object(); js.value=" + JS_ + "; document.onhelp=js" ))
. Si es verdadero (ejecutar código)
devuelve (vit)
. Si es verdadero end
vit = objeto de documento web. ReadProperties ("en ayuda",). obtenerObjeto(). ReadProperties("valor", )
WebDocumentObject. Escribir propiedades ("onhelp", "")
Regresar (vit)
Obtener el objeto del documento web y luego llamar a este método con soporte de IE...