[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
该网页有访问限制,翻译多了会封ip

TOP

代码如下,酌情访问
  1. #&cls&@cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" & pause&exit
  2. cls
  3. #whr
  4. $whr = New-Object -ComObject 'WinHttp.WinHttpRequest.5.1'
  5. #url
  6. $url = 'https://www2.deepl.com/jsonrpc?method=LMT_handle_jobs'
  7. #body请求负载
  8. $body = '{"jsonrpc":"2.0","method" : "LMT_handle_jobs","params":{"jobs":[{"kind":"default","sentences":[{"text":"{#txt}","id":0,"prefix":""}],"raw_en_context_before":[],"raw_en_context_after":[],"preferred_num_beams":4}],"lang":{"preference":{"weight":{},"default":"default"},"source_lang_computed":"EN","target_lang":"ZH"},"priority":1,"commonJobParams":{"browserType":1,"formality":null},"timestamp":#time},"id":84240007}'
  9. #函数 返回翻译数据
  10. function Trans-Text($txt){
  11.     #发送请求
  12.     $whr.Open('POST',$url,$false)
  13.     $whr.SetRequestHeader('content-type','application/json')
  14.     $dat = $body -replace '#txt',$txt -replace '#time',([datetime]::Now - (Get-Date '1970-01-01 08:00:00')).Ticks.ToString().SubString(0,13)
  15.     $whr.Send($dat)
  16.     if($whr.Status -ne 200){ return $whr.StatusText }
  17.     #解码
  18.     $json = [regex]::Unescape($whr.ResponseText) | ConvertFrom-Json
  19.     #释放请求
  20.     $whr.Abort()
  21.     #返回数据
  22.     return $json.result.translations[0].beams.sentences.text
  23. }
  24. Trans-Text -txt 'This sample demonstrates how to read inputs from a gamepad in a Universal Windows Platform (UWP) app.'
复制代码
1

评分人数

    • 5i365: 技术牛X, 感谢分享!技术 + 1

TOP

回复 4# cl2039996


    国内那么多免费的api为什么不用,非要用这个就需要注册https://www.deepl.com/zh/pro-api?cta=header-pro-api/

TOP

返回列表