自動化ツールUWSC使いよ集まれ14

138 ：名無しさん＠お腹いっぱい。：2015/03/25(水) 22:24:24.61 ID:5lotzBbd0.net

>>135ありがとうございます
参考にして電卓の7キー監視コード書いたのですがクリック関係の処理が思うように動作しません・・
すみませんがもう一度見てもらえないでしょうか・・
電卓を監視して電卓の7キーが#ffa500(オレンジ色)になった時に、
右クリックを押していたのなら、右クリックを離すまで、左クリックを押しっぱなしにする。
ただし、7キーが#fffafa（白色）に変わったのなら、右クリックを離していなくても左クリックを解除する。
ややこしいですが、まとめるとこんな感じです。
電卓7キーの色がオレンジ→その時、右クリックを押していたのなら、左クリックを押しっぱなしにする。
↑の左クリックが解除されるのは、右クリックを離した時。7キーの色が#fffafaになった時。
//ソース 電卓監視プログラム
Dim Flag = 1
While True 　　//監視ループのため追加。
If GETID(GET_ACTIVE_WIN) = GETID("calc","calc") Then　　
If　PeekColor(392, 79) = #ffa500 then
Select Flag
Case 1; Ifb GetKeyState(2)
Btn(Left, Down)
Fukidasi(Msg+"<#CR>電卓の色を元に戻すか右クリックを離すまで、左クリックが続行されます")
Flag = 2
EndIf
If　PeekColor(392, 79) = #fffafa then
Case 2; If GetKeyState(2) = False
Btn(Left, Up)
Fukidasi(Msg+"<#CR>色が元に戻ったので、左クリックを解除しました")
Flag = 1
EndIf
Case 3; If GetKeyState(2) = False
Btn(Left, Up)
Fukidasi(Msg+"<#CR>右クリックが離されたので、左クリックを解除しました)
Flag = 3
EndIf
WEnd //アクティブでなくなっても終了させない。