急！如何对付新版的qq? (100分)

青云 · 2002-11-01

我编写了一个控制qq的软件。都快成功了，还实现了自启动qq, 当要发送字数多时还能自动切割发送等等。没想到我只能控制老版本的qq.     以前qq的发送消息的文本框的类属于Memo,我能控制；   现在qq的发送消息的文本框的类属于RichEdit,我却没有办法控制； （所谓控制就是把我文本框的内容通过句柄自动的复制到qq的发送消息的文本框上）   这一点我感到很奇怪，因为我做了个模拟qq的界面，我却能控制，是不是qq用了什么技术处理，不能控制啦。

青云 · 2002-11-01

下面是把实现把我软件中memo1中的文本拷贝到“对话模式”下的发送窗口中的代码： procedure TForm1.Button2Click(Sender: TObject); var hParent, hMemo: HWND; begin Memo1.SelectAll; Memo1.CopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中 hParent := FindWindow(nil, pchar('对话模式');// 找对话模式中窗口 // 找到对话模式中的回话编辑框   hMemo := ChildWindowFromPointEx(hParent, Point(100,330)),CWP_ALL); // 如果有任何一个句柄没有找到都不能完成发送，并给出提示  if hMemo=0 then     begin       ShowMessage('do not find hn hmemo');       exit;     end;      SendMessage(hMemo,WM_PASTE,0,0);   end;

xianjun · 2002-11-01

我刚刚试过，一样可以自动发送文本！

青云 · 2002-11-01

我用这段代码控制qq时，就是没有反应，我也得到了所有的句柄啦，就是不能把我的文本发过去，奇怪，当然，qq中的按纽还是能控制的，代码如下： procedure TForm1.Button1Click(Sender: TObject); var hParent,hButton : HWND; begin hParent := FindWindow(nil, pchar('对话模式');// 找对话模式中窗口 hButton := FindWindowEx(hParent,0,nil, pchar('送讯息(&S)'));  SendMessage(hButton,BM_CLICK,0,0); end; 当然，我想肯定有高手知道如何用Api函数处理这个问题，要不然qq不是就没办法控制了，我想肯定还有不少朋友在研究这个。

青云 · 2002-11-01

xianjun朋友，不行啊，我试过好多遍了，可能你控制的qq不可以发小图标（也就是memo）, 对于richedit 我控制不了。哪位高手快帮帮我啊！

青云 · 2002-11-01

xianjun朋友，不行啊，我试过好多遍了，可能你控制的qq不可以发小图标（也就是memo）, 对于richedit 我控制不了。哪位高手快帮帮我啊！

青云 · 2002-11-01

我用它来控制MSN却可以。见鬼，可能是qq内部设置过了。

xianjun · 2002-11-01

其实你用WM_SETTEXT就可以了：     SendMessage(HWND, WM_SETTEXT, 0, Longint(PChar(Trim(MemoText.Text))));

beta · 2002-11-01

复制到剪贴板的那一步是对的，不过不要用 SendMessage 发送粘贴消息 直接用虚拟按键，模拟按下 Ctrl + V： procedure SendPaste; begin   keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);   keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);   keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); end; 当然，在这之前，先要让 qq 获得焦点，可以发送 WM_SETFOCUS 或者直接让用户去点[

]

guoling · 2002-11-01

挺简单的我也做过一个 对付新版qq可以使用  ClassName:='RICHEDIT';  hRichedit :=FindWindowEx(hParent,0,PChar(ClassName),''); 如果你真想做qq的控制软件  建议你去研究他的数据包 只用FindWindowEx是没有多少技术含量的 如果还有什么问题 给我发信吧 guoling21cn@163.com ^_^

abc_xp · 2002-11-01

新版QQ有保护机制地

人在昆明 · 2002-11-01

是这个原因，你打开spy++  去获取  QQ 发送窗口的信息，结果怎么样，你看不到， 他改动了，利用了 * 密码框的原理，你是不能  SETTEXT 的，兄弟这个答案满意么？？

青云 · 2002-11-02

无法保存数据： 3。 人在昆明朋友，我想你说的答案可能是对的，但是sky++好象在VC里才有啊，delphi里用什么 实现类似的功能呢？  您能不能模拟qq作一个不能被控制的memo或richeidt来呢。谢谢啦！

resun_shaoqing · 2002-11-02

青云兄，首先我要说的是SPY++是通用的工具！接着希望你继续研究QQ的内核，新版的已经不是 那么简单了，还有用新方法来代替FINDWINDOWEX，有消息告诉我！ EMAIL：RESUN_SHAOQING@SOHU.COM

青云 · 2002-11-02

