speedtest

:local tgAPI "bot26394XXXX:AAGGG5BFz0mrHCchYoEK_lQw8VoRkItXXXX";
:local tgID [:toarray "22928XXXX, 22928XXXX, 22928XXXX"];

:local sysname [/system identity get name];
:local ts [/system clock get time];
:local ds [/system clock get date];

##Public-Mikrotik-Bandwidth-Test-Server(s):
#
#Host: https://btest.planetcoop.com:10443/graphs/iface/ether1/
#ipv4: 50.235.23.218
#ipv4: 207.32.195.2
#ipv6: 2001:559:8062::20
#user: btest
#pass: btest
#

:local txAvg 0
:local rxAvg 0

tool bandwidth-test protocol=tcp direction=both address=50.235.23.218 user=btest password=btest duration=15s do={
    :set txAvg ($"tx-total-average" / 1048576 );
    :set rxAvg ($"rx-total-average" / 1048576 );
}

:local tgSendMessage "<b>Speedtest $sysname [$ds - $ts]</b>%0A<code>Download: $txAvg Mbps %0AUpload: $rxAvg Mbps</code>"

foreach chat in=$tgID do={
  execute "global send true; /tool fetch url=\"https://api.telegram.org/$tgAPI/sendmessage\?chat_id=$chat&parse_mode=html&text=$tgSendMessage\" keep-result=no;global send false"
  local i 0
  while ($send and $i < 50) do={set i ($i+1); delay 0.1}
}