请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996

请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

went

该网页有访问限制,翻译多了会封ip

went

代码如下,酌情访问

1. #&cls&@cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" & pause&exit
   
2. cls
   
3. 
   
4. #whr
   
5. $whr = New-Object -ComObject 'WinHttp.WinHttpRequest.5.1'
   
6. #url
   
7. $url = 'https://www2.deepl.com/jsonrpc?method=LMT_handle_jobs'
   
8. #body请求负载
   
9. $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}'
   
10. 
    
11. #函数 返回翻译数据
    
12. function Trans-Text($txt){
    
13.     #发送请求
    
14.     $whr.Open('POST',$url,$false)
    
15.     $whr.SetRequestHeader('content-type','application/json')
    
16.     $dat = $body -replace '#txt',$txt -replace '#time',([datetime]::Now - (Get-Date '1970-01-01 08:00:00')).Ticks.ToString().SubString(0,13)
    
17.     $whr.Send($dat)
    
18.     if($whr.Status -ne 200){ return $whr.StatusText }
    
19.     #解码
    
20.     $json = [regex]::Unescape($whr.ResponseText) | ConvertFrom-Json
    
21.     #释放请求
    
22.     $whr.Abort()
    
23.     #返回数据
    
24.     return $json.result.translations[0].beams.sentences.text
    
25. }
    
26. 
    
27. Trans-Text -txt 'This sample demonstrates how to read inputs from a gamepad in a Universal Windows Platform (UWP) app.'

复制代码

cl2039996

回复 3# went


    尊敬的Went大佬，我把您的代码存到.bat中运行后，被提示Too Many Request  就没有了
也没有提示我输入翻译文本，也没有输出翻译文本。

went

回复 4# cl2039996


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