如何通过VBA上传图片到指定网址：https://666666.imgbb.com/

lingshimizi

zpy2 发表于 2021-1-3 12:22
这个api很容易的，就是base64,直接post就行，都不需要加密。。。

非常感谢你的回复
可是向来难者不会会者不难，能不能在具体一点，脱离了VBA我就一点都不懂了
就连会的一丢丢也是看论坛上百度学的，不要笑话我

zpy2

lingshimizi 发表于 2021-1-3 12:27
非常感谢你的回复
可是向来难者不会会者不难，能不能在具体一点，脱离了VBA我就一点都不懂了

vba你搜索一下base64编码，直接post就行，不需要2进制文件上传，我现在手机，没法搞vba。
这个api是收费的，一样收费，为啥不用国内的七牛云阿里腾讯云对象存储，线路速度应该比国外的快，而且没有被墙的风险，除非你是给国外用的。

lingshimizi

zpy2 发表于 2021-1-3 12:22
这个api很容易的，就是base64,直接post就行，都不需要加密。。。

非常感谢您的回复
能不能再具体一点，那个已经不是VBA了吧，不知道应该怎么用起来

lingshimizi

zpy2 发表于 2021-1-3 12:32
vba你搜索一下base64编码，直接post就行，不需要2进制文件上传，我现在手机，没法搞vba。
这个api是收费 ...

好的，知道了，我这就去研究，非常感谢

zpy2

lingshimizi 发表于 2021-1-3 12:34
非常感谢您的回复
能不能再具体一点，那个已经不是VBA了吧，不知道应该怎么用起来

具体vba比较繁琐，还要json解析。php比较简洁，有现成的函数
vba
post xmlhttp
就直接key=value就行
base64
https://www.it1352.com/320350.html
Public Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1          ' Binary file is encoded

    ' Variables for encoding
    Dim objXML
    Dim objDocElem

    ' Variable for reading binary picture
    Dim objStream

    ' Open data stream from picture
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile (strPicPath)

    ' Create XML Document object and root node
    ' that will contain the data
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.dataType = "bin.base64"

    ' Set binary value
    objDocElem.nodeTypedValue = objStream.Read()

    ' Get base64 value
    EncodeFile = objDocElem.Text

    ' Clean all
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing

End Function

lingshimizi

zpy2 发表于 2021-1-3 12:32
vba你搜索一下base64编码，直接post就行，不需要2进制文件上传，我现在手机，没法搞vba。
这个api是收费 ...

哇塞，真理往往如此简单，非常感谢，已经足够解决我的问题了，非常感谢

zpy2

lingshimizi 发表于 2021-1-3 13:04
哇塞，真理往往如此简单，非常感谢，已经足够解决我的问题了，非常感谢

不错，我回的帖子还在审核，就明白了。

lingshimizi

zpy2 发表于 2021-1-3 13:08
不错，我回的帖子还在审核，就明白了。

主要是您点对了地方，非常感谢

约定的童话

楼主问题搞定了没？

考试加油站

非常有趣的问题，标记