跟上时代，用上QQ2007的新版了，发现一个家伙（QQ好友里头的）隔一会儿就发个什么“去http://xxxxx看看啊，刚上传的照片”，不是中毒就是用垃圾软件发的，回敬他一下，在网上找一自动聊天器，发现在2007的版本下不能用！
   可能是获取不到这新版的窗口了吧！好吧，看看2007到底有什么特别。

   于是就用VB写了段代码：
Option Explicit Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Sub Command1_Click() Dim WinHandle As Long, qqWindow As String * 26 Dim  ParHandle As Long Dim Ustr As String Dim myClassName As String '感谢热心网友修正！ WinHandle = FindWindow(vbNullString, vbNullString) '发现用参数0&,0&得到结果是0，改成这样了 Do While WinHandle <> 0    GetWindowText WinHandle, qqWindow, 26    ParHandle = GetParent(WinHandle)    If InStr(qqWindow, "聊天中") And ParHandle = 0 Then        Ustr = Left(qqWindow, InStr(qqWindow, Chr(0)) - 1)        Text1.Text = Text1.Text & Ustr & "  ★句柄：" & Hex(WinHandle) & vbNewLine        myClassName = "我错了，我真的错了，我没有天分，对不起，再给个机会吧~"    End If    WinHandle = GetWindow(WinHandle, 2&)    DoEvents   '在查找窗口期间不要太占用CPU资源，加上了这句。 Loop End Sub

呵呵，以上代码在VB6 SP6 +winXp SP2下测试通过!