如何使用VBA上传图片文件到服务器

天竺

我这里有一个图片空间， 我想用vba实现上传本地文件到空间中


通过抓包，得到post请求的内容， 并用VBA成功发送了post请求（没有包含图片编码，但得到了success的返回值，理论上把图片编码加上就应该能成功上传）
但我不知道怎么把图片文件转换成编码，试了base64，和别的帖子的大佬写的转换成比特流都没成功，也有很大可能是我代码写错了。
折腾了2天还是不得要领，请论坛大佬教我。。。。。。。。。
下面附上请求头和请求内容，可以直接复制到postman里测试


请求URL：https://www.lunarandluxe.com/wp-admin/async-upload.php

header必要的字段为
Content-Length：（这个字段的值是postman自己生成的）
Host：（这个字段的值是postman自己生成的）
Content-Type：multipart/form-data; boundary=----WebKitFormBoundarypMacR2gvA1xD5ESg
Cookie：wordpress_sec_68d8cdffc23363652f11093230b299be=user%7C1687935190%7C6YQpLpwux4sEEx4kKYKp8OXVnFqRGQ6XaeSWIgG9ufT%7C2d71ab0c8b5785c023c19782e904284da3f29b7f532bd26982c942b63212ea27; wordpress_test_cookie=WP%20Cookie%20check; wordpress_logged_in_68d8cdffc23363652f11093230b299be=user%7C1687935190%7C6YQpLpwux4sEEx4kKYKp8OXVnFqRGQ6XaeSWIgG9ufT%7Cc01ffb42b51a4bd6453185596297038267bec19b752c600492f1139cf38394f9; tk_ai=woo%3AP3a7bCa3uvYOJY6O6MNRGMC7; woocommerce_items_in_cart=1; woocommerce_cart_hash=c3aa56283b151c5109eb28b4924493bf; wp_woocommerce_session_68d8cdffc23363652f11093230b299be=9%7C%7C1687935203%7C%7C1687931603%7C%7Ca2bee90deb451c66df20926c9ac8c257; woodmart_recently_viewed_products=7873%7C7873; wp-settings-time-9=1687855569; wp-settings-9=edit_element_vcUIPanelWidth%3D648%26ampampampedit_element_vcUIPanelLeft%3D424px%26ampampampedit_element_vcUIPanelTop%3D165px%26ampampampeditor%3Dhtml%26ampampamplibraryContent%3Dbrowse%26ampampeditor%3Dtinymce%26ampamplibraryContent%3Dbrowse%26ampampposts_list_mode%3Dlist%26ampampedit_element_vcUIPanelLeft%3D36px%26ampampedit_element_vcUIPanelTop%3D160px%26ampampmfold%3Do%26posts_list_mode%3Dlist%26libraryContent%3Dbrowse%26post_settings_vcUIPanelWidth%3D649%26post_settings_vcUIPanelLeft%3D766px%26post_settings_vcUIPanelTop%3D74px%26editor%3Dtinymce%26edit_element_vcUIPanelLeft%3D180px%26edit_element_vcUIPanelTop%3D91px





body部分是 multipart/form-data格式的图片文件


------WebKitFormBoundarypMacR2gvA1xD5ESg
Content-Disposition: form-data; name="name"


微信图片_20230419170834.jpg
------WebKitFormBoundarypMacR2gvA1xD5ESg
Content-Disposition: form-data; name="action"


upload-attachment
------WebKitFormBoundarypMacR2gvA1xD5ESg
Content-Disposition: form-data; name="_wpnonce"


de280803de
------WebKitFormBoundarypMacR2gvA1xD5ESg
Content-Disposition: form-data; name="post_id"


7701
------WebKitFormBoundarypMacR2gvA1xD5ESg
Content-Disposition: form-data; name="async-upload"; filename="testima11111.jpg"
Content-Type: image/jpeg


这个位置是图片的比特流，太长了我就不贴出来了，大佬可以换个别的图片比特流放在这里，不换也没影响，一样可以推送成功只是没图片而已


------WebKitFormBoundarypMacR2gvA1xD5ESg--

上面body的内容直接复制进postman就可以测试




抓包的body部分截图我放在这里，大佬帮看一下



如果post成功，会返回success值以及生成的图片链接，链接可以直接打开





下面是我的代码，post没问题，就是不知道body部分要怎么生成



请大佬帮帮忙，小弟不胜感激

tspliu

先从这个帖子下传个图试试
猜测是这样：filePath = "C:\1.jpg" ' 上传的文件路径        ' 读取文件数据    Open filePath For Binary Access Read As #1    requestData = Space$(LOF(1))    Get #1, , requestData    Close #1

perfect131

multipart/form-data
我写过，看看
https://club.excelhome.net/threa ... tml?_dsign=35e4d643

tspliu

上面发的怎么看不到了呢，可能复制少了点东西，只能说试试requestData行不行，我没试
Sub aa()
    Dim requestData As String
    filePath = "d:\1.jpg" ' 上传的文件路径
    ' 读取文件数据
    Open filePath For Binary As #1
    requestData = Space$(LOF(1))
    Get #1, , requestData
    Close #1

    Debug.Print requestData
End Sub

wanghan519

用curl试，提示过期了，不知道是cookie过期还是_wpnonce过期了

天竺

perfect131 发表于 2023-6-28 10:33
multipart/form-data
我写过，看看
https://club.excelhome.net/threa ... tml?_dsign=35e4d643

我又试了一天还是不成功，提示的是页面过期，我用postman模拟发现header中的content-Length或者content-type如果没有提交或者写错了的话会出现这样的提示，难道是我POST有问题？我不添加任何文件图片内容，直接post空白的文档能成功，加了内容反而无法成功了，这是为什么呢？大佬能给个联系方式现场指导一下吗，实在没辙了

perfect131

天竺 发表于 2023-6-28 23:44
我又试了一天还是不成功，提示的是页面过期，我用postman模拟发现header中的content-Length或者content-t ...

可以，1067039126