VB工具開(kāi)發(fā)制作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程序相關(guān)的窗口
If Left(S, InStr(S, Chr(0)) - 1) = "TXGuiFoundation" Then

'取得窗口的標(biāo)題
SendMessage hwnd, WM_GETTEXT, Len(S), ByVal S
str = Left(S, InStr(S, Chr(0)) - 1)

'過(guò)濾掉不需要的窗口，剩下的就是聊天窗口了（此處過(guò)濾可能不完整，如啟動(dòng)QQ時(shí)彈出的新聞框就沒(méi)有過(guò)濾，根據(jù)需要修改）
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)
有群發(fā)器代碼，功能沒(méi)有完全實(shí)現(xiàn)，本站僅提供本軟件下載，軟件作者與本站無(wú)關(guān)，請(qǐng)不要相信網(wǎng)絡(luò)收費(fèi)教程