用C++编个程序送给女朋友

用C++编个程序送给女朋友,第1张

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#include "conio.h"

void main()

{

int year=0,month=0,day=0,hour=0,mintue=0,second=0

printf("Input the day you tell your trues:(Year-Mou-Day-Hour-Min-Sec,default for 0):\n")

scanf("%d-%d-%d-%d-%d-%d",&year,&month,&day,&hour,&mintue,&second)

system("cls")

time_t now,trues,toget

while(1)

{

struct tm truest = {second,mintue,hour,day,month-1,year-1900}

now = time(NULL)

trues=mktime(&truest)

printf("now is %s\n",ctime(&now))

printf("the day you tell your trues:%s\n",ctime(&trues))

toget = (now-trues)/3600/24

printf("days together:%d\n",toget)

toget = (now-trues)/3600

printf("hours together:%d\n",toget)

toget = (now-trues)/60

printf("mintues together:%d\n",toget)

toget = (now-trues)

printf("seconds together:%d\n",toget)

_sleep(1000)

system("cls")

}

}

祝你成功

一,偷拍她的生活不经意的照片和偷录她的日常说话。以及合并你们过往的生活点滴影像资料。最后自己制作一个附加你亲自演唱的情歌的mv送给她。记得mv开头和结尾,里面要有你最深情的告白呦~如果时间和条件都允许的话。最好,自己写词找专业人士给你谱曲,做mv。文件不大的话,发到她的邮箱里,她自己无意间的点看,相信效果会更令人惊喜感动。

二,在郊区种一棵以她名字命名的树,私下浇灌,每次都把亲自浇灌的感言和影像录下来,做今后的凭证。和纪念。

三,背着她把她父母或家人的心愿完成一两个,她知道后也会很感动的。

四,精心布置好一桌晚宴,每个菜都由她的名字的谐音或寓意。饭后带她去你实现布置好的水畔树林,走几步就会看到某棵树上有你对她的留言或思念或祝福。当走到最后那棵树的时候,书上是以上帝的名义告诉她,你是她此生值得托付的人。并祝福你们。或者在水边假装放一个漂流瓶。里面的瓶中信就代表耶稣的口吻说上面的话。你只要把她的心愿和喜好都深藏于心,相信好点子会成出不穷。兄弟,祝你成功!幸福!

'Form1.Visible改为False,另外添加一个Timer,Interval设为1

'以下代码直接复制到代码框就好

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()

MsgBox "你真的要打开这个文件?……", vbInformation, "TZW Computer SOHO"

MsgBox "不要再打开啦!" + String(2, Chr(13)) + "里面可能会有……那个东西的哦!", vbInformation, "TZW Computer SOHO"

MsgBox "你真的要千万想清楚才好啊……" + String(2, Chr(13)) + "不然的话……", vbCritical, "TZW Computer SOHO"

Form1.Hide

Timer1.Enabled = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

MsgBox "先别走那么快,卖段广告再说嘛…………:" + String(2, Chr(13)) + "精品软件,尽在 TZW Computer SOHO!" + String(2, Chr(13)) + "谢谢捧场!谢谢捧场! ——TZW :)", vbInformation, "请等一下,就一下就好……"

End Sub

Private Sub Timer1_Timer()

Static abc As Integer

SetCursorPos Rnd * Screen.Width / Screen.TwipsPerPixelX, Rnd * Screen.Height / Screen.TwipsPerPixelY

abc = abc + 1

If abc = 500 Then MsgBox "我都说过不要打开的啦!" + String(2, Chr(13)) + "你又不相信~~~~~~~~~" + String(2, Chr(13)) + "你看现在就变成这个样子了!唉~~~~~~~~~~~", vbOKOnly, "TZW's Joke": Unload Form1

End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/8125009.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-13
下一篇 2023-04-13

发表评论

登录后才能评论

评论列表(0条)

保存