dim e as object
Set?e=CreateObject("MSScriptControl.ScriptControl")e.Language?=?"javascript"dim d as stringd=?e.Eval("encodeURI(‘微软计算机‘)") ‘运行javascript脚本的函数MsgBox?dMsgBox?e.Eval("decodeURI(‘"?&?d??&?"‘)")
dim e as object
Set?e=CreateObject("MSScriptControl.ScriptControl")e.Language?=?"javascript"dim d as stringd=?e.Eval("encodeURI(‘微软计算机‘)") ‘运行javascript脚本的函数MsgBox?dMsgBox?e.Eval("decodeURI(‘"?&?d??&?"‘)")原文：https://www.cnblogs.com/Elcser/p/8401752.html