EXCEL'DE TELEGRAM BOTU OLUSTURMA ve KULLANMA
Автор: Uzman Excel
Загружено: 2022-11-08
Просмотров: 2159
VBA VE EXCEL İLE İLGİLİ KURUMSAL VE BİREYSEL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.
Kod aşağıdadir.
Const ID = "YOUR_BOT_ID"
Dim ws As Worksheet
Public Sub SendMessagesbyTelegram()
Dim i As Long
Dim URL As String
Dim chatID As String
Dim messageString As String
Dim rspTxt As String
Set ws = Sheet1
ws.UsedRange.Offset(1, 2).ClearContents
For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
chatID = ws.Cells(i, 1).Value2
messageString = ws.Cells(i, 2).Value2
URL = "https://api.telegram.org/bot" & ID & _
"/sendMessage?chat_id=" & chatID & _
"&text=" & messageString
With CreateObject("MSXML2.XMLHTTP")
.Open "POST", URL, False
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64)" & _
" AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.110 Safari/537.36"
.setRequestHeader "Content-Type", "application/json"
.send
rspTxt = .ResponseText
End With
ws.Cells(i, 3) = Split(Split(rspTxt, ",")(0), ":")(1)
Next i
End Sub
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
