アーティクル

#69 Article 131 Posted at 1991/11/14 17:56:15 by Ｋａｔｚｅ (MAP1378) [CCT.MACRO]
Subject: CCT-98自動運転マクロ（未完成）
timeout 3600
case "Hit RETURN please."
send "\r"
case "ID (guest=MAP000):"
send UID + CR
case "Password:"
send UPASSWD + CR
case "きています" "command[1-7LMQ?]:"
goto GETMAIL      MAIN
GETMAIL:
MAIN:
send "M\r"
case "Input your message:"
send "自動運転中です\r"
case "command[1-7LMQ?]:"
send "L\r"
case "command[1-7LMQ?]:"
send "3\r"
file1 = ""
file2 = ""
board = ""
subject = ""
keyword = ""
string = ""
findset "a:\\cct3\\*.mpl"
findfile file1
while file1 != ""
    file1 = left(file1,12)
    open 1 file1 READ
    case "command[#0-9LAKU./?]:"
    read 1 board
    sendstr board
    case "command[#+-TLWSU/?]:"
    send "W" + CR
    case "Subject:"
    read 1 subject
    sendstr subject
    case "Keyword:"
    read 1 keyword
    sendstr keyword
    case "終了するときは、行の頭で .（ピリオド）だけを入力してください。"
    while feof(1) == 0
        read 1 string
        sendstr string
    wend
    close 1
    send "\r\2E\r"
    case "<text input> W:書き込み V:読みなおし C:キャンセル B:書き込みボードの追加変更"
    send "W" + CR
    case "command[#+-HWCFPASXKBJUL/?]:"
    send "/" + CR
    file2 = left(file1,8) + ".bak"
    delete file2
    rename file1 file2
    findfile file1
wend
case "command[#0-9LAKU./?]:"
send "A\r"
case "command[#LAK/?]:"
send "/\r"
case "command[1-7LMQ?]:"
send "Q\r"
END

…エラー処理もなんにもやってない汚いプログラムだ(^_^;)
一応プロなんだけど（をいをい）
							Ｋａｔｚｅ