VB工具开发制作QQ信息器

刷新列表，取得所有的QQ聊天窗口PrivateSubCommand2_Click()List1.ClearDimhwndAsLonghwnd=1DimiAsIntegerDimSAsStringDimstrAsStringS=String(512,Chr(0))hwnd=FindWindow("TXGuiFoundation",vbNullString)'遍历窗口While(hwnd)GetClassNamehwnd,ByValS,Len(S)'取得窗口的类名'如果是QQ程序相关的窗口IfLeft(S,InStr(S,Chr(0))-1)="TXGuiFoundation"Then'取得窗口的标题SendMessagehwnd,WM_GETTEXT,Len(S),ByValSstr=Left(S,InStr(S,Chr(0))-1)'过滤掉不需要的窗口，剩下的就是聊天窗口了（此处过滤可能不完整，如启动QQ时弹出的新闻框就没有过滤，根据需要修改）IfTrim(str)<""AndLCase(Left(Trim(str),6))<"qq2009"AndLCase(Trim(str))<"txfloatingwnd"AndLCase(Trim(str))<"txmenuwindow"Then'将聊天的窗口名称、窗口句柄加入到list1中List1.AddItemS,0List1.ItemData(0)=hwndEndIfEndIfhwnd=GetWindow(hwnd,GW_HWNDNEXT)有群发器代码，功能没有完全实现，本站仅提供本软件下载，软件作者与本站无关，请不要相信网络收费教程

Tags:VB工具开发制作QQ信息器.