Kayanya gak jalan di gue deh..
:)
but it worth to try...
1. XL
! iPAQ
!
! Author: Ross Barkman
!
!
! History:
! 24 Jan 01 First release of base script
! 15 May 04 Simplified & made more generic
! 3 tries of initial AT added
! 05 Jan 05 Configure for iPAQ
!
! 'mlts' resource info:
! byte 1 == 01 -> modem HAS built-in error correction protocols
! byte 2 == 01 -> modem HAS built-in data compression protocols
! byte 3 == 200 -> max number of chars in varstr 7
! byte 4 == 200 -> max number of chars in varstr 8
! byte 5 == 200 -> max number of chars in varstr 9
!
@ORIGINATE
@ANSWER
!
! -- Modem setup --
!
note "Nokia E61 Modem Script" 1
!
! Set serial port speed 57600, all interface signals off
!
serreset 230400, 0, 8, 1
hsreset 0 0 0 0 0 0
settries 0
!
!
@LABEL 1
!
! Check the phone is responding
!
matchclr
matchstr 1 2 "OK¥13¥10″
write "AT¥13″
matchread 30
inctries
iftries 3 101
jsr 9
jump 1
!
!
@LABEL 2
!
settries 0
!
!
@LABEL 3
!
! Configure the phone
!
matchclr
matchstr 1 5 "OK¥13¥10″
matchstr 2 101 "ERROR¥13¥10″
write "AT&FE0V1S0=0¥13″
matchread 30
inctries
iftries 3 101
jsr 9
jump 3
!
!
@LABEL 5
pause 10
settries 0
!
!
@LABEL 6
!
! Set additional options
!
matchclr
matchstr 1 10 "OK¥13¥10″
matchstr 2 108 "ERROR¥13¥10″
write "AT¥13″
matchread 60
inctries
iftries 3 101
jump 6
!
!
@LABEL 9
!
! Subroutine: Attempt to reset the phone
!
DTRClear
pause 5
DTRSet
flush
return
!
!
@LABEL 10
!
! Setup complete
!
ifANSWER 32
!
!
! -- Place a call --
!
@LABEL 20
!
! Display the full dialstring (Varstring 1)
!
note "Melakukan koneksi XL-GPRS" 3
!
! Varstrings 7, 8 and 9 may contain partial dialstrings
! if the number is longer than the phone's buffer
! (unlikely, but we allow for it)
!
ifstr 8 27 " "
ifstr 9 24 " "
!
! Write dialstring in varstrings 7, 8 & 9
matchclr
matchstr 1 21 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 21
matchclr
matchstr 1 22 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 22
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
jump 32
!
!
@LABEL 24
! Write dialstring in varstrings 7 & 8
matchclr
matchstr 1 25 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 25
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
jump 32
!
@LABEL 27
! Write dialstring in varstring 7
write "AT+CGDCONT=1,¥34IP¥34,¥34www.xlgprs.net¥34¥13″
write "ATDT*99***1#¥13″
!
!
! -- Connect response --
!
! Parses successful connect responses in the following format:
! CARRIER
! CONNECT zzzzz
!
@LABEL 32
matchclr
matchstr 1 81 "RING¥13¥10″
matchstr 2 102 "NO DIALTONE¥13¥10″
matchstr 3 103 "NO CARRIER"
matchstr 4 103 "ERROR¥13¥10″
matchstr 5 104 "BUSY¥13¥10″
matchstr 6 105 "NO ANSWER¥13¥10″
matchstr 7 33 "CARRIER"
matchstr 8 34 "CONNECT"
matchread 700
ifANSWER 32
jump 105
!
! CARRIER parsing
!
@LABEL 33
note "Network carrier detected" 2
jump 32
!
! CONNECT parsing
!
@LABEL 34
!
! 2400 and 4800 have two entries each
! to distinguish them from 24000 and 48000
!
matchclr
matchstr 1 40 "2400¥13″
matchstr 2 40 "2400/"
matchstr 3 41 "4800¥13″
matchstr 4 41 "4800/"
matchstr 5 42 "7200″
matchstr 6 43 "9600″
matchstr 7 44 "12000″
matchstr 8 45 "14400″
matchstr 9 46 "19200″
matchstr 10 51 "28800″
matchstr 11 52 "38400″
matchstr 12 53 "43200″
matchstr 13 54 "48000″
matchstr 14 55 "56000″
matchstr 15 56 "64000″
matchread 10
jump 59
!
! - Connection rates -
!
! CommunicatingAt informs ARA of the link speed
!
@LABEL 40
note "Communicating at 2400 bps." 2
CommunicatingAt 2400
jump 60
!
@LABEL 41
note "Communicating at 4800 bps." 2
CommunicatingAt 4800
jump 60
!
@LABEL 42
note "Communicating at 7200 bps." 2
CommunicatingAt 7200
jump 60
!
@LABEL 43
note "Communicating at 9600 bps." 2
CommunicatingAt 9600
jump 60
!
@LABEL 44
note "Communicating at 12400 bps." 2
CommunicatingAt 12400
jump 60
!
@LABEL 45
note "Communicating at 14400 bps." 2
CommunicatingAt 14400
jump 60
!
@LABEL 46
note "Communicating at 19200 bps." 2
CommunicatingAt 19200
jump 60
!
@LABEL 51
note "Communicating at 28800 bps." 2
CommunicatingAt 28800
jump 60
!
@LABEL 52
note "Communicating at 38400 bps." 2
CommunicatingAt 38400
jump 60
!
@LABEL 53
note "Communicating at 43200 bps." 2
CommunicatingAt 43200
jump 60
!
@LABEL 54
note "Communicating at 48000 bps." 2
CommunicatingAt 48000
jump 60
!
@LABEL 55
note "Communicating at 56000 bps." 2
CommunicatingAt 56000
jump 60
!
@LABEL 56
note "Communicating at 64000 bps." 2
CommunicatingAt 64000
jump 60
!
@LABEL 59
note "Communicating at an unknown rate." 2
!
@LABEL 60
jump 70
!
!
! - Normal exit after "CONNECT" -
!
!
@LABEL 70
!
! Turn CTS on, for hardware flow control
!
HSReset 0 1 0 0 0 0
!
ifANSWER 71
pause 30
!
@LABEL 71
exit 0
!
!
! -- Answer calls --
!
! A RING result from the modem and in ANSWERING mode
! claims the serial port and answering the phone
!
@LABEL 81
ifORIGINATE 32
userhook 1
note "Answering phone…" 2
write "ATA¥13″
jump 32
!
!
! -- Hang up and reset modem --
!
@HANGUP
@LABEL 90
settries 0
HSReset 0 0 0 0 0 0
!
@LABEL 92
!
! Escape from data to command mode
!
matchclr
matchstr 1 94 "OK¥13¥10″
write "+++"
matchread 20
!
@LABEL 94
!
! Send hangup command
!
pause 10
matchclr
matchstr 1 98 "NO CARRIER¥13¥10″
matchstr 2 98 "OK¥13¥10″
matchstr 3 98 "ERROR¥13¥10″
matchstr 4 98 "0¥13¥10″
write "ATH0¥13″
matchread 30
!
! If that fails, toggle DTR
!
DTRClear
pause 5
DTRSet
flush
!
! Try this three times only
!
inctries
iftries 3 101
jump 92
!
!
@LABEL 98
!
! Reset phone to default settings
!
pause 10
matchclr
matchstr 1 99 "OK¥13¥10″
write "AT&F¥13″
matchread 30
jump 101
!
@LABEL 99
exit 0
!
! -- Error messages --
!
! Modem Not Responding
@LABEL 101
exit -6019
!
! No Dial Tone
@LABEL 102
exit -6020
!
! No Carrier or Error
@LABEL 103
exit -6021
!
! Busy
@LABEL 104
exit -6022
!
! No Answer
@LABEL 105
exit -6023
!
! User Cancellation
@LABEL 107
exit -6008
!
@LABEL 108
exit -6002 "The phone or network does not seem to support the options required for this script"
!
2. IM3
! iPAQ
!
! Author: Ross Barkman
!
!
! History:
! 24 Jan 01 First release of base script
! 15 May 04 Simplified & made more generic
! 3 tries of initial AT added
! 05 Jan 05 Configure for iPAQ
!
! 'mlts' resource info:
! byte 1 == 01 -> modem HAS built-in error correction protocols
! byte 2 == 01 -> modem HAS built-in data compression protocols
! byte 3 == 200 -> max number of chars in varstr 7
! byte 4 == 200 -> max number of chars in varstr 8
! byte 5 == 200 -> max number of chars in varstr 9
!
@ORIGINATE
@ANSWER
!
! -- Modem setup --
!
note "Nokia E61 Modem Script" 1
!
! Set serial port speed 57600, all interface signals off
!
serreset 230400, 0, 8, 1
hsreset 0 0 0 0 0 0
settries 0
!
!
@LABEL 1
!
! Check the phone is responding
!
matchclr
matchstr 1 2 "OK¥13¥10″
write "AT¥13″
matchread 30
inctries
iftries 3 101
jsr 9
jump 1
!
!
@LABEL 2
!
settries 0
!
!
@LABEL 3
!
! Configure the phone
!
matchclr
matchstr 1 5 "OK¥13¥10″
matchstr 2 101 "ERROR¥13¥10″
write "AT&FE0V1S0=0¥13″
matchread 30
inctries
iftries 3 101
jsr 9
jump 3
!
!
@LABEL 5
pause 10
settries 0
!
!
@LABEL 6
!
! Set additional options
!
matchclr
matchstr 1 10 "OK¥13¥10″
matchstr 2 108 "ERROR¥13¥10″
write "AT¥13″
matchread 60
inctries
iftries 3 101
jump 6
!
!
@LABEL 9
!
! Subroutine: Attempt to reset the phone
!
DTRClear
pause 5
DTRSet
flush
return
!
!
@LABEL 10
!
! Setup complete
!
ifANSWER 32
!
!
! -- Place a call --
!
@LABEL 20
!
! Display the full dialstring (Varstring 1)
!
note "Melakukan Koneksi IM3-GPRS" 3
!
! Varstrings 7, 8 and 9 may contain partial dialstrings
! if the number is longer than the phone's buffer
! (unlikely, but we allow for it)
!
ifstr 8 27 " "
ifstr 9 24 " "
!
! Write dialstring in varstrings 7, 8 & 9
matchclr
matchstr 1 21 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 21
matchclr
matchstr 1 22 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 22
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
jump 32
!
!
@LABEL 24
! Write dialstring in varstrings 7 & 8
matchclr
matchstr 1 25 "OK¥13¥10″
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
matchread 400
jump 101
!
@LABEL 25
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
jump 32
!
@LABEL 27
! Write dialstring in varstring 7
write "AT+CGDCONT=1,¥34IP¥34,¥34www.indosat-m3.net¥34¥13″
write "ATDT*99***1#¥13″
!
!
! -- Connect response --
!
! Parses successful connect responses in the following format:
! CARRIER
! CONNECT zzzzz
!
@LABEL 32
matchclr
matchstr 1 81 "RING¥13¥10″
matchstr 2 102 "NO DIALTONE¥13¥10″
matchstr 3 103 "NO CARRIER"
matchstr 4 103 "ERROR¥13¥10″
matchstr 5 104 "BUSY¥13¥10″
matchstr 6 105 "NO ANSWER¥13¥10″
matchstr 7 33 "CARRIER"
matchstr 8 34 "CONNECT"
matchread 700
ifANSWER 32
jump 105
!
! CARRIER parsing
!
@LABEL 33
note "Network carrier detected" 2
jump 32
!
! CONNECT parsing
!
@LABEL 34
!
! 2400 and 4800 have two entries each
! to distinguish them from 24000 and 48000
!
matchclr
matchstr 1 40 "2400¥13″
matchstr 2 40 "2400/"
matchstr 3 41 "4800¥13″
matchstr 4 41 "4800/"
matchstr 5 42 "7200″
matchstr 6 43 "9600″
matchstr 7 44 "12000″
matchstr 8 45 "14400″
matchstr 9 46 "19200″
matchstr 10 51 "28800″
matchstr 11 52 "38400″
matchstr 12 53 "43200″
matchstr 13 54 "48000″
matchstr 14 55 "56000″
matchstr 15 56 "64000″
matchread 10
jump 59
!
! - Connection rates -
!
! CommunicatingAt informs ARA of the link speed
!
@LABEL 40
note "Communicating at 2400 bps." 2
CommunicatingAt 2400
jump 60
!
@LABEL 41
note "Communicating at 4800 bps." 2
CommunicatingAt 4800
jump 60
!
@LABEL 42
note "Communicating at 7200 bps." 2
CommunicatingAt 7200
jump 60
!
@LABEL 43
note "Communicating at 9600 bps." 2
CommunicatingAt 9600
jump 60
!
@LABEL 44
note "Communicating at 12400 bps." 2
CommunicatingAt 12400
jump 60
!
@LABEL 45
note "Communicating at 14400 bps." 2
CommunicatingAt 14400
jump 60
!
@LABEL 46
note "Communicating at 19200 bps." 2
CommunicatingAt 19200
jump 60
!
@LABEL 51
note "Communicating at 28800 bps." 2
CommunicatingAt 28800
jump 60
!
@LABEL 52
note "Communicating at 38400 bps." 2
CommunicatingAt 38400
jump 60
!
@LABEL 53
note "Communicating at 43200 bps." 2
CommunicatingAt 43200
jump 60
!
@LABEL 54
note "Communicating at 48000 bps." 2
CommunicatingAt 48000
jump 60
!
@LABEL 55
note "Communicating at 56000 bps." 2
CommunicatingAt 56000
jump 60
!
@LABEL 56
note "Communicating at 64000 bps." 2
CommunicatingAt 64000
jump 60
!
@LABEL 59
note "Communicating at an unknown rate." 2
!
@LABEL 60
jump 70
!
!
! - Normal exit after "CONNECT" -
!
!
@LABEL 70
!
! Turn CTS on, for hardware flow control
!
HSReset 0 1 0 0 0 0
!
ifANSWER 71
pause 30
!
@LABEL 71
exit 0
!
!
! -- Answer calls --
!
! A RING result from the modem and in ANSWERING mode
! claims the serial port and answering the phone
!
@LABEL 81
ifORIGINATE 32
userhook 1
note "Answering phone…" 2
write "ATA¥13″
jump 32
!
!
! -- Hang up and reset modem --
!
@HANGUP
@LABEL 90
settries 0
HSReset 0 0 0 0 0 0
!
@LABEL 92
!
! Escape from data to command mode
!
matchclr
matchstr 1 94 "OK¥13¥10″
write "+++"
matchread 20
!
@LABEL 94
!
! Send hangup command
!
pause 10
matchclr
matchstr 1 98 "NO CARRIER¥13¥10″
matchstr 2 98 "OK¥13¥10″
matchstr 3 98 "ERROR¥13¥10″
matchstr 4 98 "0¥13¥10″
write "ATH0¥13″
matchread 30
!
! If that fails, toggle DTR
!
DTRClear
pause 5
DTRSet
flush
!
! Try this three times only
!
inctries
iftries 3 101
jump 92
!
!
@LABEL 98
!
! Reset phone to default settings
!
pause 10
matchclr
matchstr 1 99 "OK¥13¥10″
write "AT&F¥13″
matchread 30
jump 101
!
@LABEL 99
exit 0
!
! -- Error messages --
!
! Modem Not Responding
@LABEL 101
exit -6019
!
! No Dial Tone
@LABEL 102
exit -6020
!
! No Carrier or Error
@LABEL 103
exit -6021
!
! Busy
@LABEL 104
exit -6022
!
! No Answer
@LABEL 105
exit -6023
!
! User Cancellation
@LABEL 107
exit -6008
!
@LABEL 108
exit -6002 "The phone or network does not seem to support the options required for this script"
!
Anda bisa melakukan modifikasi sendiri untuk operator lain, caranya tinggal find replace saja APN dari XL/IM3 dengan APN Operator Anda.
Setting DialUp:
Nomer: *99***1#
Username & Password diganti sesuai dengan setting GPRS Operator Anda.
Sumber http://sanyasyari.com/2006/09/06/setting-gprs-xl-di-komputer-anda/
No comments:
Post a Comment