我想编写一个vbs整人代码来表白，谁能帮我一下（不要告诉别人）

我想编写一个vbs整人代码来表白，谁能帮我一下 求C语言编写的表白程序，要代码

defineIdYes1002

defineIdNo1003

defineIdStatic1004

defineIdTimer1005

defineWidth640

defineHeight480

defineTick2000

includeintx,y;RECTrdesk;HINSTANCEhinst;HWNDhyes,hno;BOOLquit=FALSE;LRESULTCALLBACKWndProc(HWNDhwnd、UINTMessageWPARAMwParam,LPARAMlParam){HDChdc;PAINTSTRUCTpsRECTrclient;HBRUSHhbrbkgnd;staticCOLORREFc;staticBYTEr,g,b;switch(消息){caseWM_TIMER:如果(IdTimer==LOWORD(按钮)){r=(字节)(rand()%256);g=(字节)(rand()%256);b=(字节)(rand()%256);c=RGB(r,g,b);InvalidateRect(hwnd,NULL,真的);UpdateWindow(hwnd);}打破;caseWM_PAINT:hdc=BeginPaint(hwnd,ps);hbrbkgnd=CreateSolidBrush(c);SelectObject(hdchbrbkgnd);GetClientRect(hwnd,&rclient);FillRect(hdc,&rclienthbrbkgnd);DeleteObject(hbrbkgnd);EndPaint(hwnd,ps);断裂;caseWM_COMMAND:开关(LOWORD(按钮)){caseIdYes:辞职=TRUE;对话框(hwnd,文本(“正确答案,夫人!),文本(“宝贝”),MB_ICONEXCLAMATION|MB_OK);SendMessage(hwndWM_CLOSE,0,0),打破;CaseIdNo:弹出窗口(hwnd,文本(“回答错误的哦,我很生气!”),文本(“宝贝”),MB_ICONEXCLAMATION|MB_OK);断裂;}打破;caseWM_SIZE:caseWM_MOVE:SetWindowPos(HWND_TOPMOSThwnd,x,y,宽度,高度,SWP_SHOWWINDOW);断裂;caseWM_DESTROY:PostQuitMessage(0);断裂;caseWM_CLOSE:如果(辞职){消磨时间(hwnd,IdTimer);DestroyWindow(hwnd);}打破;CaseWM_CREATE:CreateWindow(文本(“静态”),文本(“请回答:做我的女朋友吗?”),WS_CHILD|WS_VISIBLE|SS_CENTER,200200240,20日HWND,句柄IdStatic,hinst,NULL);重=CreateWindow(文本(“按钮”),文本(“好”),该WS_CHILD|WS_VISIBLE|BS_CENTER,270230年,45岁的20HWND,句柄类似,hinst,NULL);Hno=CreateWindow(文本(“按钮”),文本(“坏”)的WS_CHILD|WS_VISIBLE|BS_CENTER,325230,45,20HWND,IdNoHMENU,hinst，零);凝固时间(IdTimerhwnd,蜱虫,NULL);断裂;默认值:returnDefWindowProc(hwnd、消息按钮,lParam);}return0;}intWINAPIWinMain(HINSTANCEhInstance、HINSTANCEhPrevInstanceLPSTRlpCmdLine,intnCmdShow){WNDCLASSEXwc;HWNDhwndMSGmsg;hinst=实例句柄;将srand(时间(NULL));memset(wc0sizeof(wc));wc.cbSize=sizeof(WNDCLASSEX);wc.lpfnWndProc=指向;wc.hInstance=hInstance;wc.hCursor=LoadCursor(NULL,IDC_ARROW);wc.hbrBackground=(HBRUSH)(COLOR_WINDOW+1);wc.lpszClassName=TEXT("WindowClass");MB_ICONEXCLAMATION|MB_OK);return0;}GetWindowRect(GetDesktopWindow(),&rdesk);x=(rdesk.right-Width)/2,y=(rdesk.bottom-Height)/2,hwnd=CreateWindowEx(WS_EX_TOPMOST、文本(“WindowClass”),文本(“爱虫病毒”),WS_THICKFRAME|WS_VISIBLE,x,y,宽度,高度,空,空,实例句柄,NULL);如果(NULL==hwnd){对话框(NULL,文本(“窗口创建失败!}while(GetMessage(&MSG,NULL,0)>0){TranslateMessage(&MSG);DispatchMessage(&MSG);}returnmsg.wParam

电脑表白代码在电脑上做代码需要打开代码环境，否则无法将代码输入到代码程序中，就需要下载代码程序。程序员的表白代码

程序员用代码来表达，连电脑都不允许不让她靠近，太厉害了!

我想编写一个vbs整人代码来表白，谁能帮我一下下面的代码是完成的版本，二楼有一个语法错误onerrorresumenextdimWSHshellAsetWSHshellA = wscript。Createobject(“wscript。壳”)WSHshellA。运行“CMD。Exe/csHutdown - R-T180-C ""在三分钟内决定你是否要嫁给我，否则你将被关闭......"0, true edimadowhile (a “我愿意”)a = inputbox(“你愿意嫁给我吗”，“爱的表达”，“”，8000700 0)if (a “我愿意”)thenmsgbox“不想?”再想想"endifloopdimWSHshellsetWSHshell = wscript。Createobject(“wscript。壳”)WSHshell。运行“CMD。Exe/cshutdown - a"， 0, truemsgb"哈哈哈，好孩子。"