工作中无意看到一个网站搜索的关键字加密后进入不是很长的那种，比较短，所以不像utf8编码，尝试了几种都不是，刚要询问别人时候忽然灵光一现，1个汉字对应4个字母，有点熟悉啊，好像是16进制编码？一测试果然是16进制的，于是编写了个函数，以供后来者方便直接使用。
www.baidu.com/baidu?wd=%c…上面第一个为utf8编码，第二个为16进制编码。
'将中文编码为16进制的，用于网页浏览器地址 Public Function UnicodeToHex(ByVal strKey As String) As String Dim i%, strChar$, strResult$, strTmp$ For i = 1 To Len(strKey) strChar = Mid(strKey, i, 1) If Asc(strChar) < 0 Then strTmp = LCase(Hex(Asc(strChar))) strResult = strResult & "%" & Left(strTmp, 2) & "%" & Right(strTmp, 2) Else strResult = strResult & strChar End If Next UnicodeToHex = strResult End Function
用上述代码把中文关键加密下即可。
