管理TM群

下载源代码

一、问题的提出
偶是两个QQ群的管理员,平常都是在群里跟其它人交流.当然啦,因为偶是管理员,就要承担起管理员的责任.在实际中,会碰到两个问题:

1、我的两个群都很热,有很多人加入,这样,不用很快,群里的人就达到了上限200人了,就不能再让新的人加入.
2、平常有些人加入只是为了发广告,整天在这里发一些与群的主题不相关的内容.或者是有的人的QQ中毒了,老是不时发一些有病毒的链接.

对于这两个问题,我是这么的解决的.

1、当人数达到上限时,我就让群里的人都在群的名字前面加上一些特别的符号,比如:@%#%&^*,总之就是一些一般人不会用在自己群的名字的符号吧,以这些符号作为标志,识别哪些人是长期没有在群里发言的人.把这个改名的要求发在群的公告里,对于那些长期没有上线的人,当然看不到群的公告,也就不会改群的名片了.我以这些符号作为标志,清除那些长期不上线的人,留些空间,让新人能加进来.

2、对于那些乱发信息的人,当然就是立即T出群里啦.

这两种的做法都是把人给T出群里,但是在实际操作中却很麻烦了. 对于第一种情况,有些人把那个特别的符号放在群名字中的某个地方,比如,要求把@加在名字前面,有个名字叫天使,本来按照要求,改名后就变为@天使,但这个人却很有个性,他把名字改为天@使,对于这些人,当然可以不管三七二十一,一律当成是没有改名,把他T出群外啦.但是考虑到这个人还是有看到公告的,还是让他留下来吧,但这样就苦了我这个当管理员的啦,在200个人里面,一个个的看哪个人的名字不符合公告的要求.人这么多,把我都看到眼花聊乱的了.既要把人T走,又不好T错了.做这样的事,也真是费功夫的. 对于第二种情况,也是一样的,因为聊天信息的那个窗口里,只能看到这个人的名字和QQ号,为了把这个人T了,还得在群设置里,一个个人的去对,找那个QQ号,实在是痛苦,都是数字,要很细心一个个的核对,一不小心就把这个号给漏了过去,又得重新找一遍了,有好几次,我都是找了三次以上才把那个QQ号才找出来.为此,我想做一个工具,只要输入QQ号,就可以把人T走了.最初,我是想抓取QQ把群里的人T走时的数据包来分析一下.知道了这个数据包消息的格式后,我就可以仿造一个消息,直接的向QQ服务器发过去,就可以把人给T了.我用工具把T人时的数据包抓取一下,全部都是乱码的.因为QQ的消息格式并没有公开,把以分析起来真的是头痛了,都无从下手了,只好把这个想法放弃了.我又想了一下,既然我不能发这样的数据包,那就直接让QQ自己发这个包吧.为了要让QQ把T人的包给发出去,就得从QQ自己的界面入手,输入QQ号后,能在群设置里直接的定位到要T的QQ号,这样就不用人工的去找这个QQ号,省却了去找这个QQ号的痛苦了.

二、问题的分析
我在实现时使用的是TM2006新春版,在群聊天的窗口里点工具务栏上的”群设置”,弹出了”群设置”窗口,在这个窗口里,选择”成员列表”这一项,右边有一个list,这个list就包含有所有的成员了,当选中了某个人后,就可把它T了.

图一 群设置窗口

现在的问题是要先把想T的人找出来.怎么样在list中把想T的人给找出来呢,我的想法是枚举这个list里所有人的QQ号,然后跟想要T的QQ号作比较,如果有相同的,就把list里的这一项选中,然后我们就可以进一步的操作了.那现在就可以把问题转化为,枚举list,获得list里的项的信息.我用spy++查看了一下那个”群设置”窗口,如图所示:


图二 用spy++查看的窗口关系

最顶层的就是那个”群设置”窗口了,那个显示成员的list原来是一个syslistview32类型的控件,包含在一个类型为”#32770″的dialog中,我们只要顺着最顶层的窗口中,一层层的窗口找下去就可以得到我个想要的那个list窗口的名柄了,呵呵,之后,就可以向这个list发出消息,让它干活了.想到这,偶心时狂喜了一阵子.但是在实现过程中却是不是那么的顺利的.在顶层窗口中找那个list的句柄,并不是什么困难的事.把桌面上的把有窗口都枚举一遍,就要以找到窗口名为”群设置”的窗口了.

EnumWindows(EnumWindowsProc,0);//枚举所有的窗口

BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)

