文/图 灰狐（Bink && E.S.T）===================================&俗话说的好，不会的黑客就不是好黑客（我会编程，但我也不是黑客，因为我是个----员，哈哈）。今天呢，我们就亲自动手打造一个专属于自己的小工具。 我们要做的是一个QQ炸弹，其实这个工具的威力并不是很大，顶多只能和好友聊天的时候骚扰一下。思路很简单，就是通过程序不停地模拟按键“Ctrl+Enter”自动发送消息，不过当我们做成的时候，心里自然也会有那么一种满足和喜悦。 编程工具的选择很重要，像这样的小东东如果用VC来做，那真不是一般的麻烦。什么？你说Delphi很快？那倒是，不过会Pascal的肯定没会C的人多吧。就以我们学校来说，基本对于所有的理工专业都是必修课。对于快速的可视化开发，BCB当然是第一选择，因为兼具了VC与Delphi共同优点的武林第一神兵利器要隆重出场了，让我们用热烈的掌声欢迎：Borland C++ Builder 6.0（简称BCB）。 程序详细思路：首先打开与好友的聊天窗口，程序通过窗口名搜索得到窗口句柄，下一步是自动将要发送的语句拷贝到剪贴板中，然后激活聊天窗口让其得到输入焦点，最后就是通过循环不断地模拟按键Ctrl+V和Ctrl+Enter了。 启动BCB 6.0，会默认自动新建一个Application，在窗体上放一个PageControl控件（在Win32页中），将其Align属性设置为alClient，新建一个TabSheet（很多人都说怎么也找不到这个控件，其实新建它的方法是右键点击PageControl，然后New Page就OK了），将其Caption属性设置为“轰炸好友”，其余控件就根据图1来放吧。从上到下三个编辑框（Edit控件）的Name属性依次为NcikNameEdit、FrequentEdit和TimesEdit，最下面是个Memo控件，Name属性设置为WordMemo。好了，下面我们就用代码说话吧（代码侧重程序实现原理，有所删减，完整工程及代码文件已经打包提供）。 &图1
首先，我们要找到聊天窗口，其实现代码如下。
char WindowBuffer[MAX_PATH]; //存放窗口名的缓冲区 sprintf(WindowBuffer,"与 %s 聊天中",NickNameEdit-&Text); HANDLE hWindow = FindWindow(NULL,WindowBuffer); //查找窗口 if( hWindow == NULL ) { Show("抱歉，没有找到此聊天窗口!");
这样，我们就得到了聊天窗口的句柄h，然后就可以开工编写轰炸的代码了。
this-&Hide();&&&&&&&& //隐藏窗口，没必要显示 for(int i=1;i&=StrToInt(TimesEdit-&Text);i++) {//因为编辑框里面默认都是String类型，所以我们要通过StrToInt将轰炸次数转换成int型才能在循环中使用它 WordMemo-&SelectAll();&&&&&&& //选中全部语句 WordMemo-&CopyToC&&&&&&& //将其拷贝到剪贴板 SetForegroundWindow(hWindow); //将聊天窗口激活使其得到键盘焦点 StartBomb(); //调用炸弹函数开始轰炸 Sleep(StrToInt(FrequentEdit-&Text)); //暂停一段时间后继续下一个循环 } this-&Show();&&&&&&&& //执行完毕后显示窗口
其中，StartBomb()函数的代码如下。
void __fastcall TMainForm::StartBomb(void) { keybd_event(VK_CO***OL,0,0,0); //模拟按下Ctrl键 keybd_event(V,V,0,0);&&&&&&&& //模拟按下V键，必须为大写 keybd_event(V,V,KEYEVENTF_KEYUP,0); //模拟放开V键 keybd_event(VK_CO***OL,0,KEYEVENTF_KEYUP,0); //模拟放开Ctrl键 keybd_event(VK_CO***OL,0,0,0); keybd_event(VK_RETURN,0,0,0); //模拟按下Enter键 keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0); keybd_event(VK_CO***OL,0,KEYEVENTF_KEYUP,0); }
这样一个QQ炸弹的就已经出炉了，记住，它只是个模型。如果要做好一个的话，绝不仅仅是可以用了就成，我们还需要考虑用户的友好性、程序的完善性等等，限于篇幅就不多废话了。由于时间限制，我做这个测试炸弹的时候也没有更多地进行优化，对于“炸QQ群”的功能与以上原理是一样的，只要能找到其窗口就可以了。关于托盘图标，我们可以使用BCB自带的TrayIcon控件（在Samples页），然后简单设置一下属性就可以使用了，很方便。 这个程序有一个BUG，就是编码问题。如果要发送的字符是中文的话，它发送到聊天窗口中就变成了乱码，限于时间原因，我没能找出真正的解决方法。不过在尝试解决它的过程中却学到了操作剪贴板的方法，因为CopyToClipboard()只是BCB中的一个成员函数，在其他地方不能直接使用，我们可以通过一系列的函数来实现这种功能，下面给出一段实例代码。
AnsiS&&&&&&& //保存要拷贝的字符 OpenClipboard(NULL); //打开系统剪贴板 EmptyClipboard(); //使用之前要先清空剪贴板 HGLOBAL hClipD& //分配一段内存，大小等于要复制的的大小 hClipData = //protect/201009/GlobalAlloc(GMEM_DDESHARE,buffer.Length()+1); char *pchD&& //内存控制句柄加锁 pchData = /network/protect/201009/(char *)GlobalLock(hClipData); strcpy(pchData,buffer.c_str());& //将变量值赋给全局内存 GlobalUnlock(hClipData);& //给内存控制句柄解锁 SetClipboardData(CF_TEXT,hClipData); //通过全局内存句柄将数据以相应的格式放进剪贴板 CloseClipboard(); //使用完后记得关闭剪贴板
这段代码通常用来完成进程间通信等功能，由于其使用简单，容易理解，所以用处还是比较广泛的。 最后说一点有关BCB的小。 1）默认情况下，你会发现它生成的可执行程序很小，但却不能在没有***BCB或Delphi的机器上运行，此时我们需要设置一下，在“project-&Options-&Compiler”中点击“Release”，在“project-&Options-&s”中取消“Builder with runtime packages”的勾，在“project-&Options-&Linker”中取消“Use dynamic RTL”前的勾。 2）更换BCB自带的图标，点击“Project-&Options-&Application-&LoadIcon”，目标必须是ico格式。 3）如果你是BCB的初学者的话，推荐《C++ Builder初学问与答》这一系列，基本上对BCB中所有的常用控件都做了详细的说明，非常有用99炮捕鱼机价格--QQ炸弹_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
99炮捕鱼机价格--QQ炸弹
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