给lisp搞个百度翻译函数

和尚777

;解压,NETLOAD加载Translate.dll
;适用2012-2024
;成功返回json字符串,否则null
;自己解析json或取dst后面的东西
;使用方法
;(hs-Translate id key form to 要翻译的str)
; id 和 key 要自己去百度搞一个哦,这里是我自己的提供测试,过几天失效
(hs-Translate "20241001002165195" "hk4ap13MlRMi67W15KNz" "en" "zh" "apply")
(hs-Translate "20241001002165195" "hk4ap13MlRMi67W15KNz" "zh" "en"  "中国人")

(hs-Translate "20241001002165195" "hk4ap13MlRMi67W15KNz" "zh" "jp"  "让我们说中文")
(hs-Translate "20241001002165195" "hk4ap13MlRMi67W15KNz" "en" "jp" "Let's speak Chinese")
;下面有个Translate2无需解析的,直接返回翻译结果

qazxswk

NB，但图片中，不是LISP代码呀。

橡皮

qazxswk 发表于 2025-1-12 18:31
NB，但图片中，不是LISP代码呀。

第一个函数不就是提供的lisp接口吗