|
.版本 2
.支持库 spec
.支持库 internet
.子程序 上传图片
.局部变量 提交地址, 文本型
.局部变量 数据包, 字节集
.局部变量 返回文本, 文本型
.局部变量 返回图片地址, 文本型
.局部变量 pic_desc, 文本型
提交地址 = “http://upload.tieba.baidu.com/upload/pic”
数据包 = 到字节集 (#包头) + #图片数据 + 到字节集 (#包尾)
返回文本 = 到文本 (POST字节集 (提交地址, “POST”, , “Content-Type: multipart/form-data; boundary=----------ei4cH2KM7gL6cH2ae0Ij5cH2cH2gL6” + #换行符 + “User-Agent: Shockwave Flash” + #换行符, 数据包, ))
pic_desc = 高级截取文本 (返回文本, “pic_id_encode” + #引号 + “:” + #引号, #引号 + “,” + #引号 + “pic_desc”, , , , , )
.如果 (pic_desc ≠ “”)
返回图片地址 = “http://imgsrc.baidu.com/forum/pic/item/” + pic_desc + “.jpg”
调试输出 (返回图片地址)
图片框1.图片 = HTTP读文件 (返回图片地址)
.否则
信息框 (“上传失败...”, 0, )
.如果结束
基本就是这样的,剩下的自行修改
|
|