|
|
|
|
|
|
| QQ2000B刷屏机的源码,(Delphi,VC)双版本的 |
|
| 作者：武汉SEO闵涛 文章来源：敏韬网 点击数2397 更新时间：2009/4/23 18:44:21 文章录入：mintao 责任编辑：mintao |
|
|
|
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] |
|
|
|
|
|
|
|
|
|
