有什么办法可以得到另外一个窗体RichEdit或者其他文本编辑框中的文字啊(50分)

dawndang · 2002-08-16

我用GetwindowText好象对Edit之类的控件没有用阿。。。。。 谢谢了

lio_cheng · 2002-08-16

很简单的问题干吗搞的这么复杂：      edit1.Text:=form2.edit1.Text;

dawndang · 2002-08-16

不是自己程序的阿：）呵呵，我正在尝试发送消息给另外一个程序

lio_cheng · 2002-08-16

什么意思，是用自己的程序来的到其他程序的窗体的文本框中的内容吗？

timelyraining · 2002-08-16

请考虑用使用clipboard

dawndang · 2002-08-16

对阿，自己写一个程序，然后 实现功能就是拷贝和设置其他程序窗口中Edit或者文本编辑控件中 的文本

lio_cheng · 2002-08-16

哇，要是有这种程序的话，可以卖银子的！ 再说，要是窗体上有多个文本框又怎么定位，太难了吧！

DxDx · 2002-08-16

關注ing~

jsxjd · 2002-08-16

可以做到，但你必须先获得该编辑框的 Hanldle . 然后向它发送 WM_GETTEXT 消息。 要获得 handle ，一般要用 spy winsight32 之类的程序先跟踪一下， 先得到它的“类”。然后编辑一个程序来得到。

lio_cheng · 2002-08-17

呵呵，高手！！！

I_Love_Delphi · 2002-08-17

赞成jsxjd的说法。

dawndang · 2002-08-19

jsxjd, 我已经试过用Spy＋＋追踪handle然后使用GetWindowText 或者 WM_Copy消息， 但是遗憾的是都不管用，如果您能有一个示范的例程，我将无限感激。我记得原来有个 关于QQ的轰炸软件，实现的就是不停地往开着的QQ聊天窗口中设置文字然后发送，不知道他 是怎么实现的，再次谢谢 谢谢

movax · 2002-08-19

就是jsxjd的那种做法啊,检查一下得到的handle是不是你想要的. 你可以得到你想要监视窗口的所有控件的handle,用enumwindows(好象是这个名字的api函数), 我原来写过一个hook,可以监视其他窗口的edit.text的变化.

dawndang · 2002-08-19

movax 我在windows2000server下面试了很多办法都不行。不知道能够给我看看您写的hook吗？

jsxjd · 2002-08-21

以下是我跟踪程序的主要跟踪过程， 被跟踪的程序是一个数据录入程序，但它是加密保存数据的，无法自己进行分析。 该程序主要跟踪用户的数据录入控件，并保存自己的备份： procedure TForm1.FormCreate(Sender: TObject); var   ss:tstringlist;   i,dow:integer;   s:string;   t:ttimestamp; begin   datafile:='';   ss:=tstringlist.create;   ss.loadfromfile('people.txt');   for i:=1 to ss.count-1 do     listbox2.Items.add(ss.strings[i-1]);   ss.free;   d:=date;   dow:=dayofweek(d);   t:=datetimetotimestamp(d);   t.date:=t.date-6-dow;   d:=timestamptodatetime(t);   datetimepicker1.date:=d;   listbox2.itemindex:=0;   p:=GetWindow(getdesktopwindow,GW_child);   while (p<>0) do   begin     setlength(s,100);     GetwindowText(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,100);     GetClassName(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,16);     if s='ThunderRT6FormDC' then break;     p:=GetWindow(p,GW_HWNDNEXT);   end;   if not(s='ThunderRT6FormDC') then   begin     showmessage('Traced Program not run!');     application.terminate;   end;   pp:=p;   chd:=p;   p:=GetWindow(chd,GW_child);   while (p<>0) do   begin     setlength(s,100);     GetwindowText(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,100);     GetClassName(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,22);     if s='ThunderRT6PictureBoxDC' then break;     p:=GetWindow(p,GW_HWNDNEXT);   end;   chd:=p;   p:=GetWindow(chd,GW_child);   while (p<>0) do   begin     setlength(s,100);     GetwindowText(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,100);     GetClassName(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,23);     if s='ThunderRT6UserControlDC' then     begin     break; //        nn:=nn+1;  //       if (nn=2) then break;     end;     p:=GetWindow(p,GW_HWNDNEXT);   end;   bringwindowtotop(pp);   chd:=p;   p:=GetWindow(chd,GW_child);   while (p<>0) do   begin     setlength(s,100);     GetwindowText(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,100);     GetClassName(p,pchar(s),100); //    listbox1.Items.add(s);     setlength(s,21);     if     //((length(trim(s))=21) and     (s='ThunderRT6UserControl') then                 break;     p:=GetWindow(p,GW_HWNDNEXT);   end; //////////////////////////////////////////////   chd:=p;   listbox1.clear;   p:=GetWindow(chd,GW_child); {   sendmessage(p,wm_mouseactivate,wparam(pp),lparam(MA_ACTIVATE *256*256+HTCLIENT));   sendmessage(p,wm_setcursor,wparam(chd),lparam(MA_ACTIVATE *256*256+HTCLIENT));   sendmessage(p,wm_lbuttondblclk,wparam(mk_lbutton),lparam(10*256*256+10));   sendmessage(p,wm_lbuttonup,wparam(mk_lbutton),lparam(10*256*256+10)); //  sendmessage(p,wm_lbuttondblclk,wparam(mk_lbutton),lparam(50*256+50)); //  sendmessage(p,wm_lbuttonup,wparam(mk_lbutton),lparam(50*256+50)); }

