本身没啥实际作用,闲着无聊做的,也许能博得你的女孩一笑,就达到目的了。软件界面和达到的效果如图:
下载软件:
实现过程:新建八个文件夹,并给每个文件夹重命名,八个文件夹的名字依先后次序组成一句话,最后弹出消息框显示你的真心的表白。文件夹名字和消息框内容可以通过界面编辑框重新命名,如果什么都不填,点开始按钮为图上的演示效果。
代码如下:
空间 逗女孩开心
内容
功能 逗你玩()
内容=编辑框.获得文本("编辑框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.直接点开始为演示效果,表白内容最好一格一字")
返回 真
功能结束
空间结束
|