TeraTerm関連

stillalive

;///////////////////////////////////
;シリアル連続送信
;
;*マクロとは関係ないが、Teraterm初期設定
; tterm.exeを管理者として実行
; シリアルポートからCOM*（*は実際に使用するポートNo）を選択
; 設定→シリアルポートからシリアルポート設定
; 上から順に9600bps,8bit,none,1bit,none
; 設定→端末で漢字-受信、漢字-送信をそれぞれSJISへ変更
; TERATERM.INIファイルのdebug:off →on とする。
; 設定→読み込みで上記ファイルを読み込む。
;  確認の仕方：設定→端末でローカルエコーonとする。(キーボード入力が表示されるようになる)
;  Shift + Esc を押すごとに、debugモードが切り替わるのでそのたびキーボードから文字を入力。
;  16進で表示されたらその状態のままとする。
; ローカルエコーをoffとする。
; マクロ.ttlファイル読み込みでスタート
; ver 
;///////////////////////////////////

setdebug 2   ;受信電文を16進表示
i = 6        ;iの初期値を変数宣言する 

; ユーザ名を取得 
getenv 'USERNAME' username
;日時を取得
gettime timestr "%Y%m%d-%H%M%S"

;ログファイル名に日時とユーザ名を入れる。
sprintf2 filename 'console_%s_%s.log' username timestr
;sprintf2 filename 'console_%s_%s.log' '' timestr

; カレントディレクトリを変更する
changedir 'C:\Users\AO\Desktop\work'
logopen filename 0 0

while i ;whileでi(10)を設定する
;sendln '' ;空Enterを実施
send $11$A5$A5$A5$A5$10
   timeout = 3                                 ; タイムアウトを3秒に設定。
   Wait  '11 A5 A5 A5 A5 10'  '11 A5 A5 A5 A5 11' ;　A  か B を待つ。                                     
   If result=0 break                          ;break　本来はタイムアウト
   If result=1 goto ok                        ;正常受信電文が来たなら、:ok へジャンプ
   If result=2 break                          ;break  異常受信電文などに設定

:ok
;pause 2                                       ;2秒待つ
mpause 2000                                    ;2000msec待つ
i = i-1                                        ;iにi-1を代入する

endwhile ;whileに戻る