鬼仔's Blog

来源：灰狐's Blog

注：本文已发表在2007年《黑客防线》第10期，版权归《黑客防线》所有。

俗话说的好啊：不会编程的黑客就不是好黑客（我会编程，但我也不是黑客，因为我是个——程序员，哈哈）。今天呢我们就来亲自动手打造一个专属于自己的小工具。
我们要做的是一个QQ炸弹，这年头用QQ的人实在多。这林子大了可是什么鸟都有，当然其实我们今天做这个工具的威力并不是很大，顶多只能和好友聊天的时候骚扰一下。思路很简单，就是通过程序不停地模拟按键Ctrl+Enter自动发送消息，不过当我们做成的时候心里自然也会有那么一种满足和喜悦。
编程工具的选择其实很重要，像这样的小东东如果用VC来做那真不是一般地麻烦，什么？你说delphi很快？那倒是，不过会pascal的肯定没会C的人多吧。就拿我们学校来说，基本对于所有的理工专业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属性设置为“轰炸好友”，其余控件就根据我的图片(没法传图，不放了，看黑防吧)来放吧，当然您也可以自己发挥创造性弄个更漂亮的界面。
从上到下三个编辑框（Edit控件）的Name属性依次为NcikNameEdit，FrequentEdit，TimesEdit，最下面是个Memo 控件，Name属性设置为WordMemo，好了，下面就用代码说话吧。（代码侧重程序实现原理，有所删减，完整工程及代码文件已经打包）
首先我们要找到聊天窗口：
char WindowBuffer[MAX_PATH]; //存放窗口名的缓冲区
sprintf(WindowBuffer,"与 %s 聊天中",NickNameEdit->Text);
HANDLE hWindow = FindWindow(NULL,WindowBuffer); //查找窗口
if( hWindow == NULL )
{
ShowMessage("抱歉，没有找到此聊天窗口!");
return;
}
这样我们得到了聊天窗口的句柄hWindows，然后就可以开工编写轰炸的代码了。
this->Hide(); //隐藏窗口，没必要显示
for(int i=1;i<=StrToInt(TimesEdit->Text);i++)
{ //因为编辑框里面默认都是String类型，所以我们要通过StrToInt将
//轰炸次数转换成int型才能在循环中使用它

WordMemo->SelectAll(); //选中全部语句
WordMemo->CopyToClipboard; //将其拷贝到剪贴板
SetForegroundWindow(hWindow); //将聊天窗口激活使其得到键盘焦点
StartBomb(); //调用炸弹函数开始轰炸
Sleep(StrToInt(FrequentEdit->Text)); //暂停一段时间后继续下一个循环
}
this->Show(); //执行完毕后显示窗口
其中StartBomb()函数的代码如下：
void __fastcall TMainForm::StartBomb(void)
{
keybd_event(VK_CONTROL,0,0,0); //模拟按下Ctrl键
keybd_event('V','V',0,0); //模拟按下V键，必须为大写
keybd_event('V','V',KEYEVENTF_KEYUP,0); //模拟放开V键
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); //模拟放开Ctrl键
keybd_event(VK_CONTROL,0,0,0);
keybd_event(VK_RETURN,0,0,0); //模拟按下Enter键
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
}
关于keybd_event()的详细用法网上有很多，还有模拟鼠标事件的相关函数。
这样一个QQ炸弹的模型就已经出炉了，记住：它只是个模型。如果要做好一个软件的话，绝不仅仅是可以用了就成，我们更需要考虑用户的友好性、程序的完善性等等，限于篇幅就不多废话了。由于时间限制，我做这个测试炸弹的时候也没有更多地进行优化，对于“炸QQ群”的功能与以上原理是一样的，只要能找到其窗口就可以了。关于托盘图标，我们可以使用BCB自带的TrayIcon控件（在Samples页），然后简单设置一下属性就可以使用了，很方便。
这个程序有一个BUG，是编码问题。如果要发送的字符是中文的话它发送到聊天窗口中就变成了乱码，限于时间原因我没能找出真正的解决方法。不过在尝试解决它的过程中却学到了操作剪贴板的方法，因为那个CopyToClipboard()只是BCB中的一个成员函数，在其他地方不能直接使用，我们可以通过一系列的函数来实现这种功能，下面给出一段实例代码：
AnsiString buffer; //保存要拷贝的字符
OpenClipboard(NULL); //打开系统剪贴板
EmptyClipboard(); //使用之前要先清空剪贴板
HGLOBAL hClipData; //分配一段内存，大小等于要复制的字符串的大小
hClipData = GlobalAlloc(GMEM_DDESHARE,buffer.Length()+1);
char *pchData; //内存控制句柄加锁
pchData = (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->Packages中取消 Builder with runtime packages的勾，在project->Options->Linker中取消Use dynamic RTL前的勾。
2，更换BCB自带的图标，Project/Options/Application/LoadIcon，目标图片必须是ico格式。
3，如果您是BCB的初学者的话，我推荐《C++ Builder初学问与答》这一系列文章，基本上对BCB中所有的常用控件都做了详细的说明，非常有用。