QQ2000 的聊天室刷屏机设计技术
program chat2001;
uses
windows,messages,sysutils;
{$R *.RES}
const
CRLF=#13#10;
exename:pchar='刷屏机器人 2001';
var
//----------------------
wClass: TWndClass; //窗口类变量
Msg: TMSG; //消息变量
hInst, //程序实例
Handle, //主窗口句柄
hFont, //字体句柄
//----------------
hButtonStart, //开始按钮
hButtonStop, //停止按钮
hButtonHelp, //帮助按钮
hButtonExit, //退出按钮
hEditEmail, //e-mail编辑
hLabelEmail, //e-mail提示
mcount,tempwnd,qqmainw,richedit:integer;
lp:longint;
newtime:integer;
//--------------------
//往一个窗口写标题
procedure WriteCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_SETTEXT,0,integer(text));end;
//从一个窗口读标题
procedure ReadCaption(hwnd:hwnd;text:pchar);begin sendmessage(hwnd,WM_GETTEXT,400,integer(text));end;
procedure ButtonHelp;
var s1:string;
begin
s1:='本软件只用学习用,不可害人'+CRLF+
'程序向QQ2000B的输入框中输入文字并发送!'+CRLF+
'详细资料,及源码在作者主页上'+CRLF+
'主页:hotsky.363.net'+CRLF;
messagebox(handle,pchar(s1),'帮助',0);
end;
//主程序结束
procedure ShutDown;
begin
//删除字体对象
DeleteObject(hFont);
//取消窗口类的注册
UnRegisterClass(wClass.lpszClassName,hInst);
//结束主进程
ExitProcess(hInst);
end;
procedure ontimer;
var
len:integer;
str:array[0..500] of char;
begin
inc(mcount);
//strcopy(str,pchar(format('我是 %d 号刷屏机器人......',[mcount])));
readCaption(heditemail,str);
if (mcount mod 2)<>0 then
begin
len:=strlen(str);
str[len]:=' ';
str[len+1]:=#0;
end;
qqmainw:=FindWindow('AfxFrameOrView42s',nil);
qqmainw:=FindWindowEx(qqmainw,0,'AfxMDIFrame42s',nil);
qqmainw:=FindWindowEx(qqmainw,0,'AfxFrameOrView42s',nil);
qqmainw:=GetNextWindow(qqmainw,GW_HWNDNEXT);
qqmainw:=FindWindowEx(qqmainw,0,'#32770',nil);
richedit:=FindWindowEx(qqmainw,0,'RICHEDIT',nil);
SendMessage(richedit,EM_SETSEL,0,-1);
SendMessage(richedit,EM_REPLACESEL,1,integer(@str));
PostMessage(richedit,WM_KEYDOWN ,VK_RETURN,$001c0001);
PostMessage(richedit,WM_KEYUP,VK_RETURN,$c01c0001);
end;
//这是主窗口的消息处理函数
function WindowProc(hWnd,Msg,wParam,lParam:integer):Longint; stdcall;
begin
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
case Msg of
WM_COMMAND:
begin
if lParam=hButtonStart then begin mcount:=0;newtime:=SetTimer(handle,100,3000,nil); end;
if lParam=hButtonStop then begin mcount:=0;killtimer(handle,newtime); end;
if lParam=hButtonHelp then ButtonHelp;
if lParam=hButtonExit then ShutDown;
end;
WM_TIMER:ontimer;
WM_DESTROY: ShutDown;
end;
end;
//定义几个窗口创建函数
function CreateButton(name:pchar;x1,y1,x2,y2:integer):hwnd;begin Result:=CreateWindow('Button',name,WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,x1,y1,x2,y2,Handle,0,hInst,nil);end;
function CreateEdit(name:pchar;x1,y1,x2,y2:integer):hwnd;begin Result:=CreateWindowEx(WS_EX_CLIENTEDGE,'Edit',name,WS_VISIBLE or WS_CHILD or ES_LEFT or ES_AUTOHSCROLL,x1,y1,x2,y2,Handle,0,hInst,nil);end;
function CreateLabel(name:pchar;x1,y1,x2,y2:integer):hwnd;begin Result:=CreateWindow('Static',name,WS_VISIBLE or WS_CHILD or SS_LEFT,x1,y1,x2,y2,Handle,0,hInst,nil);end;
function CreateMain(name:pchar;x1,y1,x2,y2:integer):hwnd;
begin
//取得应用程序实例句柄
hInst:=GetModuleHandle(nil);
//初使化窗口类的信息
with wClass do
begin
Style:= CS_PARENTDC;
hIcon:= LoadIcon(hInst,'MAINICON');
lpfnWndProc:= @WindowProc;
hInstance:= hInst;
hbrBackground:= COLOR_BTNFACE+1;
lpszClassName:= 'MainClass';
hCursor:= LoadCursor(0,IDC_ARROW);
end;
// 注册窗口类
RegisterClass(wClass);
// 建立主窗口
Result:=CreateWindow(wClass.lpszClassName,name,WS_OVERLAPPEDWINDOW or WS_VISIBLE,x1,y1,x2,y2,0,0,hInst,nil);
end;
function EnumChildProc(hwnd:integer;uint:integer):bool;
var classname,c2:array[0..100] of char;
hp:integer;
begin
if hwnd<>0 then
begin
hp:=hwnd;
//hp:=getparent(hwnd);
// hp:=getparent(hp);
// hp:=getparent(hp);
// hp:=getparent(hp);
writeCaption(hlabelemail,pchar(format('%x',[hp])));
end;
// GetClassName(hwnd,classname,100);
// GetClassName(hp,c2,100);
// if (strcomp(classname,pchar('RICHEDIT'))=0) and (strcomp(c2,pchar('AfxFrameOrView42s'))=0) then richedit:=hwnd;
result:=true;
end;
//---------主过程,类似于 C语言 中的 WinMain()
begin
//建立主窗口
handle:=CreateMain(exename,0,0,384,140);
//建立四个控制按钮
hButtonStart:=CreateButton('开始刷屏',300,4+26*0,70,24);
hButtonStop:=CreateButton('停止刷屏' ,300,4+26*1,70,24);
hButtonHelp:=CreateButton('帮 助' ,300,4+26*2,70,24);
hButtonExit:=CreateButton('退 出' ,300,4+26*3,70,24);
//建立两个编辑框
hEditEmail:=CreateEdit('我是刷屏机器人1.0',4,26,286,80);
//建立三个标签
hLabelEmail:=CreateLabel('刷屏信息:',4,8,286,16);
//创建字体对象
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(hButtonHelp,WM_SETFONT,hFont,0);
SendMessage(hButtonExit,WM_SETFONT,hFont,0);
SendMessage(hEditEmail,WM_SETFONT,hFont,0);
SendMessage(hLabelEmail,WM_SETFONT,hFont,0);
//进入消息循环
while(GetMessage(Msg,Handle,0,0))do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
QQ2000 的聊天室刷屏机设计技术相关推荐
- 【完整代码及文档】基于Java的网络聊天室系统的设计与实现
摘 要 计算机从出现到现在有了飞速的发展,现阶段的计算机已经不单单是用于进行运算的独立的个体了,跟随计算机一同发展的还有互联网技术,经过了长久的发展,互联网技术有了日新月异的发展,它的发展速度和计算机 ...
- php聊天室的设计实现,基于PHP的Ajax聊天室系统的设计与实现
第7卷 第20期 2007年10月167121819(2007)2025396204 科 学 技 术 与 工 程 Science Technol ogy and Engineering Vol .7 ...
- 【通信协议及编码】实验3:MFC框架下聊天室客户机与服务器程序
文章目录 一.实验目的 二.实验环境 三.实验内容 一.实验目的 掌握MFC套接字编程方法 借助VS2016的MFC应用程序向导创建程序框架: 从CSocket类派生用户自定义的套接字类: 通过CAr ...
- c语言课程设计 聊天室,网络聊天室C课程设计
网络聊天室C课程设计 网络聊天室C课程设计 using System.Reflection; using System.Runtime.CompilerServices; [assembly: Ass ...
- 聊天室系统测试用例设计及报告
一.测试用例设计 1.注册功能 题目:用户注册 前提条件:已经存在三个用户,用户名分别为a,b,c,密码都为123,昵称分别为刘欢,王琦和小芳 需求:用户名和密码是必填项,昵称和用户名可以是数字.字母 ...
- 基于微信小程序的聊天室源码设计实践
对于聊天这个功能模块,真实的情况下都是集成第三方去做,开发起来比较快而且简单,对于学生来说设计这个用第三方是不合适的 下面给大家带来一套自己设计的小程序聊天 这个重在数据库设计 CREATE TABL ...
- 【毕业设计】Java局域网聊天室系统的设计与实现
点击免费下载源码 视频聊天系统作为一种新型的通信和交流工具,突破了地域的限制,可以提供更为便捷.灵活.全面的音.视频信息的传递和服务,具有极其广泛的发展前景. 介绍了采用JAVA编程开发视频聊天系统的 ...
- JAVA基于局域网的聊天室系统的设计与实现
本文介绍了采用JAVA编程开发视频聊天系统的一套比较常用的解决方案.文字聊天采用TCP模式:语音视频聊天采用UDP模式,在客户端之间点对点的进行.在该方案中,通过函数库VFW来实现视频捕获.影像压缩以 ...
- 技术干货 | 网易云信大规模聊天室系统架构解析
导读:聊天室是一类非常重要的 IM 系统,不同于单聊和群聊,聊天室是一种大规模的实时消息分发系统.本文我们来详细介绍一下网易云信大规模聊天室系统的具体架构以及实践应用案例. 文|曹佳俊 网易云信资深服 ...
- 基于Java socket的网络聊天室的设计与实现
目 录 摘要 I Abstract II 目 录 III 1 引言 1 2 网络聊天室的简介 2 2.1网络聊天室现状和发展 2 3 完成网络聊天室的技术以及环境 4 3.1 Java的介绍 4 3. ...
最新文章
- 对比 5 种分布式事务方案,还是宠幸了阿里的 Seata(原理 + 实战)
- 协议森林08 不放弃 (TCP协议与流通信)
- MATLAB 2018a软件安装教程
- mysql运维管理-mysqldump 备份与恢复数据库20
- KD Tree的原理及Python实现
- python判断对错题_可以在线答题,并且能判断对错,将错题保存起来
- 类的加载器ClassLoader及其示例
- labview变量和C语言,LabVIEW
- 维软标准输入法 ALKATIP
- 工作学习办公软件助手集合
- 洛谷P1308统计单词数C语言
- 无Internet访问权限-已解决
- java数字猜大小游戏_Java之数字猜大小
- Android定制开机动画与logo
- Centos7 su: 鉴定故障Error解决方法
- 针对移动式和无线物联网设备的低压电机控制系统的设计
- 调频广播如何发明的?
- STM32F407探索者(正点原子的资料)(百度链接)
- 课后作业——Day9
- 请主动远离打击你自信的人