刚才我根据各位朋友的提示，一一做了尝试； 我这里能上网，但是qq用不起来，所以我还是模拟做了qq的界面。 xianjun朋友的SendMessage(HWND, WM_SETTEXT, 0, Longint(PChar(Trim(MemoText.Text)))); 我试过了，好象没有什么反应。 ----------- beta 朋友的模拟按下 Ctrl + V的代码我也试过了，好象也不行。 --------------------- goling朋友的 ClassName:='RICHEDIT';  hRichedit :=FindWindowEx(hParent,0,PChar(ClassName),''); 我也试过了，开始不行，后来我明白了,qq上发送文本框的类是RichEdit, 我模拟做的是TRichEdit.；后来我把ClassName:='TRICHEDIT';就可以了， 但是假如我文本框有两个TrichEdit，我怎么知道我控制的哪一个呢。 况且hRichedit :=FindWindowEx(hParent,0,PChar(ClassName),'');只是 得到被控制的文本框的句柄，它和 hMemo := ChildWindowFromPointEx(hParent, Point(100,330)),CWP_ALL); 这个函数的作用是一样的，我想真正用来控制新版的qq可能还是不行。 ------------------------- 不过大家提供的代码可能也不错，也许是我用错了， 但是我希望大家以后提供的时候，能不能向我那样提供完整一点。谢谢啦！

xianjun · 2002-11-02

我不知道你的新版QQ是指什么版，我这里用的是2002.08.25 beta1 我是试过之后才说可以的 难道beta3就不行了？ SendMessage(HWND, WM_SETTEXT, 0, Longint(PChar(Trim(MemoText.Text)))); 注意这里的Hwnd是指那个Richedit的Handle

guoling · 2002-11-03

旧版与新版的QQ所用的发送消息的类不同 主要是这样的 新版：在线QQ ：TRICHEDIT       隐身下线QQ：TMEMO 旧版：TMEMO 为了可以对付所有的QQ 可以对ＱＱ的版本号进行判断 或者对MEMO和RICHEDIT都发送消息 （找不到的时候是对NULL的操作我认为关系不大） 建议：不要使用自己模拟的QQ窗口 用spy＋＋分析可以看到 QQ窗口一层包一层

青云 · 2002-11-10

goling朋友的方法我试过了，确实可以用，不过有一个问题我想向各位大虾们请教，那就是 qq里有一个“二人世界”的功能，这个功能我想在局域网里用socketServer和socketClient应该很 容易实现，但在因特网里该如何实现呢，那位大虾能够写一段代码演示一下，只要实现聊天的功能 就行了。但一定是两台不在同一个局域网里的机器。

穿越沦陷的爱 · 2003-03-27

这样不可以呀 , 那个写回复信息的窗体 Handle 找不到 procedure TForm1.Button1Click(Sender: TObject); var   h,hParent, hButton, hMemo: HWND;   ClassName : String ;   hRichEdit : HWND ; begin   Memo1.SelectAll;   Memo1.CopyToClipboard;   try      ClassName:='TRICHEDIT';      hRichedit :=FindWindowEx(hParent,0,PChar(ClassName),'');      hParent := FindWindow(nil, '发送消息');   //   hMemo := ChildWindowFromPointEx(hParent, Point(50,100), CWP_ALL);     hButton := FindWindowEx(hParent, 0, nil, '送讯息(&S)');     if (hParent = 0) or (hMemo = 0) or (hButton = 0) then       MessageBox(Handle, ' NoForm ', ' 提示', MB_ICONWARNING)     else     begin       SendMessage(hRichedit, WM_PASTE, 0, 0);       SendMessage(hButton, BM_CLICK, 0, 0);     end;   except     MessageBox(Handle, 'Wrong ', ' wrong', MB_ICONWARNING);   end; end;

青云 · 2003-04-12

大家好，感谢大家提出的宝贵意见，我现在我们当地的一个网站公司买了一个空间， 域名为：www.yzsoftware.com 我不知道放些什么好，也没有做过什么网站，我想谁有兴趣和我共同开发的。开发好后， 实际上该网站也是您的。 如果哪位有兴趣，可以把你希望的网站源码发给我，我把它发布到我的 www.yzsoftware.com 上，我自己再在上面加上我的一些东西。 我们可以共同作为该站的斑竹，有兴趣相搞delphi技术的个人网站，而又苦于没有空间的朋友， 可以跟我合作，互惠互利。 我也可以拿出20M 给你做为完全的个人私有。有兴趣的朋友快跟我联系： yzdzc@163.com dai_z_cun@yzsoftware.com

急！如何对付新版的qq? (100分)

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

guoling

Unregistered / Unconfirmed

abc_xp

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

resun_shaoqing

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

guoling

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

穿越沦陷的爱

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

Similar threads