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

"),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...
求C语言编写的表白程序,要代码
呃,你还不如用vbs,网上也有一堆教程和例子,很简单,随便看一下就知道怎么写了。
Dim myName,herName,myNameAns,herNameAnsmyName="池早早"herName="欧浩辰"MsgBox(herName+",我喜欢你!我的脑和心,我全身上下每一个器官都在说着我喜欢你。")doherNameAns=InputBox("我喜欢谁?","某人的名字")loop while herNameAns<>herNamedomyNameAns=InputBox("谁喜欢"+herName+"?","某人的名字")loop while myNameAns<>myNamedomyNameAns=InputBox("大声点我听不见!","你的名字")loop while myNameAns<>myNameMsgBox(herName+",这是我为你准备的药,你趁热吃吧!").........................保存为xxx.vbs文件就能运行了
2018-11-09
#define IdYes 1002#define IdNo 1003#define IdStatic 1004#define IdTimer 1005#define Width 640#define Height 480#define Tick 2000#include<windows.h>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));wc.cbSize=sizeof(WNDCLASSEX);wc.lpfnWndProc=WndProc;wc.hInstance=hInstance;wc.hCursor=LoadCursor(NULL,IDC_ARROW);wc.hbrBackground=(HBRUSH)(COLOR_WINDOW+1);wc.lpszClassName=TEXT("WindowClass");wc.hIcon=LoadIcon(NULL,IDI_APPLICATION);wc.hIconSm=LoadIcon(NULL,IDI_APPLICATION);if(!RegisterClassEx(&wc)) {MessageBox(NULL,TEXT("窗口注册失败!"),TEXT("错误"),MB_ICONEXCLAMATION|MB_OK);return 0;}GetWindowRect(GetDesktopWindow(),&rdesk);x=(rdesk.right-Width)/2;y=(rdesk.bottom-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 msg.wParam;}
截图

2018-11-12
说实话,这种表白不仅没有用还会起到反作用-
真要试,c的不会,你可以试试 新建文件 xxx.cmd,输入start cmd,保存,执行。2018-11-09
mengvlog 阅读 7 次 更新于 2025-07-21 03:53:51 我来答关注问题0
檬味博客在线解答立即免费咨询

代码相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部