parent
b2d89b45d3
commit
b58d54f621
1 changed files with 20 additions and 0 deletions
20
package/comgt/files/getcarrier.gcom
Normal file
20
package/comgt/files/getcarrier.gcom
Normal file
|
@ -0,0 +1,20 @@
|
|||
opengt
|
||||
set senddelay 0.05
|
||||
waitquiet 1 0.2
|
||||
let c=1
|
||||
:loop
|
||||
inc c
|
||||
send "AT+CGATT?^m"
|
||||
waitfor 5 "+CGATT: 1","+CGATT: 0"
|
||||
print "\n."
|
||||
if % = -1 goto error
|
||||
if c > 10 goto toolong
|
||||
if % = 0 goto out
|
||||
sleep 2
|
||||
if % = 1 goto loop
|
||||
:toolong
|
||||
exit 1
|
||||
:error
|
||||
exit 0
|
||||
:out
|
||||
exit 0
|
Loading…
Reference in a new issue