スクリプトでキーボードシミュレートを自由にカスタマイズするためのFR-Script解説

キーボードシミュレートするキーや文字列をスクリプト指定で制御するための機能です。

入力モードを選択するラジオボタンで「スクリプト入力モード」を選ぶと、入力した文字列がスクリプト(FR-Script)として扱われ、「入力開始」ボタンの押下でスクリプトが実行されるようになります。

なお、スクリプトが無限ループするなどして完了しない場合、「中止」ボタンを押すと中止できます。本プログラム自体が終了した場合は、スクリプトを実行しているスレッドを強制終了します。
スクリプト入力モードを利用する場合は、「入力を○○回繰り返す」の指定は無視されます。ループ制御はスクリプト内で指定してください。

文法ルールは、「いじくるつくーる」に搭載されていたR-Scriptと似たようなものとなっており、軽量版です(FR-ScriptのFはFeatherの略です)。詳細な文法解説は後述します。

スクリプトのサンプル

以下に、FR-Scriptのサンプルを示しますので、これを参考に独自の動きを構築してみてください。

(1) ランダムな数値を3文字入力する。

　KeybdEvent()は指定された仮想キーコードを押し離しする組み込み関数であり、第2引数は、キーボードを 1 = 押す、0 = 離す ことのシミュレーションを意味します。
　その他の組み込み関数は、スクリプト仕様の関数リファレンスをご参照ください。

srand(GetCurrentSecond());
i = rand() % 10
KeybdEvent(VK_0+i, 1)
KeybdEvent(VK_0+i, 0)
Sleep(20)
i = rand() % 10
KeybdEvent(VK_0+i, 1)
KeybdEvent(VK_0+i, 0)
Sleep(20)
i = rand() % 10
KeybdEvent(VK_0+i, 1)
KeybdEvent(VK_0+i, 0)
Sleep(20)

(2) Aを10回押す。

　KeybdEvent()で利用できるキーコードは、仮想キーコードと特殊入力一覧を参照してください。

i = 0
while(i < 10) {
    KeybdEvent(VK_A, 1)
    KeybdEvent(VK_A, 0)
    Sleep(20)
    ++i
}

for(i=0 , i<10, ++i) {
    KeybdEvent(VK_A, 1)
    KeybdEvent(VK_A, 0)
    Sleep(20)
}

(3) 「管」の文字を10回入力する。

　SendInputUnicode() は、指定された1文字をアクティブなプログラムに流し込む組み込み関数です。

i = 0
while(i < 10) {
    SendInputUnicode("管", 1)
    SendInputUnicode("管", 0)
    Sleep(20)
    ++i
}

for(i=0 , i<10, ++i) {
    SendInputUnicode("管", 1)
    SendInputUnicode("管", 0)
    Sleep(20)
}

FR-Script スクリプト仕様

FR-Scriptは、数値と文字列を直感的に扱える軽量なスクリプト言語です。コールバック(CB)を利用して、スクリプト実装元のプログラム機能を呼び出す他、時刻取得・乱数の取得・Windows APIを利用したダイアログ表示や環境変数操作にも対応しています。

1. 基本仕様

・変数とデータ型

• 数値変数: 下記のルール内で名前を自由に付けられます（例: count, val1）。初期値は 0 です。
• 文字列変数: 下記のルールの名前の末尾に $ を付けます（例: name$, msg$）。初期値は空文字 "" です。

変数名および後述の関数名は、アンダーバー(_)またはアルファベットで始まり、数字・アンダーバー(_)・アルファベットが続くというルールで付けます。英大文字・小文字を区別しません。
なお、初期代入変数として、数値変数YesおよびisNTには、数値1が最初から設定されています。

・即値

　基本的に数値は10進数で指定します。32bitで表現可能な範囲(-2147483648 〜 2147483647)を扱えます。0xで始まると16進数、0bで始まると2進数が指定できます。
　Trueは1、Falseは0を意味します。

・文字列リテラル

