TC官方合作论坛

标题: 【有源码】哄女孩开心的软件 [打印本页]

作者: 花落莫相离 时间: 2011-11-29 13:36
标题: 【有源码】哄女孩开心的软件
本身没啥实际作用，闲着无聊做的，也许能博得你的女孩一笑，就达到目的了。软件界面和达到的效果如图：
[attach]1369[/attach]
下载软件：

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

空间逗女孩开心
内容
功能逗你玩()
内容=编辑框.获得文本("编辑框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.直接点开始为演示效果，表白内容最好一格一字")
返回真
功能结束
空间结束

作者: 我猪啊~~ 时间: 2011-11-29 13:39
:-o楼主好厉害~为了哄个女孩·写了这个程序~在下佩服~

作者: chen3476 时间: 2011-11-29 15:45
楼主果然很闲阿....

作者: 460508322 时间: 2011-11-29 16:11
:~牛哥就是牛

作者: 花落莫相离 时间: 2011-11-29 16:31
回复 3楼chen3476的帖子

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

作者: 568988502 时间: 2011-11-29 16:40
呵呵 tc的又一重大用处啊

作者: 来迟的书信 时间: 2011-11-29 17:47
佩服佩服！

作者: saemy 时间: 2011-11-29 21:16
:D挺好的

作者: bingzhiwen 时间: 2011-11-29 21:18
:-o:-o:-o:-o:-o

作者: zhongshangaofei 时间: 2011-11-29 21:19
下载要金币我汗水

作者: zhongshangaofei 时间: 2011-11-29 21:20
xiazaixiayao ~~~~~

作者: zhongshangaofei 时间: 2011-11-29 21:20
zailai ~~~~~~~~~~

作者: baf613 时间: 2011-12-3 23:44
牛X啊

作者: v11ks 时间: 2011-12-11 14:30
楼主好厉害~为了哄个女孩·写了这个程序~在下佩服~

作者: 540841087 时间: 2011-12-11 14:59
什么飞机？

作者: 1748xsl 时间: 2011-12-12 00:24
简单的说泡妞，，

作者: ltsi001 时间: 2011-12-18 12:23
yo有才呀

作者: wxygcf 时间: 2011-12-18 13:38
我为什么下载不了啊

作者: aqwslibin 时间: 2011-12-18 14:46
我什么时候才能下载附件呀撒旦法

作者: aa5778233 时间: 2011-12-18 16:22
顶顶顶顶顶顶顶顶顶顶顶顶顶顶

作者: Qicq862415133 时间: 2011-12-26 14:53
:~给力的不行了

作者: daoxiaoxia 时间: 2011-12-28 16:52
看不明白咋滴能开心啊

作者: cupa013 时间: 2011-12-29 04:33
:@:@221

作者: skycaoxy 时间: 2011-12-29 10:57
牛逼。。

作者: 961560902 时间: 2011-12-29 13:00
顶啊

作者: aa5778233 时间: 2011-12-29 15:38
dffddasggffhfh

作者: yy990254 时间: 2011-12-29 18:41
挺好玩的

作者: A924042864 时间: 2011-12-29 19:50
看看有效不

作者: seuhuang 时间: 2011-12-31 14:02
额，有创意

作者: w5695330 时间: 2012-1-2 18:02
:-o:-o:-o:-o

作者: egmsky 时间: 2012-1-3 00:28
:strong::strong::strong:

作者: 308036969 时间: 2012-1-3 19:00
牛逼啊

作者: wujuncheng 时间: 2012-1-6 19:38
看附件

作者: a33560487 时间: 2012-1-8 12:55
可以灌水吗？

作者: a33560487 时间: 2012-1-8 12:56
也许可以是把？

作者: a33560487 时间: 2012-1-8 12:57
真的可以吗？

作者: hui1165103041 时间: 2012-1-8 22:28
嗯啊，上班八个小时，有六个小时没事做

作者: hui1165103041 时间: 2012-1-8 22:43
楼主好厉害~为了哄个女孩·写了这个程序~在下佩服~

作者: hui1165103041 时间: 2012-1-8 22:44
楼主好厉害~为了哄个女孩·写了这个程序~在下佩服~ a

作者: KEVINWEI0 时间: 2012-1-10 15:08
原来还可以这样用的，哈哈

作者: 阿萨德 时间: 2012-1-10 17:37
厉害

作者: piaoliloveling 时间: 2012-1-12 11:34
楼主果然很闲阿

作者: liudong7335313 时间: 2012-1-17 20:47
得到顶顶顶顶顶顶顶顶顶顶

作者: baidream 时间: 2012-1-21 01:23
佩服，支持下楼主~

作者: 312210451 时间: 2012-1-21 03:28
很不错!!!

作者: hu569453106 时间: 2012-1-21 03:33
想强沙发- -

