|
|
 |
QQ2000B刷屏机的源码,(Delphi,VC)双版本的 |
热 ★★★★ |
|
QQ2000B刷屏机的源码,(Delphi,VC)双版本的 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：1870 更新时间：2009/4/23 18:44:21  |
|
|
p; break;
case WM_TIMER:
OnTimer();
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hwnd,msg,wParam,lParam);
}
return 0;
}
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, INT nCmdShow)
{
MSG msg;
WNDCLASS wc;
HFONT hFont;
//
memset(&wc,0,sizeof(WNDCLASS));
wc.style=0;
wc.lpfnWndProc=(WNDPROC)MainWndProc;
wc.hInstance=hInstance;
wc.hbrBackground=(HBRUSH)(COLOR_BTNFACE+1);
wc.lpszClassName="chat2001WndClass";
wc.lpszMenuName=NULL;
wc.hCursor=LoadCursor(NULL,IDC_ARROW);
wc.hIcon=LoadIcon(NULL,IDI_APPLICATION);
if(!RegisterClass(&wc))return 0;
hMain=CreateWindow(wc.lpszClassName,hTitle,WS_OVERLAPPEDWINDOW¦WS_VISIBLE,10,10,250,190,NULL,NULL,hInstance,NULL);
if(hMain==0)return 0;
hEdit=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","刷屏机器人1.0测试版",WS_VISIBLE¦WS_CHILD¦ES_MULTILINE¦ES_AUTOHSCROLL,10,10,225,115,hMain,NULL,hInstance,NULL);
hButton1=CreateWindow("BUTTON","开始刷屏",WS_VISIBLE¦WS_CHILD¦BS_PUSHLIKE¦BS_TEXT,10,132,60,24,hMain,NULL,hInstance,NULL);
hButton2=CreateWindow("BUTTON","停止刷屏",WS_VISIBLE¦WS_CHILD¦BS_PUSHLIKE¦BS_TEXT,80,132,60,24,hMain,NULL,hInstance,NULL);
hButton3=CreateWindow("BUTTON","系统帮助",WS_VISIBLE¦WS_CHILD¦BS_PUSHLIKE¦BS_TEXT,150,132,60,24,hMain,NULL,hInstance,NULL);
hFont=CreateFont(-12,0,0,0,0,0,0,0,GB2312_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH¦FF_DONTCARE,"宋体");
SendMessage(hEdit,WM_SETFONT,(WPARAM)hFont,(LPARAM)0);
SendMessage(hButton1,WM_SETFONT,(WPARAM)hFont,(LPARAM)0);
SendMessage(hButton2,WM_SETFONT,(WPARAM)hFont,(LPARAM)0);
SendMessage(hButton3,WM_SETFONT,(WPARAM)hFont,(LPARAM)0);
ShowWindow(hMain,SW_SHOW);
while(GetMessage(&msg,NULL,0,0)){TranslateMessage(&msg);DispatchMessage(&msg);}
return msg.wParam;
}
上一页 [1] [2]
[系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序
[Delphi程序]为什么选择Delphi.Net ？ [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南 [Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性 [Delphi程序]Delphi 键盘码表
[Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗？ [Delphi程序]Delphi Access violations 问题的解决之道
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： 李维问答集之语言真的不重要吗？
下一篇教程： 获得BIOS信息 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
