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 &
"')"
)