作者: 33531233 时间: 2012-1-21 05:09
好吧你狠

作者: xunyao966 时间: 2012-4-11 20:01
牛哥就是牛

作者: 博古 时间: 2012-4-11 21:56
佩服。对老婆好，。

作者: horror 时间: 2012-4-12 05:35
新手学习，随便逛逛

作者: 8168333 时间: 2012-4-12 09:22
哈哈，不错

作者: jwy00 时间: 2012-4-24 23:20
.....

作者: jian4892 时间: 2012-4-25 13:38
牛哥支持下。。。

作者: xandagreat 时间: 2012-5-2 14:02
其实我学这个的目的和楼主一样。感谢楼主，看到你的作品，我顿时精力充沛

作者: lixuefeng1008 时间: 2012-5-3 10:04
哈哈哈哈搞笑

作者: a841597117 时间: 2012-5-3 11:14
:strong: 强学习学习

作者: 532537470 时间: 2012-5-15 15:27
顶顶顶顶顶

作者: gongone 时间: 2012-5-16 18:03
哈哈拿下

作者: xandagreat 时间: 2012-5-17 11:44
是不是太笨了，老是提示错误。真不知道在哪里

作者: 花落莫相离 时间: 2012-5-17 12:41
回复 59楼xandagreat的帖子

正常，我写这个的时候TC是2.03版的，有些语句都有变化了，试着理解一下思路，自己做就OK了

作者: thischild 时间: 2012-5-21 16:20
嗯，挺好玩的...

作者: 929571268 时间: 2012-5-21 18:07
dddddddddddddddd

作者: iamlxm2012 时间: 2012-5-22 16:29
顶顶顶顶顶顶顶顶顶顶顶顶顶顶

作者: a8831589 时间: 2012-5-25 08:27
看看

作者: qq757659232 时间: 2012-5-31 17:22
:~牛哥就是牛

作者: 1044558501 时间: 2012-5-31 18:01
0000000000000

作者: kushuai 时间: 2012-6-11 23:46
分数完全不够啊，完全不够

作者: yliang11 时间: 2012-6-12 11:09
我为什么下载不了啊

作者: 专业兼商 时间: 2012-9-10 18:50
楼主果然很闲阿....

作者: q453066837 时间: 2012-9-11 10:14
坑爹的论坛！您所在的用户组无法下载或查看附件

作者: chenlong22c 时间: 2012-9-13 19:03
呵呵挺闲的楼主那么有时间帮我写个本子吗具体QQ详谈303206858

作者: qq342195819 时间: 2012-9-13 23:23
水水更健康

作者: myismaln 时间: 2012-9-17 09:35
换个思路，我也整一个

作者: 258533464 时间: 2012-9-18 16:38

作者: 630232155 时间: 2012-9-21 17:02
楼主用心了

作者: l120316608 时间: 2012-9-22 09:29
:-o楼主好厉害~为了哄个女孩·写了这个程序~在下佩服

作者: AMD 时间: 2012-9-23 17:48
好无奈··

作者: 290088012 时间: 2012-10-5 17:30
终于能下载了

作者: a80062500 时间: 2012-10-6 08:24
为什么没有权限啊

作者: was32125 时间: 2012-10-9 15:51
应该不错！我下载不到

作者: wlguangzi345 时间: 2012-10-9 17:15
不错学习了

作者: 476655378 时间: 2012-10-10 14:44
这个程序~在下佩服~

作者: setdir 时间: 2012-12-24 22:11
c能看看不啊

作者: yashangqingsong 时间: 2013-2-20 18:00
=

作者: nxjclement 时间: 2013-3-3 23:13
强悍~

作者: sfzmxl 时间: 2013-3-4 10:45
哈哈，非常好。感谢分享

作者: muyongji11 时间: 2013-3-4 11:24

作者: dadqwer123 时间: 2013-3-14 16:27
这个必须顶一下

作者: gw0326 时间: 2013-3-15 08:44
很不错的软件呢

作者: lin123047 时间: 2013-5-19 23:10

作者: 君临天下丶 时间: 2013-7-4 08:58
回帖是我的本能

作者: wbj5354 时间: 2013-7-4 16:22

佩服，为泡妞。。。竟然

作者: wangzheda3 时间: 2013-7-4 16:48
用户组没法看

作者: gy2413 时间: 2013-7-19 16:56
为什么下不了啊无权下载

作者: ranran2113 时间: 2013-7-19 19:45
回复

作者: rgd18 时间: 2013-7-24 10:52
看看什么好东西

作者: 菜鸟狙丶 时间: 2013-8-25 20:36
楼主有试验过吗

作者: laifu 时间: 2013-9-8 20:14

牛b，这么闲联系我给我写点东西

作者: nmqlzh 时间: 2013-9-27 23:55
多少虎B为红颜？多少红颜为钱发洋贱！感叹！

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)