消費カロリー＞吸収されるカロリー →痩せる
痩せたければ
消費カロリーを増やす
吸収されるカロリーを減らす
支出＜収入 →資産が増える
資産を増やしたければ
支出を減らす
収入を増やす
特定のコントロールを指定して自動的に文字列を入力するControlSendなど、
コントロールを指定して自動的に操作するControl系関数がControlClick以外にもいろいろある。（参考：Functions）
Control系関数を使えば、単純な作業を自動化できる！と思ったが、そう簡単ではなかった。
４．つまづいた点など
４．１．ウィンドウがアクティブでない問題
ControlClickの説明に、次の注意書きがある。
「ウィンドウがアクティブでないとコマンドに反応しないコントロールがあります。その場合、ControlClick()を使用する前にWinActivate()を使ってコントロールのあるウィンドウを最前面に表示してください。」
問題
WinActivateは、すでに開いているウィンドウをアクティブにする場合には使える。
しかし、開いている途中のウィンドウをアクティブにすることはできない。
解決策
WinWaitActiveを使って、操作したいウィンドウがアクティブになるのを待つ。
具体的には、WinWaitActive関数の後に、Control系関数を書く。
問題
操作したいウィンドウ名を指定できない。例えばウィンドウ名が一定ではない場合がある。
解決策？
手動なら解決できる
操作したいウィンドウがアクティブになったらことを目視したら、メッセージボックスのＯＫボタンを手動で押すようにする。（自動化じゃなくなる）
例
メッセージボックス（MsgBox）を表示させ、スクリプトを一時停止させる。
メッセージボックスのＯＫボタンが押されたら、スクリプトの実行を再開する。
キャンセルボタンが押されたら、スクリプトを終了するようにしておくと便利。
具体例
Dim $check
$check = MsgBox(1,”確認”,”プログラムを続ける場合はＯＫを押す”);ＯＫ，キャンセルの確認
WinWaitClose(“確認”)
If $check == 2 Then ;キャンセルの場合
Exit;プログラム終了
EndIf
４．２．コントロールがアクティブでない問題
問題
ウィンドウがアクティブになったが、操作したいコントロールがアクティブになっていない場合は、そのコントロールを操作できない。
問題の具体例
ネットからファイルをダウンロードすると、次のようなウィンドウが出てくる。
ControlClickを使って、「ファイルを保存」（操作したいコントロール）をクリックしたい。
しかし、ウィンドウがアクティブになってから、「ファイルを保存」がアクティブになるまでに、タイムラグがある。
そのため、ウィンドウがアクティブになった直後に、「ファイルを保存」を押すという命令（ControlClick）が実行されても、アクティブになっていない「ファイルを保存」をクリックできない。
ウィンドウがアクティブになるのを待つ関数(WinWaitActive）はあるが、
コントロールがアクティブになるのを待つ関数はない（はず）。
解決策１
Sleepで時間調整する。（不確実な方法）
ウィンドウがアクティブになってから、操作したいコントロールがアクティブになるまでのタイムラグ＋αの時間、スクリプトの実行を停止させる。
ＰＣの状態によってタイムラグが変わるので、「＋α」を十分長くしておく。
解決策２
操作したいコントロールがアクティブになったことを目視したら、手動でメッセージボックスのボタンを押すようにする。（自動化じゃなくなる）
例
ウィンドウがアクティブになると、メッセージボックス（MsgBox）を表示させる。
メッセージボックスのＯＫボタンが押されたら、スクリプトの実行を再開する。
キャンセルボタンが押されたら、スクリプトを終了するようにしておくと便利。
具体例
Dim $check
$check = MsgBox(1,”確認”,”プログラムを続ける場合はＯＫを押す”);ＯＫ，キャンセルの確認
WinWaitClose(“確認”)
If $check == 2 Then ;キャンセルの場合
Exit;プログラム終了
EndIf
４．３．コントロールを指定できない
問題
コントロールをうまく指定できない
例えばコントロールのＩＤが一定でない
解決策
Controlsの指定方法を変えてみる。
ＩＤを指定してうまくいかなければ、サイズで指定するなど。
コントロールにテキストがある場合、テキストでコントロールを指定する。
（ＯＫボタンなら「ＯＫ」というテキストが設定されている場合がある。コントロールにテキストが設定されていない場合も多々ある）
問題
コントロールの情報が分からない
AU3Infoを使っても、情報が出てこない
解決策
Control系関数を使わない
４．４．クリックできない
問題
ControlClickがうまく作動しない
解決策
ControlClickでうまくいかなくても、ControlSendでうまくいく場合がある。
スペースキーは左クリックと同じになる。
ControlClick ( “ウィンドウtitle”, “”, controlID , “left” )
↓
ControlSend ( “ウィンドウtitle”, “”, controlID, “{SPACE}” )
５．コントロールを指定せずに操作する
例えばクリックであれば、
・ウィンドウの左上の位置を取得する。
・ウィンドウにおける、クリックしたい座標を指定し、クリックする。
６．基本メモ
・変数の宣言
Dim $var
varは変数名
数字でも文字列でもなんでもDim
数字と文字列としての数字を区別しない
・コメントの書き方
;の後、行末までがコメント
例
MsgBox (0,””,$fileName );変数fileNameをメッセージボックスで表示する
・条件文
７．デバッグに使える
メッセージボックスで変数の内容を確認する
MsgBox (0,””,$変数名 )
８．便利なスクリプト（デバッグにも使える）
・ＯＫを押さないと次に進まない、キャンセルするとプログラム終了
Dim $check
$check = MsgBox(1,”確認”,”プログラムを続ける場合はＯＫを押す”);ＯＫ，キャンセルの確認
WinWaitClose(“確認”)
If $check == 2 Then ;キャンセルの場合
Exit;プログラム終了
EndIf
・文字列入力ボックス
Dim $input ;入力された文字列を格納する変数
$input = InputBox(“入力”,”文字列を入力”)
WinWaitClose ( “入力”) ;入力完了してから次の命令に進む
If @Error == 1 Then ;キャンセルの場合
Exit;プログラム終了
EndIf
９．正規表現
・StringRegExpでフラグに１を設定すると、一致した文字列の配列が返り値となる（変数ではなく）。
$str = StringRegExp ( “調べる文字列”, “比較する正規表現” ,1 )
MsgBox (0,””,$str[0] ) ;配列strの0番目（最初にマッチした文字列）をメッセージボックスに表示
・正規表現がうまく動作しない場合がある（使い方が間違ってるだけかも）。
|（ＯＲ）がおかしい
?（０文字以上繰り返し）がおかしい
{0,1}などもおかしい
チャルディーニの法則
返報性
相手が何かをしてくれたら、その代わりにイエスと言いがち
重い要求にノーと言った後に、軽い要求にイエスと言いがち
一貫性
前にイエスと言ったことを、イエスと言いがち
意見を変えにくい
社会的証明
みんながイエスなら、自分もイエスと言いがち
好意
好きな人がイエスなら、自分もイエスと言いがち
権威
権威のある人がイエスなら、自分もイエスと言いがち
希少性
限定されているものを欲しくなりがち
Specific 具体的
Measurable 計測できる
Agreed-upon 納得している
Relevant 目的と関連している
Realistic 現実的
Achievable 達成可能
Timely 期限を決める
ぐ：具体的
た：達成可能
い：意欲を持てる
て：定量的
き：期限設定
