[问题求助] 请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996

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

went

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

went

代码如下,酌情访问

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

cl2039996

回复 3# went


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

went

回复 4# cl2039996


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