求助，怎么把本地的图片复制到TG并发送

anwen3457

fire9

ctrl+c， ctrl+v

林中道士

TG API的API可以直接调用

  

常量名称	常量值	公 开	备 注
TELEGRAM_BOT_TOKEN	你的Telegram Bot Token
CHAT_ID	目标聊天ID

子程序名	返回值类型	公开	备 注
发送图片到Telegram
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型

变量名	类 型	静态	数组	备 注
返回数据	文本型
文件数据	字节集
边界	文本型
post数据	字节集
头信息	文本型
http	对象

' 读取图片文件
文件数据 ＝ 读入文件 (图片路径)
如果真 (文件数据 ＝ { })
信息框 ("读取图片失败", 0, , )
返回

' 生成随机边界
边界 ＝ "----WebKitFormBoundary" ＋ 文本_取随机字符 (16)
' 构建POST数据
post数据 ＝ 到字节集 (“--” ＋ 边界 ＋ #换行符 )
post数据 ＝ post数据 ＋ 到字节集 (“Content-Disposition: form-data; name="chat_id"” ＋ #换行符 ＋ #换行符 )
post数据 ＝ post数据 ＋ 到字节集 (CHAT_ID ＋ #换行符 )
post数据 ＝ post数据 ＋ 到字节集 (“--” ＋ 边界 ＋ #换行符 )
post数据 ＝ post数据 ＋ 到字节集 (“Content-Disposition: form-data; name="photo"; filename="” ＋ 取文件名 (图片路径) ＋ “"” ＋ #换行符 )
post数据 ＝ post数据 ＋ 到字节集 (“Content-Type: image/jpeg” ＋ #换行符 ＋ #换行符 )
post数据 ＝ post数据 ＋ 文件数据
post数据 ＝ post数据 ＋ 到字节集 ( #换行符 ＋ “--” ＋ 边界 ＋ “--” ＋ #换行符 )
' 设置HTTP头
头信息 ＝ “Content-Type: multipart/form-data; boundary=” ＋ 边界
' 发送请求
http.创建 (“WinHttp.WinHttpRequest.5.1”)
http.方法 (“Open”, “POST”, “https://api.telegram.org/bot” ＋ TELEGRAM_BOT_TOKEN ＋ “/sendPhoto”, 假)
http.方法 (“SetRequestHeader”, “Content-Type”, 头信息)
http.方法 (“Send”, post数据)
返回数据 ＝ http.读文本响应 ()
' 处理返回结果
如果真 (寻找文本 (返回数据, “"ok":true”, , 假) ≠ -1)
信息框 ("图片发送成功", 0, , )
调试输出 ("发送失败：", 返回数据)
信息框 ("图片发送失败", 0, , )

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .常量 TELEGRAM_BOT_TOKEN, "你的Telegram Bot Token"<br /> .常量 CHAT_ID, "目标聊天ID"<br /> <br /> .子程序 发送图片到Telegram<br /> .参数 图片路径, 文本型<br /> <br /> .局部变量 返回数据, 文本型<br /> .局部变量 文件数据, 字节集<br /> .局部变量 边界, 文本型<br /> .局部变量 post数据, 字节集<br /> .局部变量 头信息, 文本型<br /> .局部变量 http, 对象<br /> <br /> ' 读取图片文件<br /> 文件数据 ＝ 读入文件 (图片路径)<br /> .如果真 (文件数据 ＝ { })<br />     信息框 ("读取图片失败", 0, , )<br />     返回<br /> .如果真结束<br /> <br /> ' 生成随机边界<br /> 边界 ＝ "----WebKitFormBoundary" ＋ 文本_取随机字符 (16)<br /> <br /> ' 构建POST数据<br /> post数据 ＝ 到字节集 (“--” ＋ 边界 ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 到字节集 (“Content-Disposition: form-data; name="chat_id"” ＋ #换行符 ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 到字节集 (CHAT_ID ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 到字节集 (“--” ＋ 边界 ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 到字节集 (“Content-Disposition: form-data; name="photo"; filename="” ＋ 取文件名 (图片路径) ＋ “"” ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 到字节集 (“Content-Type: image/jpeg” ＋ #换行符 ＋ #换行符)<br /> post数据 ＝ post数据 ＋ 文件数据<br /> post数据 ＝ post数据 ＋ 到字节集 (#换行符 ＋ “--” ＋ 边界 ＋ “--” ＋ #换行符)<br /> <br /> ' 设置HTTP头<br /> 头信息 ＝ “Content-Type: multipart/form-data; boundary=” ＋ 边界<br /> <br /> ' 发送请求<br /> http.创建 (“WinHttp.WinHttpRequest.5.1”)<br /> http.方法 (“Open”, “POST”, “<a href="https://api.telegram.org/bot" rel="nofollow" rel="nofollow" target="_blank">https://api.telegram.org/bot</a>” ＋ TELEGRAM_BOT_TOKEN ＋ “/sendPhoto”, 假)<br /> http.方法 (“SetRequestHeader”, “Content-Type”, 头信息)<br /> http.方法 (“Send”, post数据)<br /> 返回数据 ＝ http.读文本响应 ()<br /> <br /> ' 处理返回结果<br /> .如果真 (寻找文本 (返回数据, “"ok":true”, , 假) ≠ -1)<br />     信息框 ("图片发送成功", 0, , )<br /> .否则<br />     调试输出 ("发送失败：", 返回数据)<br />     信息框 ("图片发送失败", 0, , )<br /> .如果真结束

注意先去申请[size=16.002px]Token，然后图片大小貌似不能超过5M吧，另外就是科学的事了，开头的常量第一个是你申请的to'ken，第二个是目标ID，可以作为变量。

8386559

楼上的正解

编程阿狸

ctrl+c， ctrl+v