|
TELEGRAM_BOT_TOKEN | 你的Telegram Bot Token | |
CHAT_ID | 目标聊天ID | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
返回数据 | 文本型 | | |
文件数据 | 字节集 | | |
边界 | 文本型 | | |
post数据 | 字节集 | | |
头信息 | 文本型 | | |
http | 对象 | | |
文件数据 =
读入文件 (图片路径
)
如果真 (文件数据 =
{ })
信息框 ("读取图片失败", 0, ,
)
返回

边界 = "----WebKitFormBoundary" +
文本_取随机字符 (16
) 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数据 +
到字节集 ( #换行符 +
“--” + 边界 +
“--” +
#换行符 ) 头信息 =
“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, ,
)