DeityFox · 2002-08-27

同意楼上的 首先是要得到控件的句柄,然后用sendmessage发送WM_GETTEXT消息就行了 前段时间我刚刚用过

来如风 · 2002-08-30

对，只要找到该控件的句柄就可以WM_GETTEXT了，sendmessage(handle,wm_gettext, @texts,255);//texts:array[0..255] of char; texts这个数组就是你取的内容了，

来如风 · 2002-08-30

错了，错了，应该是 sendmessage(handle,wm_gettext,255,integer(@texts));//texts:array[0..255] of char; texts这个数组就是你取的内容了，哎，好久没有用了，一时参数顺序都忘了

hryyx · 2002-09-11

以下代码测试通过（DELPHI6.0+WIN2000SERVER） procedure TForm1.Button1Click(Sender: TObject); var   hWindow, hControl: THandle;   sWindowText: PChar; begin   hWindow := FindWindow(nil,'未定标题 - 记事本');   if hWindow = 0 then   begin     ShowMessage('未找到指定窗口');     Exit;   end;   hControl := FindWindowEx(hWindow, 0, 'EDIT', nil);   if hControl = 0 then   begin     ShowMessage('未找到指定控件');     Exit;   end;   GetMem(sWindowText, 100);   SendMessage(hControl, WM_GETTEXT, 100, LPARAM(sWindowText));   Caption := sWindowText;   FreeMem(sWindowText);   //SendMessage(hControl, WM_CHAR, 65, 0);  //也可以向里面写字的呦！！！   //最后送你两个函数，很有用的呦 GetCursorPos(),WindowFromPoint() end;

mckz · 2002-09-11

TXYQBF_GXX@163.COM,你给俺发邮件，俺给你我的那个QQ轰炸机的源代码，呵呵，如果 有多个EDIT，就用递规祛查找EDIT句柄。算了，不说了。给我发邮件。

有什么办法可以得到另外一个窗体RichEdit或者其他文本编辑框中的文字啊(50分)

dawndang

Unregistered / Unconfirmed

lio_cheng

Unregistered / Unconfirmed

dawndang

Unregistered / Unconfirmed

lio_cheng

Unregistered / Unconfirmed

timelyraining

Unregistered / Unconfirmed

dawndang

Unregistered / Unconfirmed

lio_cheng

Unregistered / Unconfirmed

DxDx

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

lio_cheng

Unregistered / Unconfirmed

I_Love_Delphi

Unregistered / Unconfirmed

dawndang

Unregistered / Unconfirmed

movax

Unregistered / Unconfirmed

dawndang

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

DeityFox

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

hryyx

Unregistered / Unconfirmed

mckz

Unregistered / Unconfirmed

Similar threads