如何使用Excel VBA将桌面照片发送到电报

Sub SendPhotoToTelegram()
    Dim botToken As String
    Dim chatID As String
    Dim photoPath As String
    
    ' 电报机器人的API令牌
    botToken = "YourBotToken"
    
    ' 电报聊天ID，可以是个人或群组的ID
    chatID = "YourChatID"
    
    ' 桌面照片的路径
    photoPath = "C:\Users\YourUsername\Desktop\photo.jpg"
    
    ' 创建电报机器人对象
    Dim bot As Object
    Set bot = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 构建电报发送照片的URL
    Dim url As String
    url = "https://api.telegram.org/bot" & botToken & "/sendPhoto?chat_id=" & chatID
    
    ' 发送POST请求
    bot.Open "POST", url, False
    bot.setRequestHeader "Content-Type", "multipart/form-data"
    
    ' 构建请求体
    Dim body As String
    body = "--boundary" & vbCrLf
    body = body & "Content-Disposition: form-data; name=""chat_id""" & vbCrLf & vbCrLf
    body = body & chatID & vbCrLf
    body = body & "--boundary" & vbCrLf
    body = body & "Content-Disposition: form-data; name=""photo""; filename=""" & photoPath & """" & vbCrLf
    body = body & "Content-Type: image/jpeg" & vbCrLf & vbCrLf
    
    ' 读取照片文件内容
    Dim photoData() As Byte
    Dim photoFile As Integer
    photoFile = FreeFile
    Open photoPath For Binary Access Read As photoFile
    ReDim photoData(LOF(photoFile) - 1)
    Get photoFile, , photoData
    Close photoFile
    
    ' 发送请求
    bot.send (body)
    bot.send (photoData)
    
    ' 获取响应结果
    Dim response As String
    response = bot.responseText
    
    ' 解析响应结果
    Dim json As Object
    Set json = JsonConverter.ParseJson(response)
    
    ' 检查是否发送成功
    If json("ok") = True Then
        MsgBox "照片已成功发送到电报！"
    Else
        MsgBox "发送照片到电报失败：" & json("description")
    End If
End Sub