VB 字符串转换为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://www.cnblogs.com/Elcser/p/8401752.html