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

我上午刚写了段程序，代码可能有点笨，但QQ2003版通过了，具体如下<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; mainhnd,sunhnd,fbuttonhandle:thandle;<br>&nbsp; butff:string;<br>&nbsp; hCurrentWindow:HWnd;<br>&nbsp; szText: array[0..254] of char;<br>begin<br>&nbsp; butff:=edit1.Text;//你要发送的内容<br>&nbsp; hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br>&nbsp; while hCurrentWindow &lt;&gt; 0 do<br>&nbsp; begin<br>&nbsp; if GetWindowText(hCurrentWindow, @szText, 255)&gt;0 then<br>&nbsp; if (pos('发送消息',strpas(@sztext))&gt;0) or (pos('对话模式',strpas(@sztext))&gt;0) then<br>&nbsp; begin<br>&nbsp; &nbsp; mainhnd:=findwindow(nil,@sztext);<br>&nbsp; &nbsp; fbuttonhandle:=findwindowex(mainhnd,0,'button','发送(&amp;s)');<br>&nbsp; &nbsp; mainhnd:=findwindowex(mainhnd,0,'AfxWnd42',nil);//这是新版真正的输入框<br>&nbsp; &nbsp; if mainhnd&lt;&gt;0 then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; sunhnd:=findwindowex(mainhnd,0,'RICHEDIT',nil);<br>&nbsp; &nbsp; &nbsp; if sunhnd&lt;&gt;0 then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp;sendmessage(sunhnd,wm_settext,20,lparam(butff));<br>&nbsp; &nbsp; &nbsp; &nbsp;SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);<br>&nbsp; &nbsp; &nbsp; &nbsp;SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);<br><br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; end;<br>&nbsp; end;<br>&nbsp; hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);<br><br>&nbsp; end;<br>end;<br><br>希望这段代码别成为QQ尾巴进一步泛滥的源头，呵呵，我想现在流行的QQ尾巴可能也是这个工作原理，那么如何才能够拦截这样的程序呢，不知各位大侠有什么高见，分数我可以另开

http://www.playicq.com/dispdocnew.php?id=9852<br>(OICQ and POPO 的消息攻击(source) -- 作者:人在昆明)<br>兄弟无聊时候写的，有代码，最新版的可以用，<br>上次还顺带写了一个偷qq密码的，0630c以后 98 2k 所有都可以偷，<br>不过不方便拿出来，也有点舍不得，呵呵！

&nbsp;这个贴子好像是我一年前贴的，想不到参与的人还真不少。<br>其实。我根据上边的提示，自己也做了一个<br>主要的技术也就是用 findwindow, sendmessage 不光对qq,对msn也能控制<br>我做的软件已经放到我的论坛上<br>http://www.yzsoftware.com/bbs/show.asp?id=31&amp;bd=90&amp;totable=1<br>不过最新版本的qq,msn 我都控制不了了。<br>人在昆明朋友，我想您对这方面很有研究。只是您提供的下载地址注册好像有收费。<br>有点让人望而却步<br>我很希望大家能到我的论坛（ &nbsp;http://www.yzsoftware.com/bbs/ ）<br>上多看看。<br>我里面有个通用的用户 name :123 password :123 <br>可以用它来回复。 不过我最希望大家还是能够花一分钟的时间注册一下。<br>如果有谁愿意当我网站论坛的斑竹，我会非常乐意的。<br>如果有谁对我上边的哪些小作品感兴趣，可以在我的论坛通过留言跟我联系(我的用户名：qingyun)，向我索取相关技术和源码<br>&nbsp;我相信我的论坛以后会成为一个不错的技术交流网站，希望dfw们多多支持。<br><br><br>

我那段代码对最新版有效<br>MSN没研究过，应该也差不了太多吧

收藏！！呵呵！<br>楼上的DFW能留下QQ吗？

菜鸟一头，QQ:4290560，希望与各位DFW们多交流