求C语言编写的表白程序，要代码

#define IdYes 1002

#define IdNo 1003

#define IdStatic 1004

#define IdTimer 1005

#define Width 640

#define Height 480

#define Tick 2000

#include<windowsh>

int x,y;

RECT rdesk;

HINSTANCE hinst;

HWND hyes,hno;

BOOL quit=FALSE;

LRESULT CALLBACK WndProc(HWND hwnd,UINT Message,WPARAM wParam,LPARAM lParam)

{

HDC hdc;

PAINTSTRUCT ps;

RECT rclient;

HBRUSH hbrbkgnd;

static COLORREF c;

static BYTE r,g,b;

switch(Message)

{

case WM_TIMER:

if(IdTimer==LOWORD(wParam))

{

r=(BYTE)(rand()%256);

g=(BYTE)(rand()%256);

b=(BYTE)(rand()%256);

c=RGB(r,g,b);

InvalidateRect(hwnd,NULL,TRUE);

UpdateWindow(hwnd);

}

break;

case WM_PAINT:

hdc=BeginPaint(hwnd,&ps);

hbrbkgnd=CreateSolidBrush(c);

SelectObject(hdc,hbrbkgnd);

GetClientRect(hwnd,&rclient);

FillRect(hdc,&rclient,hbrbkgnd);

DeleteObject(hbrbkgnd);

EndPaint(hwnd,&ps);

break;

case WM_COMMAND:

switch(LOWORD(wParam))

{

case IdYes:

quit=TRUE;

MessageBox(hwnd,TEXT("回答正确，太太太好了！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);

SendMessage(hwnd,WM_CLOSE,0,0);

break;

case IdNo:

MessageBox(hwnd,TEXT("回答错误哦，我很生气呢！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);

break;

}

break;

case WM_SIZE:

case WM_MOVE:

SetWindowPos(hwnd,HWND_TOPMOST,x,y,Width,Height,SWP_SHOWWINDOW);

break;

case WM_DESTROY:

PostQuitMessage(0);

break;

case WM_CLOSE:

if(quit)

{

KillTimer(hwnd,IdTimer);

DestroyWindow(hwnd);

}

break;

case WM_CREATE:

CreateWindow(TEXT("Static"),

TEXT("请回答：做我女朋友好吗？"),

WS_CHILD|WS_VISIBLE|SS_CENTER,

200,

200,

240,

20,

hwnd,

(HMENU)IdStatic,

hinst,

NULL

);

hyes=CreateWindow(TEXT("Button"),

TEXT("好"),

WS_CHILD|WS_VISIBLE|BS_CENTER,

270,

230,

45,

20,

hwnd,

(HMENU)IdYes,

hinst,

NULL

);

hno=CreateWindow(TEXT("Button"),

TEXT("不好"),

WS_CHILD|WS_VISIBLE|BS_CENTER,

325,

230,

45,

20,

hwnd,

(HMENU)IdNo,

hinst,

NULL

);

SetTimer(hwnd,IdTimer,Tick,NULL);

break;

default:

return DefWindowProc(hwnd,Message,wParam,lParam);

}

return 0;

}

int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)

{

WNDCLASSEX wc;

HWND hwnd;

MSG msg;

hinst=hInstance;

srand(time(NULL));

memset(&wc,0,sizeof(wc));

wccbSize=sizeof(WNDCLASSEX);

wclpfnWndProc=WndProc;

wchInstance=hInstance;

wchCursor=LoadCursor(NULL,IDC_ARROW);

wchbrBackground=(HBRUSH)(COLOR_WINDOW+1);

wclpszClassName=TEXT("WindowClass");

wchIcon=LoadIcon(NULL,IDI_APPLICATION);

wchIconSm=LoadIcon(NULL,IDI_APPLICATION);

if(!RegisterClassEx(&wc))

{

MessageBox(NULL,TEXT("窗口注册失败！"),TEXT("错误"),MB_ICONEXCLAMATION|MB_OK);

return 0;

}

GetWindowRect(GetDesktopWindow(),&rdesk);

x=(rdeskright-Width)/2;

y=(rdeskbottom-Height)/2,

hwnd = CreateWindowEx(WS_EX_TOPMOST,

TEXT("WindowClass"),

TEXT("I Love You"),

WS_THICKFRAME|WS_VISIBLE,

x,

y,

Width,

Height,

NULL,NULL,hInstance,NULL);

if(NULL==hwnd)

{

MessageBox(NULL,TEXT("窗口创建失败！"),TEXT("错误！"),MB_ICONEXCLAMATION|MB_OK);

return 0;

}

while(GetMessage(&msg,NULL,0,0)>0)

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return msgwParam;

}

截图

　　1所有的言语都是苍白无力的，我选择在沉默中等待你的归来！也许上天能让这一刻停留，我能再一次牵住你的手…

　2愿你迷路一生，还是走到我身旁。

　3你的身影令我着迷，你的视线让我沉醉，心中盼望着与你牵手，享受有你的甜蜜。任凭时光流转，不变的是对你的深情。亲爱的，嫁给我，让我们一直走下去。

　4你对象这个位置，我想牢牢坐一辈子。

　5又是到了夜深人静的半夜，思索了好久我们之间的爱情，对你的情感似乎永远也放不下，这么晚了你在想我吗我还在这打着讯息想告诉你，我好想你。

　6恋爱就像一场游戏，游戏完毕了，只剩我。

　7正是在不尽的思念中，人的感情才得到了净化和升华。没有距离，便没有思念。当轮船的汽笛拉响，当火车的汽笛长鸣，当汽车的轮子开始转动，当飞机冲击跑道腾空而起，思念便开始了。

　8如果你是玫瑰花，那我情愿做一滴晨曦的雨露滋润着你绽放，当我迎着阳光走完生命最后的一刻，我不求回报，我要的只是百花齐放时你绽放的灿烂的微笑！

　9伴随着不尽的思念而来的必然是漫长的等待。美国女诗个狄金森说：等待一万年不长，如果终于有爱作为补偿。这真也可以说是一种思念中的忠贞与豁达。

　10滴不尽相思血泪抛红豆，开不完春柳春花满画楼。

　11你有地图么因为我刚在你的眼神中迷失了。

　12静静消失在人海里面，不让谁看见！想念是会呼吸的痛，瞬间蒸发，就让不可能的是也随至分散

　13爱可以简简单单，但不能随随便便，我的微笑可以给任何人，但我的心只能给一个人。

　14想念细成一条虚线，断断续续，记录着跟青春有关的爱与伤。我知道，我记得和你有关的痕迹，我更记得，我努力且勇敢的对自己承诺过。

　15有些人不能爱、不能恨，而且还忘不掉。

　16我曾做过最好的事就是对你一如既往的坚持。

　17梦里有你，香甜无比；心里有你，充实无比；身边有你，幸福无比。

　18如果你愿意一层一层一层地剥开我的心，你会发现里面有糖葫芦，饼干，草莓糖，巧克力，薯片，牛奶糖，还有你。

　19请你张开你心的耳朵，倾听我诉说的爱恋，即使天崩地裂时光转换，我的情意也永远不会改变，给你的诺言重复千遍，陪你要把天涯走遍！

　20全世界都在赌球，只有我在赌你会不会喜欢我。

　1、

　　CreateObject("SAPISpVoice")Speak "一生中不可错过的十种贵人：1、愿意无条件力挺你的人;2、愿意唠叨你的人;3、愿意和你分担分享的人;4、教导及提拔你的人;5、愿意欣赏你的长处的人;6、愿成为你的榜样的人;7、愿意遵守承诺的人; 8、愿意不放弃而相信你的人;9、愿意生你气的人;10、愿意为你的人。"

　　2、

　　CreateObject("SAPISpVoice")Speak "My heart will go on You jump, I jump"

　　当然，我们需要注意的是，这样的小玩意也许太过简单了，所以电脑无法分辨各种中英文标点符号，在遇到标点符号以及空格等地方，也只会做简短的停顿，要它进行表白的时候，大家可要掌握它的习性，注意好停顿的技巧哦。

　　最后需要提醒大家的是，这样的脚本同时还支持阿拉伯数字和英文发音，读英文的句子也可以，然而可能笔者所用的是中文windows版本，在英文阅读上的清晰程度还是不如中文的发音要好。

　　虽然这样的一个小玩意相对而言有点儿戏，但要是运用时机恰当，可能是能够给对方一个目瞪口呆的效果，事实上除了对心仪对象表白以外，这样的一个小玩意还能够用在不少场合里面，同时这还是被不少网友笑称是一个能够判断你的电脑“性别”的工具，只要根据电脑发音的是男生还是女声就能识别。