Browse Subversion Repository
Contents of /trunk/installer/release/dialup.ttl
Parent Directory
| Revision Log
Revision 3221 -
( show annotations)
( download)
Tue Mar 24 09:37:20 2009 UTC
(15 years, 1 month ago)
by maya
File size: 1048 byte(s)
CVS から SVN へ移行: trunk に集約
1 |
; Sample macro for Tera Term |
2 |
; Dial-up login |
3 |
|
4 |
; open Tera Term |
5 |
; command line = 'TERATERM /C=1' (COM1 port) |
6 |
connect '/C=1' |
7 |
|
8 |
DialPrefix = 'ATD' |
9 |
|
10 |
; set phone number, username, and password |
11 |
PhoneNumber = '0000000000' |
12 |
UsernamePrompt = 'Username:' |
13 |
Username = 'MYNAME' |
14 |
PasswordPrompt = 'Password:' |
15 |
; get password from file |
16 |
getpassword 'password.dat' 'mypassword' Password |
17 |
|
18 |
; initialize modem (see the manual for your modem) |
19 |
sendln 'ATZ' |
20 |
wait 'OK' |
21 |
|
22 |
; dial up |
23 |
|
24 |
:dial |
25 |
send DialPrefix |
26 |
sendln PhoneNumber |
27 |
|
28 |
; set timeout (30 sec) |
29 |
timeout = 30 |
30 |
|
31 |
; wait for strings from modem |
32 |
wait 'CONNECT' 'BUSY' 'NO CARRIER' |
33 |
|
34 |
; pause 2 sec |
35 |
pause 2 |
36 |
|
37 |
; timeout? |
38 |
if result=0 goto error |
39 |
|
40 |
; 'CONNECT'? |
41 |
if result=1 goto conn |
42 |
|
43 |
; 'BUSY'? |
44 |
if result=2 goto redial |
45 |
|
46 |
; 'NO CARRIER' |
47 |
if result=3 goto error |
48 |
|
49 |
; error. stop macro |
50 |
:error |
51 |
messagebox 'Dialing error!' 'Tera Term' |
52 |
end |
53 |
|
54 |
:redial |
55 |
yesnobox 'Busy! Try again?' 'Tera Term' |
56 |
if result goto dial |
57 |
end |
58 |
|
59 |
; connect! |
60 |
:conn |
61 |
|
62 |
; login |
63 |
wait UsernamePrompt |
64 |
sendln Username |
65 |
|
66 |
wait PasswordPrompt |
67 |
sendln Password |
68 |
|
69 |
; OK, auto login complete. |
|