Dim tele As SMMTeleBot
tele.Initialize(smmtoken,"tele")
tele.getUpdatesList(0,20,9000)
Sub tele_updates(updates As List)
If updates.IsInitialized Then
For up = 0 To updates.Size-1
Dim u As Update =updates.Get(up)
Log(u.updateId)
Dim mmmm As Message =u.message
Log(mmmm.text&"this message was sent on"&DateTime.Date( DateUtils.UnixTimeToTicks( mmmm.date)))
Next
Else
Log("No updates")
End If
End Sub
Sub tele_sent(some As Message)
Log(some.IsInitialized)
If some.IsInitialized Then
Log(some.caption&" message sent: "&DateTime.Time(DateUtils.UnixTimeToTicks(some.date))&CRLF&some.video.duration)
Else
Log("Fail")
End If
End Sub