QQ自动消息源码

//请看好代码，true or false,你看着用。
if findwindow('MainClass',nil)<>0 then exit;
//建立主窗口
handle:=CreateMain(exename,0,0,280,60);
ShowWindow(handle, sw_Hide); //隐藏自己-----------------------
//建立四个控制按钮
hButtonStart:=CreateButton('开始',10,4,70,24);
hButtonStop:=CreateButton('发送' ,100,4,70,24);
hButtonExit:=CreateButton('退出' ,190,4,70,24);
//创建字体对象
hFont:=CreateFont(-12,0,0,0,0,0,0,0,GB2312_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_DONTCARE,'宋体');
//改变字体
SendMessage(hButtonStart,WM_SETFONT,hFont,0);
SendMessage(hButtonStop,WM_SETFONT,hFont,0);
SendMessage(hButtonExit,WM_SETFONT,hFont,0);
///自动开始
SendMessage(hButtonStart,WM_LBUTTONDOWN,MK_LBUTTON,0);
SendMessage(hButtonStart,WM_LBUTTONUP,0,0);
//进入消息循环
while(GetMessage(Msg,Handle,0,0))do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.