VB工具开发制作QQ信息器

刷新列表，取得所有的QQ聊天窗口
Private Sub Command2_Click()
List1.Clear

Dim hwnd As Long
hwnd = 1

Dim i As Integer
Dim S As String
Dim str As String
S = String(512, Chr(0))

hwnd = FindWindow("TXGuiFoundation", vbNullString)
'遍历窗口
While (hwnd)
GetClassName hwnd, ByVal S, Len(S) '取得窗口的类名
'如果是QQ程序相关的窗口
If Left(S, InStr(S, Chr(0)) - 1) = "TXGuiFoundation" Then

'取得窗口的标题
SendMessage hwnd, WM_GETTEXT, Len(S), ByVal S
str = Left(S, InStr(S, Chr(0)) - 1)

'过滤掉不需要的窗口，剩下的就是聊天窗口了（此处过滤可能不完整，如启动QQ时弹出的新闻框就没有过滤，根据需要修改）
If Trim(str) <> "" And LCase(Left(Trim(str), 6)) <> "qq2009" And LCase(Trim(str)) <> "txfloatingwnd" And LCase(Trim(str)) <> "txmenuwindow" Then
'将聊天的窗口名称、窗口句柄加入到list1中
List1.AddItem S, 0
List1.ItemData(0) = hwnd

End If

End If
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
有群发器代码，功能没有完全实现，本站仅提供本软件下载，软件作者与本站无关，请不要相信网络收费教程