mouse_event

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: mouse_event

Re: FindWindowExが使えません！ヘルプにものっていません 続編

by 7 » 2006年4月05日(水) 16:58

> 初心者ながら頂いたコード通り　やっていますが、ab自体が反応しません！
さっき示したコードをグローバル領域に書きましたか？

さっきのコードをグローバル領域に書いて、コマンドボタンを押した時に下のコードを実行したらしっかりと動いてくれます。

コード: 全て選択

Dim hNoteWnd As HWND
Dim hNoteEdit As HWND

	ShellExecute(hMainWnd,"open","Notepad",NULL,NULL,SW_SHOW)
	Sleep(3000)
	hNoteWnd=FindWindowEx(0,0,"Notepad",0)
	hNoteEdit=FindWindowEx(hNoteWnd,0,"Edit",0)
	SendMessage(hNoteEdit,WM_SETTEXT,NULL,"メモ帳のエディットボックスに文字列を設定しちゃうよん" As LPARAM)

Re: FindWindowExが使えません！ヘルプにものっていません 続編

by koko!yo » 2006年4月05日(水) 14:56

> 随分と古いスレッドを引っ張ってきますね。
> > FindWindowEx(親ウィンドウのハンドル,子ウィンドウのハンドル,クラス名,ウィンドウ名)
> 「FindWindowEx」と検索するぐらい簡単だと思うんですけど...。
>
> ABHelperに「FindWindowEx」の項目だけですがとりあえず作りました。内容はそのうち...。

返信・・・
7さん早速返答戴きありがとうございます。

初心者ながら頂いたコード通り　やっていますが、ab自体が反応しません！
なぜ？・・・・困っています。
できれば、参考　ソースを添付していただけると感謝感激です。
また　ABの使い方？または何か操作に足りないものがあるのでしょうか？

　　　　　　　　　　by koko!yo　

Re: FindWindowExが使えません！ヘルプにものっていません

by 7 » 2006年4月05日(水) 10:15

随分と古いスレッドを引っ張ってきますね。 FindWindowEx(親ウィンドウのハンドル,子ウィンドウのハンドル,クラス名,ウィンドウ名)
「FindWindowEx」と検索するぐらい簡単だと思うんですけど...。

ABHelperに「FindWindowEx」の項目だけですがとりあえず作りました。内容はそのうち...。

FindWindowExが使えません！ヘルプにものっていません

by koko!yo » 2006年4月05日(水) 10:01