{

	TCHAR buff[1000];

	int buffsize(100),nPosition(-1);

	HWND hQQWnd=NULL;

	::GetWindowText(hwnd,buff,buffsize);

	if (strlen(buff)<1)

		return TRUE;

	CString str(buff);

	nPosition=str.Find(_T(“群设置”)); //这里设置要找的窗口名

	if(nPosition!=-1)

		EnumChildWindows(hwnd,ChildWndProc,0);//继续找子窗口

	return TRUE;

}
//枚举包含有syslistview32的类型为#32770的窗口的句柄
BOOL CALLBACK ChildWndProc(HWND hwnd, LPARAM lParam)

{

	LPTSTR lptstr;

	HGLOBAL hglb=NULL;

	char className[CLASS_SIZE];

	if (GetClassName(hwnd,className,CLASS_SIZE)==0)

		return TRUE;
	CString str(className);
	HWND hChild = GetWindow(hwnd, GW_CHILD);

	if (GetClassName(hChild,className,CLASS_SIZE)==0)

		return TRUE;
	CString strChildName(className);
	//顶层窗口下有四个类型都为”#32770”的dialog,其中只有其中一个

	//才是包括有成员列表的
	while (str != _T(“#32770″) || strChildName != _T(“SysListView32″))

	{

		HWND h1= GetNextWindow(hwnd,  GW_HWNDNEXT);

		GetClassName(h1,className,CLASS_SIZE);

		s tr = className;

		hwnd = h1;
		hChild = GetWindow(hwnd, GW_CHILD);

		if (GetClassName(hChild,className,CLASS_SIZE)==0)

			return TRUE;
		strChildName =className;

	}
	EnumChildWindows(hwnd,DeleWndProc,0);//在包含syslistview的dialog中继续找

}

找到了包含有syslistview的窗口后,就继续找syslistview了,然后可以向它发送命令消息了.这是整个程序的关键部分,先把代码给出来,我再进行解释.

#define CLASS_SIZE 4096

BOOL CALLBACK DeleWndProc(HWND hwnd, LPARAM lParam)

{

	LPTSTR lptstr;

	HGLOBAL hglb=NULL;

	char className[CLASS_SIZE];

	if (GetClassName(hwnd,className,CLASS_SIZE)==0)

		return TRUE;

	CString str(className);

	char sz[254] =”\0″;

	if (_T(“SysListView32″) == str)

	{

		int iItem=0;

		int iFoundFlag = 0;//if find the qq number, iFoundFlag = 1;else 0;

		LVITEM lvitem,lvitem1, *plvitem,*plvitem1;

		DWORD PID;

		HANDLE hProcess;
		char ItemBuf[512],*pItem;
		GetWindowThreadProcessId(hwnd,  &PID);

		hProcess=OpenProcess(PROCESS_ALL_ACCESS,false ,PID);

		if (!hProcess)

		{

			MessageBox(NULL,”获取进程句柄操作失败！”,”错误！”,NULL);

		}

		else

		{

			plvitem=(LVITEM*)VirtualAllocEx(hProcess, NULL, sizeof(LVITEM), MEM_COMMIT,  PAGE_READWRITE);

			plvitem1=(LVITEM*)VirtualAllocEx(hProce ss, NULL, sizeof(LVITEM), MEM_COMMIT,  PAGE_READWRITE);
			pItem=(char*)VirtualAllocEx(hProce ss, NULL, 5120, MEM_COMMIT, PAGE_READWRITE);
			if (!plvitem)

			{

				MessageBox(NULL,”无法分配内存！”,”错误！”,NULL);

			}

			else

			{

				int nItemCount = ::SendMessage(hwnd, LVM_GETITEMCOUNT, 0  ,0);

				lvitem.mask=LVIF_TEXT;

				lvitem.cchTextMax=512;

				lvitem.iSubItem=1;  //ProcessName

				lvitem.pszText=pItem;

				WriteProcessMe mory(hProcess, plvitem, &lvitem, sizeof(LVITEM),  NULL);

				lvitem1.state=LVIS_SELECTED;

				lvitem1.stateM ask=LVIS_SELECTED;

				WriteProcessMemory(hProcess,  plvitem1, &lvitem1, sizeof(LVITEM), NULL);
                                for(; iItem<nItemCount; iItem++)

				{

					SendMessage(hwnd, LVM_GETITEMTEXT, (WPARAM)iItem, (LPARAM)plvitem);
					ReadProcessMemory(hProcess, pItem, ItemBuf, 512, NULL);
					CString strItem(ItemBuf);
                                        //strQQNum就是要找的QQ号码了
					if(strQQNum == strItem)

					{

						SendMessage(hwnd, LVM_SETITEMSTATE, (WPARAM)iItem, (LPARAM)plvitem1);

						iFoundFlag = 1;

						break;

					}

				}

				if(0 == iFoundFlag)

				{

					CString str;

					str = “没有找到QQ号:\n”;

					str += strQQNum;

					MessageBox(NULL, str, “提醒”,  NULL);

				}
			}

		}
		CloseHandle(hProce ss);

		VirtualFreeEx(hProcess,  pItem, 0, MEM_RELEASE);

		VirtualFreeEx(hProcess, plvitem1,0, MEM_RELEASE);

		VirtualFreeEx(hProcess, plvitem, 0, MEM_RELEASE);

	}

	return TRUE;

}

DeleWndProc函数主要是把枚举syslistview32的项,查找出我们想要找的QQ号,并选中. 最初时我是尝试用以下的代码去得到list的item的内容的.

TCHAR szText[100];

LV_ITEM lvi;

lvi.mask = LVIF_TEXT;

lvi.iItem = nIndex;

lvi.iSubItem = 0;

lvi.pszText = szText;

lvi.cchTextMax = 100;

ListView_GetItem(hwndLV, &lvi);

但却会报错误,存取错误,也就是说内存方面的问题了.问题定位到了ListView_GetItem(hwndLV, &lvi);这一句了.后来我查找了很多资料才知道为什么会有错误.因为我的程序与TM的程序是分别属于不同的Progress,我在自己的程序的进程中申请了lvi的内存空间,却希望把TM进程往这个内存空间去写入数据,当然是会有错误啦. Windows用到了虚存这个概念,它让每个程序都觉得自己占有2G的内存,每个程序都把自己用到的数据放在这2G的内存中去运行.每个程序间的内存空间是互不相干的,这样,如果某个程序出现了问题,也不会影响到其它程序的运行了.ListView_GetItem要往TM的程序里写数据,当然这样的数据只能保存在TM这个程序的内存空间里了.我们可以用VirtualAllocEx这个函数在TM这个程序运行的内存片中申请内存空间,这样ListView_GetItem就可以向这个新申请的空间中写入数据了.然后,我们再用ReadProcessMemory函数把新申请的空间中的数据读到自己程序进程里的缓冲区中去,采用了一个曲折的办法,实现了不同进程的数据交换.最后当然要把申请的空间用VirtualFreeEx释放,要不就会有内存泄漏了.

三、问题的解决
至此,再回头看看文中开头提到的两个问题. 1查找到有特殊标志的QQ号的名字,只要修改DeleWndProc中的匹配QQ号的语句就行了.这个纯粹是一个字符串的匹配了. 2查找指写的的QQ号. DeleWndProc已经是查找指定的QQ号了.示例程序给出的就是这种情况. 当已经找到指定的项时,就可以向那个删除成员Button发出一个BM_Click的消息了,呵呵,人就给T了.这个也不难实现,也照样的找到这个按钮的HWND,用SendMessage就可以把消息发送过去了.至此就解决了开头提出的两个问题了. 在查找群设置的窗口时,也可以用FindWindow和FindWindowEx来得到syslistview32的句柄.

四、后续工作
我在把程序也给另一个管理员用的时候,他给我提出要实现以下的功能: 输入被T的QQ号,软件自动搜索自己是管理员的群,软件能在自己是管理员的群中搜索到此QQ号,把这个人在每个群里都T走. 呵呵,我的想法模拟人的操作过程,把TM的联系人面板打开,

图三 TM的联系人面板

逐个项展开,如果这个项是群就向这个项发出双击消息,让它出现群聊天窗口,再向群聊天窗口中的群设置发双击消息,

图四 聊天窗口工具栏上的群设置

这样就会出现群设置窗口了,就把问题归结到原来已经解决了的问题了.但我发现那个面板的类是Tencent_UserBar_Class_Ver1.0,如图三所示.不知是从什么派生出的,从而就不知道要发出些什么消息了.还请高人指教.

五、结束语
从vckbase学到了很多东西,很感谢大家的共同分享.自己的水平还很菜,但还是把自己碰到的问题写出来了,一方面可以给像我同样的菜鸟吸取经验教训,再碰到同样的问题时,能有一些参考资料.另一方面,是让各位高人指点一下我的不足. 欢迎用下面的联系方式与我继续讨论
E_mail:ahxh2000@163.com
MSN: ahxh2000@hotmail.com

六、参考资料
http://vegeta.blog.enorth.com.cn/article/3349.shtml
http://www.codeproject.com/threads/int64_memsteal.asp
http://www.microsoft.com/msj/0997/win320997.aspx
http://jacquelin.potier.free.fr/controlcontentsaver/
http://blog.csdn.net/goodname008/archive/2005/04/30/369490.a spx