Este es el codigo que tengo metido en b4a con la libreria SMMTELEBOT v1.13
Sub Process_Globals
Private Bot As SMMTeleBot
Private chat As Chat
End Sub
Sub SendTelegram()
Bot.Initialize("key bot", "BOT", 120, 120, 120)
Bot.getUpdatesList(0,20,60)
Bot.SendChatAction(chat.Id,"CHAT_ACTION_UPLOAD_DOCUMENT")
' Que necesito poner aqui para enviar el archivo zip, pdf, rar, doc,?
End sub
Sub BOT_updates(updates As List)
Dim mensaje As Message
If updates.IsInitialized Then
Try
For up = 0 To updates.Size - 1
Dim Update As Update = updates.Get(up)
mensaje = Update.message
Next
chat = mensaje.Chat
Catch
Log(LastException)
End Try
End If
End Sub