Что нового

отправить сообщение/уведомление в Telegram Bot при выполнении условия

bonik2020

Новичок
Сообщения
5
Репутация
0
Здравствуйте, есть ли готовое решение отправить фиксированное сообщение на Telegram, когда соблюдены определенные условия?
Имеется созданный TelegramBot. Может у кого есть готовый скрипт, куда можно подставить token и chat_id, и сообщение типа "123", чтоб оно высылалось, когда соблюдены заданные мной условия в скрипте.
То есть, функция уведомления в Telegram, по сути.
Перерыл кучу веток форумов, есть некие решения, типа : Telegram Bot UDF и тут
мне не хватает навыков разобраться, если есть готовый скрипт, который можно вставить в мой скрипт, чтоб он высылал уведомления!
Спасибо!
 

vivernet

Новичок
Сообщения
4
Репутация
1
тоже пробую найти но не выходит, знаю как это сделать в киборе например
Код:
string token="11ххххх:ххххххххххххххххххххJK4";
string message="Text";
string chat_id="12345678";

string s;

sendgetweb(#s, "Bot", "POST", "https:/"+"/api.telegram.org",
"bot"+token+"/"+
"sendMessage?chat_id="+chat_id+"&"+
"text="+message);

но как тут никак не разобраться
 

gunter123

Продвинутый
Сообщения
157
Репутация
67
тоже пробую найти но не выходит, знаю как это сделать в киборе например
Код:
$sBotKey = 'bot****************************************'    ; Ваш api ключ
$nChatId = 123456789                                        ; Id получателя
$sText = _URIEncode('Приветик')                                ; Текст сообщения, не больше 4000 знаков

ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))

Func _URIEncode($sData)                                        ; https://www.autoitscript.com/forum/topic/95850-url-encoding/
    ; [email protected]
    Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
    Local $nChar
    $sData=""
    For $i = 1 To $aData[0]
        $nChar = Asc($aData[$i])
        Switch $nChar
            Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
                $sData &= $aData[$i]
            Case 32
                $sData &= "+"
            Case Else
                $sData &= "%" & Hex($nChar,2)
        EndSwitch
    Next
    Return $sData
EndFunc
 

vivernet

Новичок
Сообщения
4
Репутация
1
Код:
$sBotKey = 'bot****************************************'    ; Ваш api ключ
$nChatId = 123456789                                        ; Id получателя
$sText = _URIEncode('Приветик')                                ; Текст сообщения, не больше 4000 знаков

ConsoleWrite(InetRead('https://api.telegram.org/' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sText, 0))

Func _URIEncode($sData)                                        ; https://www.autoitscript.com/forum/topic/95850-url-encoding/
    ; [email protected]
    Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
    Local $nChar
    $sData=""
    For $i = 1 To $aData[0]
        $nChar = Asc($aData[$i])
        Switch $nChar
            Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
                $sData &= $aData[$i]
            Case 32
                $sData &= "+"
            Case Else
                $sData &= "%" & Hex($nChar,2)
        EndSwitch
    Next
    Return $sData
EndFunc
Супер, спасибо большое!
 
Верх