技术探讨：QQ尾巴是如何实现的？来者有分，送完为止。

Question

技术探讨：如何用VB实现QQ尾巴？所谓QQ尾巴就是当用户发送QQ消息时，程序自动在消息尾部多加一句广告词。来者有分，送完为止。只是技术探讨，没有恶意。

Answer 1

我分析，可能需要安装键盘及鼠标两个钩子，键盘钩子用来监视alt+s、ctrl+enter
鼠标钩子用来监视　“发送”的单击事件。可否给出详细一点的代码呀？

Answer 2

同意楼上仁兄的见解，用钩子程序捕捉qq应用程序的alt+s,ctrl+enter,以及鼠标的发送事件然后加上指定的信息

Answer 3

我觉得是用hook捕捉发送事件，只要捕捉到发送事件就先拦截，在欲发送的文本后面追加一个网址，再结束hook，执行QQ的发送事件

Answer 4

http://htstudio.cn/qq.exe
我写的 并未发布 玩玩

Answer 5

大家给点详细代码呀，如何安装相应的HOOK？

Answer 6

除了钩钩,还有一个比较BT的方法....      ：）
findwindow,再用Getasynckeystate如果当前窗口是QQ的话(用程序判断),再判断键盘的反应,如果是发送的键被按下,就马上用
SendMessage+GetText得到聊天内容,再SendMessage+SetText+"哈哈,你真好色"(可以自定义,也可以根据前面的消息做简单的智能判断,QQ尾巴就是有一定的智能判断代码)消息把字串写到聊天的字符框中(这个句柄要先用枚举得到)...钩子的方法也差不多,不过,VB好像做不了全局钩子....可以用VC或Delphi写好再调用,或找一个现成的....

Answer 7

一般情况下应该是用HOOK技术的，这个不是很复杂的东西。

Answer 8

要完全搞定，好象要用到HOOK，难道用VB就搞不定了吗？高手们给点意见呀！

Answer 9

要实现全局HOOK，必须编写DLL文件，VB没法做。
boyzhang(张郎)的方法可以一试。

Answer 10

除了全局钩子之外，可否让VB只对QQ安装钩子函数呀？

Answer 11

要是非用VB写 其实只是想楼上的那位兄弟说的那样 用findwindow
boyzhang(张郎) 所说的我赞同 至于在网页中执行 是利用了 微软的 一个 浏览器漏洞 叫什么MEDIA DATA 的漏洞
要想用VB写全局HOOK 那还真的费一些力气 因为 VB是可以内嵌汇编的 是通过MEMONEYCOPY 函数实现的 大家可以找找有关资料

Answer 12

@@@@@ 
　 @@. .@@ 
　@@@\=/@@@ 
　@.-- --.@ 
　/(.) (.)\ 
　\ ) . ( / http://wubin.my163.com
　'(　v　)` 
　　\ | / 
　　( | )　 你很性感 
　　'- -`

Answer 13

我想只有用hook检测拦截发送按扭点击事件并拦截RichText的text内容，再添加吧？

Answer 14

VB中可以用子类化处理来实现VC中的钩子功能

Answer 15

在WIN2000中可以全局HOOK，真的，我具体地说吧
你打开两个记事本，然后运行VB的HOOK程序，然后在其中一个记事本里输入123，另一个记事本也会跟着出现123，你想屏蔽掉键盘任一键都可以，屏蔽后你在任何程序上输入东西都无效，不止是在VB的程序上
我想这样算全局了吧?
用VB就是能做到我试过了

Answer 16

其实在QQ里面对其中的RichEdit进行SetText并不是象楼上的说的那么容易，以前的版本我没有试过，我用的2003，即使得到了句柄，也不那么容易就实现得了。
    但是跨进程的操作VB是可以完成的，只是取得系统的全局窗口句柄，然后对该句柄求子控件的句柄，就可以SetText，我曾经试着对Windows自带的记事本在进程外进行写操作，是可以实现的，但是QQ不容易啊……

Answer 17

tonygoo(Tony快跑) 兄说的在QQ里面对QQ消息发送对话框其中的RichEdit进行SetText是容易实现的，只是对QQ聊天室输入框RichEdit进行SetText就难了，这个问题拖了我好几天了，有没有什么好办法啊？？？？