Надо
1) Исправить код, чтобы работал метод sendPhoto (telegram API)
2) Сделать, чтобы в методе sendmessage (telegram API) нормально поддерживался русский текст, перенос строки и табуляция
1) Исправить код, чтобы работал метод sendPhoto (telegram API)
2) Сделать, чтобы в методе sendmessage (telegram API) нормально поддерживался русский текст, перенос строки и табуляция
| Код |
|---|
Dim oHttp As Object
Dim URL, sFile, frmData As String
Const Boundary As String = "-----------aaa----------------"
sFile = "c:\Temp\pic.JPG"
token = "237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999" 'not real
chat_id = "11111111" 'not real
sTxt = "hello"
'URI = "https://api.telegram.org/bot237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999/sendmessage?chat_id=11111111&text=" & sTXT ' --> 'это ок
'URI = "https://api.telegram.org/bot237895699:AAGGCZ1_XH5dNQTBCKcJOFajSW5999999999/sendmessage?chat_id=11111111&text=" & sTXT & vbNewLine & sTXT ' --> 'это не ок
URL = "https://api.telegram.org/bot" & token & "/sendphoto?chat_id=" & chat_id
Set oHttp = CreateObject("Msxml2.ServerXMLHTTP")
oHttp.Open "POST", URL, False
oHttp.setRequestHeader "cache-control", "no-cache"
oHttp.setRequestHeader "Content-Type", "multipart/form-data"
frmData = Boundary & vbNewLine & _
"Content-Disposition: multipart/form-data; name=""sendPhoto""; filename=""" & sFile & """" & vbNewLine & _
"Content-Type: application/octet-stream" & vbNewLine & Boundary
MsgBox URL & vbNewLine & sPostData, vbInformation, "request"
oHttp.send frmData
MsgBox oHttp.responseText, vbInformation, "answer from tlg API"
Set oHttp = Nothing |
