关于类似QQ千夫指的问题。

Question

闲来无事，写了一小段
qqhwnd:=findwindow(nil,'与  聊天中');hmemo:=findwindowex(qqhwnd,0,pchar('RICHEDIT'),'');
hButton:= FindWindowEx(qqhwnd,0,nil,'发送(&S)');Memo1.SelectAll;
Memo1.CopyToClipboard;
SendMessage(hmemo,WM_PASTE,0,0);
SendMessage(hButton,BM_CLICK,0,0);为什么运行后总是出来不能发空信息，也就是没有把文本内容粘到他的窗口中去。
如何才能找到他写信息的窗口，我这样写好像是找不到。

Answer 1

SPY++ 是什么好东东？谁给介绍推荐一下？

Answer 2

网上下一个来看看不就知了嘛如果有盘VC的话,里面也有的功能与 Delphi 中的  WinSight32  差不多

Answer 3

WinSight32是做什么用的？我还真没用过。哪位朋友给介绍一下。

Answer 4

qqhwnd:=findwindow(nil,'与  聊天中');有问题，我试了，没有找到窗口，返回0,窗口标题不会是'与  聊天中'，谁知道应该是什么？

Answer 5

同意 terrace(tyxi)WinSight32是Delphi自带的Windows对象查看工具

Answer 6

用WindowFromPoint就可以得到鼠标下面控件的Handle了

Answer 7

qqhwnd:=findwindow(nil,'与  聊天中');hmemo:=findwindowex(qqhwnd,0,pchar('RICHEDIT'),'');
hButton:= FindWindowEx(qqhwnd,0,nil,'发送(&S)');
这三个一个也找不到的，全错误。

Answer 8

s:='与‘+你要发送信息的人+’聊天中‘
qqhwnd:=findwindow('#32770 (Dialog)',s);hbutton:=findwindowex(qqhwnd,0,pchar('Button'),'发送(&S)')hmemo:=findwindowex(qqhwnd,0,pchar('edit'),'');
呵呵，就可以了

Answer 9

qqhwnd:=findwindow(nil,'与  聊天中');
当然不能这样用了，我是调试一下，贴的时候把中间的昵称删除了。

Answer 10

还是不行，
SendMessage(hmemo,WM_PASTE,0,0);
内容粘不过去。
hmemo还是找不到。我用的是最新的版QQ

Answer 11

当初我在bqq上做的完全通过（给同时讲武侠^_^），在qq下问题同上。
后来高人说是qq做了手脚，他的窗口是变化的。