> >他のプログラムのウィンドウのボタンにマウス移動(移動しなくてもいいですが）してクリックしたかったのです。
> 他のソフトを操作（今回は、ボタンクリック）するのでしたら、
> 以下の方法でどうでしょうか？
> 実行すると、電卓に　1が入力されます。
>
>

コード: 全て選択

ボタンのhWndを取得している場合。
> Sub MainWnd_CommandButton1_Click()
> 	Dim hCalc As HWND
> 	Dim hBtn1 As HWND
> 
> 	'クラス名(SciCalc)は、バージョンにより異なるかも。
> 	hCalc = FindWindow("SciCalc", "電卓") 
> 	hBtn1 = FindWindowEx(hCalc, NULL, "Button", "1")
> 	PostMessage(hBtn1, BM_CLICK, 0, 0)
> 
> End Sub
>
>

コード: 全て選択

コントロールIDが判っている場合。
> Sub MainWnd_CommandButton2_Click()
> 
> 	'クラス名(SciCalc)は、バージョンにより異なるかも。
> 	'lParamにコントロールのhWndが必要なソフトもあるかも知れません。
> 	PostMessage(FindWindow("SciCalc", "電卓"), WM_COMMAND, MAKELONG(125, BN_CLICKED), 0)
> 
> End Sub

by なおなお » 2005年7月17日(日) 00:09

いろいろな方法を教えていただきありがとうございました。
いろいろ試してみます。

by Abs » 2005年7月16日(土) 19:55

>mouse_eventはABでは使えないんでしょうか？
試していませんが、そんな事ないと思いますよ。
mouse_eventの場合は、相手をアクティブにしたり、
マウスポインタを移動したりで面倒だったので
別の方法を紹介しました。
なので、私もあまり使ったことがないです。

by なおなお » 2005年7月16日(土) 17:49

Aｄｓさん、ありがとうございます。
さっそく試してみます。

ついでに質問なんですが、別の方法を教えていただいてるということは、mouse_eventはABでは使えないんでしょうか？
私だけ使えないのでしょうか？

by Abs » 2005年7月16日(土) 15:59

>他のプログラムのウィンドウのボタンにマウス移動(移動しなくてもいいですが）してクリックしたかったのです。
他のソフトを操作（今回は、ボタンクリック）するのでしたら、
以下の方法でどうでしょうか？
実行すると、電卓に　1が入力されます。

コード: 全て選択

ボタンのhWndを取得している場合。
Sub MainWnd_CommandButton1_Click()
	Dim hCalc As HWND
	Dim hBtn1 As HWND

	'クラス名(SciCalc)は、バージョンにより異なるかも。
	hCalc = FindWindow("SciCalc", "電卓") 
	hBtn1 = FindWindowEx(hCalc, NULL, "Button", "1")
	PostMessage(hBtn1, BM_CLICK, 0, 0)

End Sub

コード: 全て選択

コントロールIDが判っている場合。
Sub MainWnd_CommandButton2_Click()

	'クラス名(SciCalc)は、バージョンにより異なるかも。
	'lParamにコントロールのhWndが必要なソフトもあるかも知れません。
	PostMessage(FindWindow("SciCalc", "電卓"), WM_COMMAND, MAKELONG(125, BN_CLICKED), 0)

End Sub

by なおなお » 2005年7月16日(土) 13:21

追伸
一応、他のウィンドウハンドルを取得して、クリックしたい位置は求めることができました。あとはクリックするだけなのです。それがうまくいかなくて。。＾＾：

by なおなお » 2005年7月16日(土) 13:13

> ヘルプより。
> SetCursorPos(X, Y)
>
> int X; /* 水平位置 */
> int Y; /* 垂直位置 */
>

ご返信ありがとうございます。
SetCursorPosにてボタンのある同一スクリーン上なら移動可能ということですね。試してみましたら、スクリーン上は移動可能でした。
投稿に言葉が足りませんでした＾＾；他のプログラムのウィンドウのボタンにマウス移動(移動しなくてもいいですが）してクリックしたかったのです。
mouse_eventのエラーもGetLastError関数で調査可能なのですか？デバッグでは何も入りませんでした。
再度、よろしくお願いします。

by Abs » 2005年7月16日(土) 11:43

この API を使ってください。

ヘルプより。
SetCursorPos(X, Y)

int X; /* 水平位置 */
int Y; /* 垂直位置 */

SetCursorPos関数は､ カーソルの位置を指定されたスクリーン座標に移動します。設定した新しい座標が､ 直前のClipCursor関数により設定されたスクリーンの長方形内にないときには､ カーソルが長方形内に収まるように､ Windowsが自動的にカーソルの座標を調整します。

パラメータ 説明
X カーソルの新しいx座標をスクリーン座標で指定します。
Y カーソルの新しいy座標をスクリーン座標で指定します。

戻り値
関数が正常に終了した場合は､ TRUEを返します。それ以外の場合は､ FALSEを返します。拡張エラー情報を取得するには､ GetLastError関数を使います。

mouse_event

by なおなお » 2005年7月16日(土) 09:32

超初心者ですいません

ボタンクリックすると、マウスカーソルが指定箇所に移動するようにしたかったのですが、移動しません。何か足りないのでしょうか？
AB4.01.02 WinXPです。

Sub MainWnd_CommandButton1_Click()
mouse_event(MOUSEEVENTF_ABSOLUTE,1000,800,0,0)
End Sub

ページトップ