【有源码】哄女孩开心的软件

花落莫相离

本身没啥实际作用，闲着无聊做的，也许能博得你的女孩一笑，就达到目的了。软件界面和达到的效果如图：

下载软件：

实现过程：新建八个文件夹，并给每个文件夹重命名，八个文件夹的名字依先后次序组成一句话，最后弹出消息框显示你的真心的表白。文件夹名字和消息框内容可以通过界面编辑框重新命名，如果什么都不填，点开始按钮为图上的演示效果。
代码如下：

空间 逗女孩开心
内容
功能 逗你玩()
内容=编辑框.获得文本("编辑框0")
如果(字符串.长度(编辑框.获得文本("编辑框0"))==0)
辅助.写入剪切板("猪头")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(300,600)
辅助.等待(1000)
鼠标.右键单击(1)
辅助.等待(50)
键盘.按键(87,1)
辅助.等待(50)
键盘.按键(70,1)
辅助.等待(50)
键盘.按下(17)
辅助.等待(50)
键盘.按键(86,1)
辅助.等待(50)
键盘.弹起(17)
辅助.等待(50)
键盘.按键(13,1)
辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框1")
如果(字符串.长度(编辑框.获得文本("编辑框1"))==0)
辅助.写入剪切板("是")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(400,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框2")
如果(字符串.长度(编辑框.获得文本("编辑框2"))==0)
辅助.写入剪切板("我")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(500,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(3000)
  
内容=编辑框.获得文本("编辑框3")
如果(字符串.长度(编辑框.获得文本("编辑框3"))==0)
辅助.写入剪切板("永")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(550,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框4")
如果(字符串.长度(编辑框.获得文本("编辑框4"))==0)
辅助.写入剪切板("远")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(650,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框5")
如果(字符串.长度(编辑框.获得文本("编辑框5"))==0)
辅助.写入剪切板("的")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(700,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框6")
如果(字符串.长度(编辑框.获得文本("编辑框6"))==0)
辅助.写入剪切板("宝")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(800,600)
辅助.等待(1000)
鼠标.右键单击(1)
  辅助.等待(50)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
  辅助.等待(2000)
  
内容=编辑框.获得文本("编辑框7")
如果(字符串.长度(编辑框.获得文本("编辑框7"))==0)
辅助.写入剪切板("贝")
否则
辅助.写入剪切板(内容)
如果结束
鼠标.移动(850,600)
辅助.等待(50)
鼠标.右键单击(1)
  辅助.等待(1000)
  键盘.按键(87,1)
  辅助.等待(50)
  键盘.按键(70,1)
  辅助.等待(50)
  键盘.按下(17)
  辅助.等待(50)
  键盘.按键(86,1)
  辅助.等待(50)
  键盘.弹起(17)
  辅助.等待(50)
  键盘.按键(13,1)
辅助.等待(50)
  辅助.等待(2000)
     
内容=编辑框.获得文本("编辑框8")
如果(字符串.长度(编辑框.获得文本("编辑框8"))==0)
辅助.消息框("唱一首情歌，送给我的老婆。这么多年你默默付出真的辛苦了。简单幸福的岁月，我们曾一起走过。眼泪笑声填满了我们平凡的生活。")
否则
辅助.消息框(内容)
返回 真
如果结束
功能结束
功能 开始_点击()
//这里添加你要执行的代码
逗女孩开心.逗你玩()
返回 真
//函数返回语句
功能结束
功能 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束

功能 按钮0_点击()
按钮.设置文本("按钮0","开")
辅助.播放("d:\\哄女孩开心\\only lonely.wma")
辅助.等待(3000)
返回 真
功能结束

功能 按钮1_点击()
辅助.消息框("1.软件解压缩到D盘下。2.运行环境在桌面空白处，尽量保证桌面干净。3.直接点开始为演示效果，表白内容最好一格一字")
返回 真
功能结束
空间结束

我猪啊~~

:-o楼主好厉害~为了哄个女孩·写了这个程序~在下佩服~

chen3476

楼主果然很闲阿....

460508322

:~牛哥就是牛

花落莫相离

回复 3楼chen3476的帖子

:P嗯啊，上班八个小时，有六个小时没事做

568988502

呵呵  tc的又一重大用处啊

来迟的书信

佩服佩服！

saemy

:D挺好的

bingzhiwen

:-o:-o:-o:-o:-o

zhongshangaofei

下载要金币我汗水