dim e as object
Set
e=CreateObject(
"MSScriptControl.ScriptControl"
)
e.Language =
"javascript"
dim d as stringd= e.Eval(
"encodeURI('微软计算机')"
) '运行javascript脚本的函数
MsgBox d
MsgBox e.Eval(
"decodeURI('"
& d &
"')"
)