　ダブルコーテーション "..." またはシングルコーテーション '...' で囲みます。

• エスケープシーケンス: \n(改行), \t(タブ), \\, \" などが利用可能です。
• RAW文字列: @ を頭に付けると、\ をそのまま文字として扱います。
  例: @"C:\Users\Documents" （Windowsのパス指定に便利です）

　スクリプトの処理系は、外部とのやり取りには文字コードにUTF-16LEを用いますが、内部的には文字コードにUTF-8を用います。

・コメント

　#, //, ; で始まる行は、行末までコメント（何も行わない）となります。

2. 演算子

3. 制御構造 (IF-ELSE, WHILE, FOR, EXIT)

条件分岐は IF - ELSE IF - ELSE を使用します。
IFの後ろの式が真の場合は直後のブロックを実行し、偽の場合はELSE IFの式を評価し、…、いずれの条件も真にならなかった場合はELSEの後ろのブロックを実行します。ELSE IF, ELSEのブロックは省略可能です。

if (score >= 80) {
    msg$ = "合格！"
}
else {
    msg$ = "がんばりましょう"
}

繰り返しは WHILE を使用します。WHILEの後ろの式が真の状態の場合に、後ろのブロック内を実行します。ブロックの最後まで実行すると、再び式の評価が再び行われ、…、とループします。WHILE(TRUE)と書くと無限ループになりますが、WHILE(TRUE) の特別な書き方として LOOPという書き方も可能です。

i = 0
while(i < 10) {
    TextOut("" + i)
    ++i
}

// 無限ループになります
i = 0
loop {
    TextOut("" + i)
    ++i
}

繰り返しは FOR を使用することもできます。FOR (式1 , 式2 , 式3)の形になります。最初に「式1」が評価（変数初期化を想定）され、式2が真の状態の場合に、後ろのブロック内を実行します。ブロックの最後まで実行すると、式3(変数のインクリメントを想定)が評価され、再び式2の評価が再び行われ評価結果が真ならば、…、とループします。

for(i=0, i<10, ++i) {
    TextOut("" + i)
}

for直後の括弧内の式は、C言語のようなセミコロン区切りではなく、カンマ区切りとなります。

WHILE, LOOP, FOR から抜けるには、式の評価が偽になる場合の他、BREAK を使います。条件評価にすぐに戻る場合は CONTINUE を使います。

スクリプトを直ちに終了させる場合は、EXIT を使います。

i = 0
loop {
    TextOut("" + i)
    ++i
    // 現在時刻の秒の部分が30を超えたらループを抜けます
    if (GetCurrentSecond() > 30) {
        break
    }
}
TextOut("ループを抜けました")

i = 0
while(i < 100) {
    TextOut("" + i)
    // 現在時刻の秒の部分が30未満の時は、++iを実行せずに条件評価まで戻ります
    if (GetCurrentSecond() < 30) {
        continue
    }
    ++i
}

i = 0
while(true) {
    TextOut("" + i)
    // 現在時刻の秒の部分が30を超えたらループを抜け、スクリプト自体も直ちに終了します
    if (GetCurrentSecond() > 30) {
        exit
    }
    ++i
}
TextOut("ここには来ません")

ここで登場したキーワード(IF, ELSE, WHILE, LOOP, FOR, BREAK, CONTINUE, EXIT)および、TRUE, FALSEは、変数名としては使えません。

4. 組み込み関数リファレンス

制御・日時・乱数

文字列・変換関数

システム・UI関数

マウス・キーボードイベント関数

※[...] … 省略可能な引数であることを示します。
組み込み関数名の英大文字・小文字は区別されません。

5. サンプルコード

// ユーザーへの挨拶と環境変数の表示
user$ = getenv$("USERNAME")
IF (Question(user$ + "さん、環境を表示しますか？", "確認")) {
    path$ = getenv$("PATH")
    Information("PATHの内容: " + left$(path$, 50) + "...", "システム情報")
}

6. その他