マウスの動きを自由にカスタマイズするためのFR-Script解説

マウスの動きをスクリプト指定で制御するための機能です。

設定ダイアログのマウスの揺らし方の選択肢で「スクリプト指定でカスタマイズする」を選ぶと、選択肢の右下の「マウス動作カスタマイズ(FR-Script)」ボタンが押下可能になります。ボタンを押下すると、スクリプトを入力できるダイアログボックスが開くので、スクリプトを入力してOKボタンを押して下さい。

設定ダイアログを開く前から「スクリプト指定でカスタマイズする」の状態になっていれば、このタイミングで、マウスを揺らす時間間隔で指定した秒数が経過後にスクリプトの実行が始まります。

そうでない場合は、設定ダイアログをOKボタンで閉じたタイミングから、マウスを揺らす時間間隔で指定した秒数が経過後にスクリプトの実行が始まります。

基本的には、マウスを揺らす時間間隔で指定した秒数が経過するごとにスクリプトが先頭から呼び出されますが、前回のスクリプト実行が終了していない場合は、そのまま処理が継続されます。そのため、スクリプトの中でループ制御とSleepを駆使して独自の間隔でマウス制御を行うことも可能です。

なお、スクリプトが無限ループするなどして完了しない場合、スクリプトの書き換えを行ってOKボタンを押した場合や、マウスの揺らし方を変えたタイミングで、スクリプトの中断指示が送信されます。マウスふるふる自体が終了した場合は、スクリプトを実行しているスレッドを強制終了します。

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

スクリプトのサンプル

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

(1) 指定秒数ごとに、現在のマウスの位置から、左上に100ピクセルずつズレ続ける

x = CB.GetCursorPosX()
y = CB.GetCursorPosY()
CB.SetCursorPos(x-100, y-100)

(2) 指定秒数ごとに、左右にマウスを動かすが、動かす距離（ミッキー単位）はランダム

srand(GetCurrentSecond());
r = rand()
CB.MoveMouse(r, 0)
CB.MoveMouse(-r, 0)

(3) 指定秒数は無視して、0.1秒(100ミリ秒)ごとに、マウスを右上(10ミッキー)に動かし、すぐに左下(10ミッキー)に動かす

while(1) {
    CB.MoveMouse(10, -10)
    CB.MoveMouse(-10, 10)
    Sleep(100)
}

(4) 指定秒数ごとに、マウスホイールを-128だけは動かす

CB.MouseWheel(-128)

(5) 指定秒数ごとに、マウスの左ボタン・右ボタン・中央ボタン（ホイールの押し込み）を同時に押し(1)・離し(0)する

CB.MouseButtonLeft(1)
CB.MouseButtonRight(1)
CB.MouseButtonMiddle(1)
CB.MouseButtonLeft(0)
CB.MouseButtonRight(0)
CB.MouseButtonMiddle(0)

(6) 指定秒数ごとに、マウスのX1ボタン・X2ボタン（ブラウザの進む・戻るが割り当てられることの多いボタン）を同時に押し(1)・離し(0)する

CB.MouseButtonX1(1)
CB.MouseButtonX1(0)
CB.MouseButtonX2(1)
CB.MouseButtonX2(0)

(7) 指定秒数ごとに、Scrool LockキーのトグルON・トグルOFFを繰り返す (標準機能では、トグルON⇔OFFが瞬間的に行われて元に戻るが、このスクリプトでは、ONで待ち、OFFで待ち、ONで待ち、OFFで待ち、…といった動きになる)

CB.KeyboardEvent(0x91, 1)
CB.KeyboardEvent(0x91, 0)

なお、CB.KeyboardEventの第1引数はキーコード、第2引数は押し(1)・離し(0)を意味しています。

(8) 指定秒数は無視して、0.1秒(100ミリ秒)ごとに、マウスを右上(16ミッキー)に動かし、2秒待ち、左下(16ミッキー)に動かし、2秒待ち、…を繰り返す

loop {
    CB.MoveMouse(-0x10, 0x10)
    Sleep(2000)
    CB.MoveMouse(0x10, -0x10)
    Sleep(2000)
}

(9) 指定秒数ごとに、ダイアログを表示する

TextOut("サンプルダイアログ", "タイトル")

ダイアログを閉じるまでは、スクリプト実行中の扱いとなり、指定秒数後の次のターンでのダイアログの表示は行われませんが、スクリプトの実行は別スレッドにて並行で実行されているため、ダイアログを閉じてから指定秒数へのカウントが行われるのではなく、ダイアログが開いている間も指定秒数へのカウントは行われます。

FR-Script スクリプト仕様

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

1. 基本仕様

・変数とデータ型

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

変数名および後述の関数名は、アンダーバー(_)またはアルファベットで始まり、数字・アンダーバー(_)・アルファベットが続くというルールで付けます。英大文字・小文字を区別しません。

・即値

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

・文字列リテラル

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

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

・コメント

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

2. 演算子

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

条件分岐は IF - ELSE IF - ELSE を使用します。

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

繰り返しは WHILE を使用します。WHILE(1) の特別な書き方として LOOPという書き方も可能です。

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

i=0
loop {
    TextOut("" + i)
    ++i
}

WHILE から抜ける場合は BREAK を使います。条件評価にすぐに戻る場合は CONTINUE を使います。

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

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

制御・日時・乱数

文字列・変換関数

システム・UI関数

5. サンプルコード

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

6. その他