微信网页版本post 发图？ - TC官方合作论坛

var http = com("WinHttp.WinHttpRequest.5.1")
http.Open("POST", "https://file." & wx & ".qq.com/cgi-bin/mmwebwx-bin/webwxuploadmedia?f=json", false)
http.SetRequestHeader("Content-Type", "multipart/form-data; boundary=----webuploaderboundary1476365142785")
//另外,XMLHTTP对象是不支持Referer头的设置的,请TC官方修正.
http.SetRequestHeader("Referer", "https://wx.qq.com/zh_CN/htmledition/v2/third_**/webuploader-0.1.5/Uploader.swf")
var Data1, Data2, ImgData
//直接从文件读图片数据
var ImgSize = FileToByteArray(img路径, ImgData)
traceprint(ImgSize)
//从文件读出字符串,然后再转换,把头尾放到文件里
var data = 文件读取内容(获取资源路径("rc:post头.txt"))
var clientmsgid = 时间_取现行时间戳(13) & 字符串取随机数字(4)
var 路径分割
var len = strsplit(img路径, "\\", 路径分割)
var Name = 路径分割[len - 1]
var imagetype = 字符串截取右侧(Name, 3)
var Size = ImgSize
var totalLen = ImgSize
var Webwx_data_ticket = webwx_data_ticket
var Pass_ticket = url解码(pass_ticket)
var Filename = Name
var MD5 = filemd5(img路径)
var Uploadmediarequest = 字符串格式化("{\"UploadType\":2,\"BaseRequest\":{\"Uin\":%s,\"Sid\":\"%s\",\"Skey\":\"%s\",\"DeviceID\":\"%s\"},\"ClientMediaId\":%s,\"TotalLen\":%s,\"StartPos\":0,\"DataLen\":%s,\"MediaType\":4,\"FromUserName\":\"%s\",\"ToUserName\":\"%s\",\"FileMd5\":\"%s\"}", uin, sid, skey, did, clientmsgid, totalLen, totalLen, username, toUserName, MD5)
data = 字符串替换(data, "{Name}", Name)
data = 字符串替换(data, "{Type}", imagetype)
data = 字符串替换(data, "{Size}", Size)
data = 字符串替换(data, "{Uploadmediarequest}", Uploadmediarequest)
data = 字符串替换(data, "{Webwx_data_ticket}", Webwx_data_ticket)
data = 字符串替换(data, "{Pass_ticket}", Pass_ticket)
data = 字符串替换(data, "{Filename}", Filename)
//
文件覆盖内容(sysgetprocesspath() & "data.txt", data)
//charset不要写错.否则数据组合起来就是一堆乱码.
traceprint(StringToByteArray(data, Data1, "GB2312"))
var size = FileToByteArray(获取资源路径("rc:post尾.txt"), Data2)
traceprint(size)
ByteArrayCat(Data1, ImgData)//把两data组合
变量 Size1 = ByteArrayCat(Data1, Data2)//把两data组合 217063-217058=+5
http.setRequestHeader("Content-Length", Size1)
traceprint(Size1)
http.Send(Data1)
//
调试输出(http.Resp**eText)

复制代码