多语言自动翻译

wodewan

chis3 发表于 2020-11-29 17:24
請教一下
responseheader 加在請求有用的嗎?
我只看到需要requestheader的請教,response的都沒什用處

分情况的，很多基于登录跳转什么的请求，基本上要上个页面的Response，最常见的就是COOKIE。

chis3

wodewan 发表于 2020-11-29 17:37
分情况的，很多基于登录跳转什么的请求，基本上要上个页面的Response，最常见的就是COOKIE。

res = js.CodeObject.hex_md5(s)

這句真厲害, 沒想過能這樣用, 調用網頁的js函數, 一定要放在scriptcontrol 的object才有效嗎?
不是直接讓網頁讀取解讀嗎?

wodewan

chis3 发表于 2020-11-29 18:23
res = js.CodeObject.hex_md5(s)

這句真厲害, 沒想過能這樣用, 調用網頁的js函數, 一定要放在scriptco ...

没必要非这么写的，前面说过，那只是网上现成的一个轮子而已，看到了拿来用用的。
如果自己写，感觉用HTML调用其实更方便，还不用考虑32位还是64位，别说调MD5加密，你就是调J-Query都可以，代码更简单，效果是一样的。
Function MD5_JS(s)
    Dim objDom, objWin
    Set objDom = CreateObject("htmlfile"): Set objWin = objDom.parentWindow
    objDom.write "<script src='http://www.cmd5.com/md5.js'></script>"
    MD5_JS = objWin.eval("hex_md5('" & s & "')")
End Function

chis3

wodewan 发表于 2020-11-29 21:06
没必要非这么写的，前面说过，那只是网上现成的一个轮子而已，看到了拿来用用的。
如果自己写，感觉用HT ...

感謝
長知識了

dongdonggege

老师，你好。
请教：FanYi模块的Fy_YD过程，Set objDom = CreateObject("htmlfile")，运行到这，提示ActiveX不能建立，我看你的引用里也没有丢失什么，我用的2007，这是什么原因？
我是第一次接触，麻烦老师了。

wodewan

dongdonggege 发表于 2021-12-28 09:20
老师，你好。
请教：FanYi模块的Fy_YD过程，Set objDom = CreateObject("htmlfile")，运行到这，提示Activ ...

不知道和EXCEL或浏览器版本有没关系，这个创建的只是一个HTMLDOCUMENT对象，VBA网抓很多用这个解析页面，可能和某些组件缺失有关，具体不太清楚。

zhaowei0823

请问大神，如果想固定源和目标语言怎么改？比如源是德语，目标是英语，谢谢了

wodewan

zhaowei0823 发表于 2022-8-19 08:48
请问大神，如果想固定源和目标语言怎么改？比如源是德语，目标是英语，谢谢了

可参考这个帖子：https://club.excelhome.net/thread-1614003-1-1.html

zhaowei0823

wodewan 发表于 2022-8-19 09:52
可参考这个帖子：https://club.excelhome.net/thread-1614003-1-1.html

非常感谢！！！！！！！！