这段代码对QQ2006Beta3竟然不起作用了,谁来试一下?(50分)

原来我有个程序用的如下代码找RICHEDIT的句柄,在QQ2006贺岁版中工作良好,可最近升级到QQ2003Beta3后,却找不到RICHEDIT的句柄了,在执行了<br> &nbsp; hLastWin := FindWindowEx(hLastWin, THandle(nil), 'RICHEDIT', nil);<br> &nbsp; &nbsp;if hLastWin = 0 then Exit;<br>后,hLastWin现在等于0,直接退出了.程序的代码如下,看谁能帮我调一下,我对SPY++的用法不是很了解:<br><br>var<br> &nbsp;hLastWin, hButton: THandle;<br> &nbsp;szWindowText: array[0..MAX_PATH] of Char;<br> &nbsp;szTextLength: Integer;<br> &nbsp;sTailer, sQQName: string;<br>begin<br> &nbsp;hLastWin := GetForegroundWindow;<br> &nbsp;GetClassName(hLastWin, szWindowText, SizeOf(szWindowText));<br> &nbsp;if szWindowText &lt;&gt; '#32770' then Exit;<br> &nbsp;szTextLength := SendMessage(hLastWin, WM_GETTEXT, MAX_PATH, Integer(@szWindowText[0]));<br> &nbsp;szWindowText[szTextLength] := #0;<br> &nbsp;if (Pos('&Aacute;&Auml;&Igrave;ì&Ouml;&ETH;', szWindowText) &gt; 0) or (Pos('&Egrave;&ordm;', szWindowText) &gt; 0) then<br> &nbsp;begin<br> &nbsp; &nbsp;sQQName := Copy(szWindowText, Pos(' ', szWindowText) + 1, Pos('&Aacute;&Auml;&Igrave;ì&Ouml;&ETH;', szWindowText) - Pos(' ', szWindowText) - 2);<br> &nbsp; &nbsp;hLastWin := FindWindowEx(hLastWin, THandle(nil), '#32770', nil);<br> &nbsp; &nbsp;if hLastWin = 0 then Exit;<br> &nbsp; &nbsp;hButton := FindWindowEx(hLastWin, THandle(nil), nil, '·&cent;&Euml;&Iacute;(&S)');<br> &nbsp; &nbsp;if hButton = 0 then Exit;<br> &nbsp; &nbsp;hLastWin := FindWindowEx(hLastWin, THandle(nil), 'AfxWnd42', nil);<br> &nbsp; &nbsp;if hLastWin = 0 then Exit;<br> &nbsp; &nbsp;hLastWin := FindWindowEx(hLastWin, THandle(nil), 'RICHEDIT', nil);<br> &nbsp; &nbsp;if hLastWin = 0 then Exit;<br> &nbsp; &nbsp;ShowMessage(IntToStr(hLastWin));<br> &nbsp;end;<br>end;

没有一个人碰到这种问题？

我自己开发了一个消息组件，可以解决你的问题！<br>先来看看我的问题吧，高分：<br>http://www.delphibbs.com/delphibbs/DispQ.asp?LID=3633759

把你开发的组件贡献一下吧,看来只有你能解决这个问题了.

没人能解决却还要给你们分,真亏.再等等.

应该有消息体现，暂时用定时读取可用连接的方法，或者定时ping的方法<br><br>一、监控 TCP连接 <br><br>黑客程序或木马程序的本质是实现数据传输。TCP和UDP（用户数据文报协议）是两个最常用的数据传输协议，它们都使用设置监听端口的方法来完成数据传输。 <br><br>实时监控所有端口的连接情况、及时对异常连接发出警告并提示用户删除异常连接，就可以有效地达到防黑目的。 <br>使用微软的IP助手库函数（iphlpapi.dll）是一个捷径。其中的 GetTcpTable函数能返回当前系统中全部有效的 TCP连接。其定义为： <br>DWORD GetTcpTable( <br>PMIB_TCPTABLE pTcpTable, // buffer for the connection table <br>PDWORD pdwSize, // size of the buffer <br>BOOL bOrder // sort the table? <br>); <br><br>其中参数一是 TCP连接表缓冲区的指针，参数二是缓冲区大小（当缓冲区不够大时，该参数返回实际需要的大小），参数三指示连接表是否需要按“Local IP”、“Localport”、“Remote IP”、“Remote port”依次进行排序。 <br>对于监控 UDP连接表，可使用 GetUdpTable函数完成。由于在使用上完全类似，这里略去讨论（后面的实例程序中也相应地略去了对 UDP的监控）。 <br>二、异常警告及删除连接 <br><br>通过定时比较前后两个 TCP连接表，我们可以立即发现异常并发出警告。后面的实例程序用声音和报警标志提醒用户注意可能的外界入侵。 <br>收到警告信号后，我们应首先将可疑连接删除掉，然后再仔细查找系统中是否有安全漏洞或有可疑进程在工作。IP助手库函数中的 SetTcpEntry函数可以帮助我们删除可疑连接。其定义为： <br>DWORD SetTcpEntry( <br>PMIB_TCPROW pTcpRow // pointer to struct. with new state info <br>); <br>在调用此函数之前，应将欲删连接的状态置为 MIB_TCP_STATE_DELETE_TCB（删除）。MIB_TCP_STATE_DELETE_TCB也是目前唯一可在运行时设置的状态。

多人接受答案了。