ab.com コミュニティ

ありがとうございます！僕が欲しかった通りです。
こんなくだらない質問に答えていただき、ありがとうございます。

dim hwin as HWND,hcwin as HWND
dim text as LPSTR
dim len as Long

hwin=FindWindow("Notepad","無題 - メモ帳")
hcwin=GetWindow(hwin,GW_CHILD)

SendMessage(hwin,WM_CHAR,&h46,0)	'&h41=65

len=SendMessage(hcwin,WM_GETTEXTLENGTH,0,0)+1

text=calloc(len)
SendMessage(hcwin,WM_GETTEXT,len,text)

MessageBox(0, "text =[ "+MakeStr(text)+"]", "読込", MB_OK)'出力

free(text)
end 

こんにちは＾＾

初心者のkoboと申します。
以前、ここでメモ帳のテキストを拾得したいと質問をしたときに
教えて頂いたコードです。
的外れかもしれませんが、何かのお役に立てばと思います。

[code]dim hwin as HWND,hcwin as HWND
dim text as LPSTR
dim len as Long

hwin=FindWindow("Notepad","無題 - メモ帳")
hcwin=GetWindow(hwin,GW_CHILD)

SendMessage(hwin,WM_CHAR,&h46,0) '&h41=65

len=SendMessage(hcwin,WM_GETTEXTLENGTH,0,0)+1

text=calloc(len)
SendMessage(hcwin,WM_GETTEXT,len,text)

MessageBox(0, "text =[ "+MakeStr(text)+"]", "読込", MB_OK)'出力

free(text)
end [/code]

自己解決したかもしれません。
[hide=MSDNにこう書いてありました]ターゲットウィンドウが現在のプロセスに所有されている場合は、ウィンドウまたはコントロールに メッセージが送られます。ターゲットウィンドウが他のプロセスに所有されており、キャプションを持つ場合は、ウィンドウのキャプションテキストがコピーされます。ウィンドウがキャプションを持たない場合は、NULL 文字列が返ります。この動作は、設計上決められたものです。これにより、アプリケーションは、ターゲットウィンドウを所有するプロセスがハングしている場合に GetWindowText 関数を呼び出してもハングせずに済みます。ただし、ターゲットウィンドウがハングしており、そのウィンドウが関数を呼び出したアプリケーションに属する場合は、GetWindowText 関数を呼び出したことによりアプリケーションもハングします。

[b]他のプロセス内のコントロールのテキストを取得するには、GetWindowText 関数を呼び出すのではなく、直接 WM_GETTEXT メッセージを送ります。[/b]
↑これでしょうか？
（MSDNから引用）[/hide]
まだ試してないのでなんとも言えませんが・・・

別のアプリケーションのウインドウ上のエディットボックスの内容が取得できません。
今作っているウインドウの情報を表示するプログラムで、
ほかのアプリケーションのウインドウの情報を表示しようとすると、
ウインドウ、ボタンなどはテキストを取得できるのですが、
エディットボックスのテキストは取得できません。
（ヘルプには、取得できないと書かれているので仕様だと思うのですが）
GetWindowTextを使っているのですが、
（ヘルプには、取得できないと書かれているので仕様だと思います）
他の方法はあるのでしょうか。