by kobo » 2008年9月24日(水) 00:23
こんにちは^^
初心者のkoboと申します。
以前、ここでメモ帳のテキストを拾得したいと質問をしたときに
教えて頂いたコードです。
的外れかもしれませんが、何かのお役に立てばと思います。
コード: 全て選択
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]