コマンドの記述例

∇ホストログインの例

# 基本通信コマンドサンプル
#
var ID, PW, N, CNT
#
# ログイン
# 電話番号はあらかじめ設定されていなければならない
#
def ログイン
set ID, "XXXXXXXX" # ID を書いておく
#手入力の時はこのまま
set PW, "" # PW を書いておく
#手入力の時はこのまま
set CNT, 0
if ID == "XXXXXXXX", 11
if ID != "", 12
11 input ID, "IDを入力してください。"
# IDを入力する
if $R==0, 999 # 取り消された
12 if PW != "", 13
sinput PW, "Passwordを入力してください。"
# パスワードを入力する
if $R==0, 999 # 取り消された
13 dialon # 電話をかける
if $R==0, 999 # 接続できなかった場合には
# 処理終了
# ROAD?の自動判定
20 idle 2
search "Login:", 0
if $R==0, 21
put "NIFTY\r"
goto 20
21 search "*", 0
if $R==1, 100
search "sword:", 0
if $R==1, 101
sleep 3 # 3秒待つ
put " P\r"
set CNT, CNT + 1
if CNT < 10, 20
# 10回リトライしてもダメなので終了
beep
goto 999
# -------------------------
100 put "C NIF" # C NIF を送信
101 put "\r"
set CNT, 0
102 idle 1 # データがとぎれるまで待つ
search "ction-ID --->", 0
if $R==0, 103
# SVCを送信
put "SVC\r"
goto 102
103 search "User-ID --->", 0
if $R==0, 104
# ユーザーIDを送信
put ID, "\r"
goto 102
104 search "assword --->", 0
if $R==0, 105
# パスワードを送信
put PW, "\r"
# ログイン終了
goto 999
105 set CNT, CNT + 1
if CNT < 5, 102
# 5回リトライしてもダメなので20に戻る
set CNT, 0
goto 20
999 exit # 終了
end

∇メールを送信する例

#
# メールを送信する
#
# ルール:
# メールの先頭行に、宛先(TO:)、タイトル(SUB:)が書かれ、
# かつ、本文の最終行は /e(または/E) でなければならない
#
def メール送信
input $SN, "送信する実身名?"
if $R == 0, 1999 # 取り消し
put "go mail\r" # メールのサービスに移動
1010 idle 1 # データがとぎれるまで待つ
search ">", 0
if $R == 1, 1100
search ">", 0
if $R == 0, 1010 # >または > が見つかるまで
# 繰り返す
# 無手順のアップロードを選択
1100 put "com\r"
1110 idle 1 # データがとぎれるまで待つ
search "/E", 0
if $R == 0, 1110 # 見つかるまで繰り返す
# 本文を送信
1200 set $SF, "0" # テキスト
set $SP, "0" # 無手順
send # 送信開始
if $R == 0, 1999 # 中断された場合の
# 後処理は行わない
# 開始 OK
1300 put "2\r" # 修正しない、を選択
1310 idle 1
search ":", 0
if $R == 0, 1310 # 見つかるまで繰り返す
1400 put "1\r" # 送信する、を選択
1999 exit # 終了
end

前のページへコマンドの文法 次のページへTADテキスト通信をする

ページの先頭へ戻る

HOME > サポート情報 > 取扱説明書 > コマンドの記述例