QQ2000 的聊天室刷屏机设计技术

原创 2001年06月27日 20:16:00
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.

聊天室的设计

前瞻:刚开始来到公司的时候,运气比较好,正好gongs
  • lixiucheng005
  • lixiucheng005
  • 2014年06月27日 14:55
  • 1145

终于弄懂了聊天室的各种技术了

主要分为推技术和拉技术,推技术主要是通过client-server机制,拉技术主要是客户端发送请求,服务器返回相应的application或者从database中提取相应数据,一般来说都用的是拉技术,...
  • TJUsecretfish
  • TJUsecretfish
  • 2005年11月12日 11:42
  • 961

聊天室服务分析设计

聊天室服务分析设计 2013-03-05 09:52 by 轩脉刃, 3913 阅读, 21 评论, 收藏, 编辑 如果你需要写一个简单的聊天室的服务,那么我想很多网上的demo都可以直接...
  • pi9nc
  • pi9nc
  • 2013年12月25日 18:53
  • 2327

java聊天室设计及实现

这个是我大二刚开始学java时做的东西,是一个聊天室,运行服务器,注册两个客户端,登录后客户端之间可以进行文字聊天,有群发功能。 然后我讲讲是怎么实现的: 调用ServerSocket来创建绑定在...
  • ye15700786134
  • ye15700786134
  • 2017年08月31日 14:47
  • 308

简单又好用的聊天室技术——WebSocket

现在,很多网站为了实现推送技术,所用的技术都是轮询。轮询是在特定的的时间间隔(如每1秒),由浏览器对服务器发出HTTP request,然后由服务器返回最新的数据给客户端的浏览器。这种传统的模式带来很...
  • yan_fang
  • yan_fang
  • 2016年05月13日 22:02
  • 1111

linux系统下实现聊天室

目标:  linux系统下实现聊天室 (1)在Linux系统下,使用TCP协议套接字编程; (2)服务器应具有处理多个客户端连接能力(设定最大连接数,如5个); (3)具有群发和私聊的能力; (4)过...
  • w1143408997
  • w1143408997
  • 2016年01月18日 11:24
  • 1590

基于linux的TCP网络聊天室设计与实现

利用Linux实现基于TCP模式的网络聊天程序 主要完成的两大组成部分为:服务器和客户端。 服务器程序主要负责监听客户端发来的消息。 客户端需要登录到服务器端才可以实现正常的聊天功能。该程序是利用进...
  • qq_35260622
  • qq_35260622
  • 2016年06月12日 09:12
  • 5187

Live:主流技术构建即时聊天室演示应用,直播源码

Live :服务端采用 RTMP(Nginx), WebSocket(Socket.io),客户端 VideoCore+IJKPlayer 构建即时聊天室演示应用。 这个项目是为了演示如何建立一个现场...
  • ai_ma_ai
  • ai_ma_ai
  • 2016年07月19日 10:30
  • 566

网页聊天室制作步骤分享

结合网页与Asp来实现一个简单的网页聊天室制作案例,有在线聊天、在线人员名单、在线时间等功能。在这篇教程的最后,还比较详细地介绍了Flash与Asp结合使用的平台环境和常用的调试手段。 一、原理 ...
  • qijizg
  • qijizg
  • 2014年11月05日 19:48
  • 1212

基本模型机的设计与实现课程设计报告

一、实验基本任务1、由基本单元电路构成一台基本模型机。2、设计五条机器指令,并编写相应的微程序。3、调试指令和模型机使其在微程序的控制下自动产生各部件单元的控制信号正常工作。二、设计方案1、硬件设计(...
  • maria87328
  • maria87328
  • 2008年01月13日 11:22
  • 5431
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:QQ2000 的聊天室刷屏机设计技术
举报原因:
原因补充:

(最多只允许输入30个字)