HSPTV!掲示板

今マウスジェスチャーのソフトを作っています。
そこで、下のスクリプトを実行してHSPのウィンドウで
マウスの中央ボタンを押しながら回すとメッセージが表示されますが
HSP以外のウィンドウで中央ボタンを押しながら回すとメッセージが
表示されるようにするにはどうすればよいでしょうか。
このスクリプトとはまったく違うものでもかまわないので
アドバイスやスクリプトをお願いします。

/*マウスの中央ボタンを押しながらマウスを回す*/
#define x 0
#define y 1
dim p1,2
dim p2,2
dim p3,2

repeat
p3.x = p2.x
p3.y = p2.y
p2.x = p1.x
p2.y = p1.y
p1.x = mousex
p1.y = mousey
z = ((p2.x-p3.x)*(p2.y-p1.y)-(p2.x-p1.x)*(p2.y-p3.y))
getkey key,4
if key=1 {
if (abs(Z)>500) and (z>0) {
mes "ジェスチャー(反時計回り)を"+szName+"で確認"
}
if (abs(Z)>500) and (z<0) {
mes "ジェスチャー(時計回り)を"+szName+"で確認"
}
}
await 50
loop

追加です。
上のスクリプトは前に実験してたやつがのこってました。
ごめんなさい。

/*マウスの中央ボタンを押しながらマウスを回す*/
#define x 0
#define y 1
dim p1,2
dim p2,2
dim p3,2

repeat
p3.x = p2.x
p3.y = p2.y
p2.x = p1.x
p2.y = p1.y
p1.x = mousex
p1.y = mousey
z = ((p2.x-p3.x)*(p2.y-p1.y)-(p2.x-p1.x)*(p2.y-p3.y))
getkey key,4
if key=1 {
if (abs(Z)>500) and (z>0) {
mes "ジェスチャー(反時計回り)を確認"
}
if (abs(Z)>500) and (z<0) {
mes "ジェスチャー(時計回り)を確認"
}
}
await 50
loop

ご参考。

#include  "user32.as"
 dim ss,2
 dim cc,2
 repeat
       GetCursorPos varptr(ss)
       cc = ss,ss(1)
       ScreenToClient hwnd,varptr(cc)
       title strf("screenX=%d screenY=%d clientX=%d clientY=%d",ss,ss(1),cc,cc(1))
       await
 loop

fortunehillさん､スクリプトをありがとうございます。
なんとか解決することができました。＾＾

>ご参考。
スクリプト挙げるなら最低限ちゃんとしたwait挟めよ・・・
環境によっては大変なことになる。

>スクリプト挙げるなら最低限ちゃんとしたwait挟めよ・・・
>環境によっては大変なことになる。

awiatのメッセージループ取得だけでは駄目なのでしょうか？
最低限のちゃんとしたwait教えて頂けますか。

以下のスレの通り。
あなたのスクリプトのおかげでログオフさせられましたよ。
http://hsp.tv/play/pforum.php?mode=pastwch&num=36088

　成程ＯＳとＴＩＴＬＥ命令の相性でメモリーリークするんですね
ありがとうございます。勉強に成りました。