Initial commit
This commit is contained in:
21
package/network/utils/comgt/files/ussd.gcom
Normal file
21
package/network/utils/comgt/files/ussd.gcom
Normal file
@@ -0,0 +1,21 @@
|
||||
opengt
|
||||
set com 115200n81
|
||||
set comecho off
|
||||
set senddelay 0.02
|
||||
waitquiet 0.2 0.2
|
||||
flash 0.1
|
||||
|
||||
:start
|
||||
send "AT+CUSD=1,"
|
||||
send $env("ussd")
|
||||
send ",15"
|
||||
send "^m"
|
||||
waitfor 120 "+CUSD:"
|
||||
if % = -1 goto timeout
|
||||
get 1 "^m" $s
|
||||
print $s
|
||||
exit 0
|
||||
|
||||
:timeout
|
||||
print "ERROR: no USSD response, timeout.\n"
|
||||
exit 1
|
||||
Reference in New Issue
Block a user