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

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

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

https://msdn.microsoft.com/zh-cn/library/ms172828.aspx
http://www.360doc.com/content/10/0408/10/541242_22057163.shtml