VB6中实现UTF-8编码解码

在几年前，为了解经过UTF-8编码过的文字，我找了很多地方都没有找到，一直耿耿于怀。最近重新用快要进入博物馆的VB6写MS Office同步器，跟ASP.NET进行交互，遇到了经过UTF-8编码过的文字，这个时候不能不好好解决这个问题了。

所以我在网络上搜索，看见纯vb6写的eXML(XML解析器，自称能进行UTF-8编码和解码)，可惜尝试后不行。

再继续搜索，发现了MichKa写的UTF-8_Encode Decode，效果正是我想要的。可惜他添加了太多用不上的内容，特别是他引用了MS Office API，大大增加了依赖性。

经过我的处理，把对MS Office API的依赖去掉了，大小为原来的1/2，并且添加了对URL编码的解码处理，封装成Class，如在google搜索“测试”，你会发现经过编码的关键字是“%E6%B5%8B%E8%AF%95”，我写的函数就能直接解这个编码。

关键的实现是调用MultiByteToWideChar和WideCharToMultiByte API，具体参考代码。

这里是打包下载：UTF8Class