老刘1号

回复 8# xczxczxcz


    可以用MSXML2.XMLHTTP这个com的.ResponseText方法，就不用纠结编码问题了
我vbs中就是这么搞的

另外lz说的那个中文乱码也一样，把HttpRequest.5.1那个换成MSXML2.XMLHTTP就行

5i365

回复 16# 老刘1号

感谢提醒，我试试，多谢

xczxczxcz

回复 16# 老刘1号

谢谢！ 等会再试，现正在写鼠标右键。功能：点击图片\右键识别\把识别的文本发送到剪切板\随意粘贴到任意文本中。
再整合到 右键属性中。
以后再写 C#版的 exe小程序。

5i365

回复 16# 老刘1号

在PS中怎么改呢，用哪个命令？能贴一下代码吗？感谢

5i365

回复 16# 老刘1号

你好，我换了，Set r = CreateObject("MSXML2.XMLHTTP")

直接报错

zaqmlp

$info='互助互利,支付宝扫码头像,感谢赞助';
Add-Type -AssemblyName System.Web;
$url='https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic';
$pic='C:\Users\Administrator\Desktop\test.jpg';
$imagedata=[Web.HttpUtility]::UrlEncode([Convert]::ToBase64String([IO.File]::ReadAllBytes($pic)));
$poststr=@(
    'access_token=24.b305c9822131e65eda05e29c157dd719.2592000.1559103982.282335-16139329',
    $('image='+$imagedata),
    'language_type=CHN_ENG',
    'detect_direction=false',
    'detect_language=false',
    'probability=false'
) -join '&';
$web=New-Object System.Net.WebClient;
$web.Headers.Add('Content-Type', 'application/x-www-form-urlencoded');
[byte[]]$postdata=[Text.Encoding]::UTF8.GetBytes($poststr);
[byte[]]$responsedata=$web.UploadData($url, 'POST', $postdata);
[Text.Encoding]::UTF8.GetString($responsedata);COPY

5i365

回复 21# zaqmlp

你好，大神实在厉害，稳稳地把base64编码和输出乱码都解决了，不知道在win7自带的ps2.0中能否使用，如果能用那就太棒了，明天在另一台电脑试一下，我测试过使用Invoke-RestMethod在win7是不行的，

另外，请问大神能把获取Token的代码也顺便加进去吗？下面是VBS的代码， 非常感谢

Function GetToken(ByVal APIKey,ByVal SecretKey)
    Const GET_TOKEN_URL = "https://aip.baidubce.com/oauth/2.0/token"
    On Error Resume Next
    GetToken = _
    Split( _
    HTTP_POST( _
    GET_TOKEN_URL, _
    "grant_type=client_credentials" & _
    "&client_id="&APIKey & _
    "&client_secret=" & SecretKey _
    ) _
    ,"""")(13)
    If Err.Number <> 0 Then GetToken = "ERROR"
    On Error Goto 0
End Function

zaqmlp

回复 22# 5i365

支持ps2.0，没赞助没动力呀

老刘1号

回复 20# 5i365


    如果我的vbs版你可以用的话就是你自己的问题了，照着我的vbs改改，直接用人家写好的ps也行