HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0114
cats他のウィンドウでのマウスジェスチャー7解決


cats

リンク

2012/1/14(Sat) 15:47:13|NO.44263

今マウスジェスチャーのソフトを作っています。
そこで、下のスクリプトを実行して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



この記事に返信する


cats

リンク

2012/1/14(Sat) 16:12:03|NO.44264

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

/*マウスの中央ボタンを押しながらマウスを回す*/ #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



fortunehill

リンク

2012/1/14(Sat) 17:07:14|NO.44265

ご参考。


#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



cats

リンク

2012/1/14(Sat) 21:44:14|NO.44268

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



てれてれ

リンク

2012/1/14(Sat) 21:46:47|NO.44269

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



fortunehill

リンク

2012/1/14(Sat) 22:55:36|NO.44275

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

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



てれてれ

リンク

2012/1/14(Sat) 23:02:13|NO.44276

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



fortunehill

リンク

2012/1/14(Sat) 23:14:01|NO.44278

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



ONION software Copyright 1997-2021(c) All rights reserved.