public Sub SendPrivateChannelMessage(botToken As String, channelId As String, msg As String)
Dim url As String = $"https://api.telegram.org/bot${botToken}/sendMessage"$
Dim postData As String = $"chat_id=${channelId}&text=${EscapeMessage(msg)}"$
Dim j As HttpJob
j.Initialize("SendTelegram", Me)
j.PostString(url, postData)
j.GetRequest.SetContentType("application/x-www-form-urlencoded")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log($"✅ message sent successfully. ${j.GetString} "$)
ToastMessageShow("Message sent successfully!", True )
Else
Log("❌ Error sending message: " & j.ErrorMessage)
ToastMessageShow("Failed to send message: " & j.ErrorMessage, True)
End If
j.Release
End Sub
private Sub EscapeMessage(msg As String) As String
Return msg.Replace(" ", "%20").Replace("!", "%21").Replace("#", "%23").Replace("&", "%26")
End Sub