Viusla Basic 6..0 语言编写一个函数，把uncode字符串转换为utf-8字符串

Question

Viusla Basic 6..0 语言编写一个函数，把uncode字符串转换为utf-8字符串

Answer 1

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