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.

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

如不能下载,可以到我主页上下载最新版本炎龙上网计时器。 下载地址: http://su1kun.533.net/soft/net.exe 上网计时软件 老版本本软件可在 http://grzy.ayinfo.ha.cn/moyun/sukun/soft/yanlong.exe 下载 可以计时提醒,另送刷屏(可以在不允许使用粘贴键聊天室中公开刷屏-----新牵手也可以用 qq也可以用-----先选要对谁说话然后选[对话模式]然后点按回车发言,就可以用本刷屏qq)另送标题及首页修改! 软件有什么问题或有什么不好用或待改进地方或你有什么新想法都可以通过e-mail告诉我! 下载地址:yanlong.363.net 找 炎龙上网计时器全面更新(正式免费版) 送聊天室(QQ)刷屏 炎龙上网计时器全面更新(正式免费版) 要下载请到 http://yanlong.363.net http://grzy.ayinfo.ha.cn/hwtcn/ 要看软件界面请到 http://sukun.3322.net/ad.htm 另送聊天刷屏(本软件可在不允许使用粘贴鍵聊天室中使用)和IE首页修改及标题修改正式版。 先看再下载 升级注意事项: 年初一新版: 如果你器中装有本软件老版本。当你下载新版后,可直 接安装,但要安装到同一目录。然后重启计算,这样软件就 会继承原有数据了!如还有问题,请与我联系或到本站BBS 上提出!由于特殊原因,本站BBS现关闭,将在最近几天内 重开。 Oicq(QQ):35666622 E-mail: yanlong8@371.net 本软件在原有功能上又增添了设置每天计划上网时间,到 时提醒及现在上网占每月百分比。每正了以前了几个bug 现在本软件计间都采用时分,不再只用分了。 本软件为中文版共享软件,并且简单易用。 本软件有以下优点: 1、对每天上网时间,每月上网时间,总上网时间等一目了然。 2、可以设置每天上网时间及每月计划上网时间,一间一到本软件   会自动对你进行提醒。 3、本软件可设置存盘时间。现在大多数计时软件都是每一分钟或   不到一分钟就存一次盘。这样不但浪费了系统资源而且会对你   硬盘造成损害。本软件注意到了这个问题。你可以选你适合   你一个时间。(5分/30分/1小时) 4、本软件有计时基数功能。这也是一般其它软件所没有。为什么要   设一个基数呢?什么是基呢?简单说就是每次上网计时起   始数。现在上网软件都是从正式接入互联网开始计时。   而电信部门是从开始拨号计时。这个基数就是要把从拨号到   接入互联网这个时间差给加上,使软件计时更加准确。 点击本软件[查看设置]选项卡。 1、点击查看上网一览表便可以查看以前上网历史。 2、点击设置,便会出现设置窗口。   第一项为存盘时间,你可以根据自己情况选抬起。   第二项为选基,视当地情况及器而定,一般设为1分钟就行了。   第三项为每月计划上网时间,总时间超过这个时间,本软件就      会自动进行提醒。   第四项为每天计划上网时间,每天上网总时间超过这个时间,本      软件就会自动进行提醒。 在以后我版本中我会向以下方向发展本软件: 1、增加声音提示。 2、增加邮箱管理。 3、增加网络数据上下行统计。 4、在不降低质量情况下,尽量减下本软件体积。 5、增加点对点运程通讯。 6、增加病毒监测。 上網計時器更新[貼圖] [b]如果你現在使用是V9.0Th 以前版本,請立即更新[/b] 采用計算時間方法。 每次上網時間誤差絕不會大于0.5秒. [URL=http://grzy.ayinfo.ha.cn/hwtcn/]http://grzy.ayinfo.ha.cn/hwtcn/[/URL] [URL=http://yanlong.363.net]http://yanlong.363.net[/URL] 圖片在以下網址: [IMG]http://sukun.3322.net/ad.gif[/IMG]
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值