Вот как смог собрал из всего что писали.
romanss, , Отправляет сообщение если тест не поменялся
ex_kalibur, Отправляет по Русски
romanss, , Отправляет сообщение если тест не поменялся
ex_kalibur, Отправляет по Русски
Код |
---|
Function RussianStringToURLEncode_New(ByVal txt As String) As String For i = 1 To Len(txt) l = Mid(txt, i, 1) Select Case AscW(l) Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case 32: t = "%20" Case Else: t = l End Select RussianStringToURLEncode_New = RussianStringToURLEncode_New & t Next End Function Sub Send_to_Telegram_Bot_example() Dim oHttp As Object Dim sURI As String 'token = "00000000:AaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAa" 'chat_id = "88888888" 'txt = "hello" 'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getme" 'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getupdates" 'sendproto не работает!!! Блин, не знаю, как скормить строке имя файла С:\temp\pic.png? 'запрос с файлом должен быть в формате multipart/form-data 'sURI = "https://api.telegram.org/bot000000000:Aa.....AaAa/sendproto?chat_id=88888888@photo=C:\temp\pic.png" 'Call RussianStringToURLEncode_New tex = Cells(1, 1) tex = RussianStringToURLEncode_New(tex) sURI = "https://api.telegram.org/bot214343439:AAFko1ohZpgh95KTsnPskMdfsdfuVTHqFs/sendMessage?chat_id=3345500446&text=" & tex 'MsgBox sURI, vbInformation, "запрос" 'On Error Resume Next 'Set oHttp = CreateObject("MSXML2.XMLHTTP") 'Dim oHttp As Object Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 'If Err.Number <> 0 Then 'Set oHttp = CreateObject("MSXML.XMLHTTPRequest") 'End If On Error GoTo 0 If oHttp Is Nothing Then Exit Sub oHttp.Open "GET", sURI, False oHttp.Send MsgBox oHttp.ResponseText, vbInformation, "ответ" Set oHttp = Nothing End Sub |