Enviando SMS desde Androwish

Basado en:

https://wiki.tcl-lang.org/page/AndroWish+Questions

Pude enviar SMS de manera semi-automatica.(Ya que debo presionar el boton "Send" cada vez).

Pero al menos puedo crear una secuencia pre-establecida y facilitar la programacion de, por ejemplo, el modulo GA09.

http://www.waferstar.com/downloads/GA09.pdf

console show
proc sendSMS {tel msg} {
  ## popup a form for sending an SMS with the given data
  borg activity android.intent.action.VIEW $tel "vnd.android-dir/mms-sms" {} {} [list sms_body $msg]
}

sendSMS 1234567890 "this is a test SMS [clock seconds]"
tk_messageBox -message "OK"
puts Done1
sendSMS 1234567890 "Este es un 2do msg SMS [clock seconds]"
puts Done2

El truco es presionar el boton "back" en la aplicacion de SMS para poder ver el messageBox y poder continuar con el flujo del programa.