Sub Process_Globals
Public glmap As Map
End Sub
Sub AppStart (Form1 As Form, Args() As String)
glmap.Initialize
End Sub
Sub JTB_onCallbackQueryReceived(api As Object, id As Int, query As Object)
Log($"JTB_onCallbackQueryReceived( ${id}, ${query}"$)
Dim cbquery As CallbackQuery = query
Log($"CallbackQuery.ChatInstance = ${cbquery.ChatInstance}"$)
Log($"CallbackQuery.Data = ${cbquery.Data}"$)
Log($"CallbackQuery.From = ${cbquery.From}"$)
Dim from As User = cbquery.From
Log($"FromFirstName: ${from.FirstName}"$)
Log($"FromLastName: ${from.LastName}"$)
Log($"FromUserName: ${from.Username}"$)
Log($"FromID: ${from.Id}"$)
Log($"CallbackQuery.Id = ${cbquery.Id}"$)
Log($"CallbackQuery.Inline_message_id = ${cbquery.Inline_message_id}"$)
Log($"CallbackQuery.Message = ${cbquery.Message}"$)
Dim msg As Message = cbquery.Message
bld.Initialize(api)
If glmap.ContainsKey(msg.MessageId) Then
jtb.sendMessage(jtb.byId(from.Id),$"Danke ${from.Username} für´s drücken von Button ${cbquery.Data} :-)"$,"MARKDOWN",False,False,msg.MessageId,replbld.hideCustomKeyboard)
jtb.answerCallbackQuery(cbquery.Id,$"Danke für´s drücken des Buttons :D
du hast gedrückt: ${cbquery.Data}"$,True) ' Sorgt für die Alertbox beim client
glmap.Remove(msg.MessageId)
Else
jtb.sendMessage(jtb.byId(from.Id),$"Danke ${from.Username} für´s drücken von Button ${cbquery.Data} aber Du darfst nur einmal einen Button drücken..."$,"MARKDOWN",False,False,msg.MessageId,replbld.hideCustomKeyboard)
jtb.answerCallbackQuery(cbquery.Id,$"Nur einmal möglich"$,False)
End If
End Sub