public Sub sendToBot(tid As String,message As String)
If tid.Length > 3 Then
Dim tok As String = Main.config.Get("API_TELEGRAM")
Dim web As HttpJob
web.Initialize("",Me)
web.Download2($"https://api.telegram.org/bot${tok}/sendMessage"$, Array As String("chat_id", tid, "text",message))
Wait For (web) JobDone(web As HttpJob)
If web.Success Then
web.Release
Else
web.Release
Log(GetDateAndTime & web.GetString)
End If
Else
Log(GetDateAndTime& $" blad wysylania bot, tid:${tid}, mes:${message}"$)
End If
End Sub