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)
有群發器代碼，功能沒有完全實現，本站僅提供本軟件下載，軟件作者與本站無關，請不要相信網絡收費教程