这个中文转码是什么格式，怎么转的？

renahu

liucqa 发表于 2016-10-3 09:39
那应该是个简单的加密，你看看里面有没有加密函数

1. Sub GetData1()
   
2.     Dim w$, url$, strJSON$, strFunc$, XML, objSC, objJSON, v
   
3.     w = "work"
   
4.     url = "http://fanyi.baidu.com/v2transapi"
   
5.     Set XML = CreateObject("Microsoft.XMLHTTP")
   
6.     With XML
   
7.         .Open "POST", url, False
   
8.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
9.         .send "from=en&to=zh&query=" & w & "&simple_means_flag=3"
   
10.         While .readyState <> 4
    
11.             DoEvents
    
12.         Wend
    
13. '        CopyToClipbox (.responseText)
    
14.         Set objSC = CreateObject("scriptcontrol")
    
15.         objSC.Language = "jscript"
    
16.         strJSON = .responseText
    
17.         strFunc = "function getjson(s) { return eval('(' + s + ')'); }"
    
18.         objSC.addcode strFunc
    
19.         Set objJSON = objSC.CodeObject.getjson(strJSON)
    
20. '        Cells(1, 1) = objJSON.dict_result.simple_means.from
    
21.         Cells(1, 1) = objJSON.dict_result.simple_means.symbols[0].parts[0].part     '报错
    
22.     End With
    
23. End Sub
    

复制代码

Cells(1, 1) = objJSON.dict_result.simple_means.symbols[0].parts[0].part   这个句子有错吗？

renahu

liucqa 发表于 2016-10-3 09:39
那应该是个简单的加密，你看看里面有没有加密函数

终于解决了！这里面耍了点小手腕儿：
replace(replace(encodeURI("早上好"),"%","%C2%"),"%C2%E","%C3%A")