紫猫有出PC端的插件吗？

xinxingezi

用了安卓版手机端的插件，感觉非常棒，我想问问PC端有出插件吗？
官方的插件感觉经常失灵(@﹏@)~

紫猫

目前暂无

xinxingezi

有哪些PC端的插件比较好用，推荐一下可以吗o(∩_∩)o

紫猫

xinxingezi 发表于 2019-4-8 16:30
有哪些PC端的插件比较好用，推荐一下可以吗

大漠, 大兵, 361, 懒人

huanghuayi4810

怎么学案件啊

大海里的淡水鱼

huanghuayi4810 发表于 2019-4-17 03:43
怎么学案件啊

找紫猫老师报名

jszzm63

学习了，有PC端调用百度云文字识别的插件吗？

dongzzu

jszzm63 发表于 2021-2-12 20:23
学习了，有PC端调用百度云文字识别的插件吗？

参数1，参数2，去百度云申请，参数3为文件路径，参数4为识别的种类
举例：text_ocr = BaiDuOCR(文字识别APIKey, 文字识别SecretKey, 存储位置 & ".bmp", "通用文字识别")

[按键精灵] 纯文本查看 复制代码

Function BaiDuOCR(APIKey, SecretKey, ImgPath, OcrType)
    Dim http, ReJson, url, formStr, token,  PhotoBS, httpBody
    Dim xml_dom, Node, FileByteArrs, Stream, ReExpObj, Matches
    Dim adTypeBinary, adModeReadWrite, adTypeText
    adTypeBinary = 1
    adModeReadWrite = 3
    adTypeText = 2
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set sStream = CreateObject("ADODB.Stream")
    
    url = "https://aip.baidubce.com/oauth/2.0/token?"
    formStr = "grant_type=client_credentials&" & _
    "client_id=" & APIKey & "&" & _
    "client_secret=" & SecretKey & "&"
    
    With http
        .Open "POST", url
        .SetRequestHeader "Conent-Length", Len(formStr)
        .Send formStr
    End With
    ReJson = http.ResponseText
    
    
    Set ReExpObj = CreateObject("VBScript.RegExp")
    ReExpObj.[Global] = True
    ReExpObj.Pattern = "access_token"":""(.+?)"""
    If ReExpObj.Test(ReJson) Then
        Set Matches = ReExpObj.Execute(ReJson)
        token = Matches(0).SubMatches(0)
    Else 
        MsgBox "获取Token失败!" & vbcrlf & ReJson
    End If

    With sStream
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .LoadFromFile (ImgPath)
        .Position = 0
        FileByteArr = .Read
        .Close
    End With
    
    Set xml_dom = CreateObject("Microsoft.XMLDOM")
    With xml_dom
        .loadXML ("")
        Set Node = .createElement("HTML")
        With Node
            .dataType = "bin.base64"
            .nodeTypedValue = FileByteArr
            PhotoBS = .Text
        End With
    End With

    PhotoBS = Replace(PhotoBS,"+","%2b")
    PhotoBS = Replace(PhotoBS, "/", "%2f")
    PhotoBS = Replace(PhotoBS,"=","%3d")
    With http
        If OcrType = "通用文字识别" Then 
            formStr = "image=" & PhotoBS & "&image_url="
            .Open "POST", "https://aip.baidubce.com/rest/2.0/ocr/v1/general?access_token=" & CStr(token), False
        ElseIf OcrType = "通用图像识别" Then
            formStr = "image=" & PhotoBS
            .Open "POST", "https://aip.baidubce.com/rest/2.0/image-classify/v2/advanced_general?access_token=" & CStr(token), False
        End If 
        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .SetRequestHeader "Conent-Length", Len(formStr)
        .Send formStr
        httpBody = .ResponseBody
    End With
    
    With sStream
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write httpBody
        .Position = 0
        .Type = adTypeText
        .Charset = "utf-8"
        BaiDuOCR = .ReadText
        .Close
    End With
    
    Set Node = Nothing
    Set xml_dom = Nothing
    Set sStream = Nothing
End Function

高先生2020

dongzzu 发表于 2021-3-9 21:11
参数1，参数2，去百度云申请，参数3为文件路径，参数4为识别的种类
举例：text_ocr = BaiDuOCR(文字识别AP ...

很谢谢你的热心评论,因为这个评论,我觉得这个论坛是有在交流,所以毅然来这个论坛学习.