Posted to tcl by grummund at Thu Jun 01 18:08:45 GMT 2017view raw
- #!/usr/bin/expect -f
- set device /dev/ttyUSB0
- spawn -open [open $device RDWR]
- stty 9600 cs8 parenb -cstopb -raw -outf8 < $device
- fconfigure $spawn_id -encoding binary
- send "\xE0\x10\x4E\x74\x00\x02\x04\x42\x78\x00\x00\x4F\x85"
- expect "\xE0\x10\x4E\x74\x00\x02\x01\x4B"
- exit