中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
作者:
标题: 超级情人连接程序[原创] 上一主题 | 下一主题
smilediao
初级用户





积分 55
发帖 17
注册 2007-8-28
状态 离线
『楼 主』:  超级情人连接程序[原创]

建议大家下载运行,效果更好! ::本代码由smilediao编写,如有问题请联系qq379389449 @echo off&color 0a&mode con cols=55 lines=11&title 超级情人连接程序 echo ★★★★★★★★★★★★★★★★★★ echo ★ 超级情人连接程序 ★ echo ★★★★★★★★★★★★★★★★★★ echo -by smilediao pause set /p name1=请输入您的姓名: set /p name2=请输入她的姓名: set /a smilediao=%random%%%100+1 echo 您和她的连接成功机率为%smilediao%,请确定是否和她建立连接(y/n) set /p choice= if "%choice%"=="y" (goto start) else (exit) :start cls echo.&echo. echo 正在连接%name1%和%name2%... echo.&echo.&echo.&echo. set /p= =================================================<nul set /p=<nul for /l %%a in (1,1,50) do set /p=^%s%%><nul&ping -n 1 127.1>nul ping -n 2 127.1>nul&cls echo.&echo.&echo.&echo. echo 恭喜您!%name1%和%name2%连接成功! for /l %%a in (1,1,5) do (color 46&echo &ping -n 1 127.1>nul&color 64&echo &ping -n 1 127.1>nul ) echo 在此%name1%想要对%name2%说: echo.&echo.&echo.&echo.&echo. ping -n 2 127.1>nul mshta vbscript:createobject("sapi.spvoice").speak("I love you")(window.close) cls&echo.&echo.&echo.&color 74 echo 愿天下有情人终成眷属 pause>nul [ Last edited by smilediao on 2007-10-17 at 11:16 AM ]


   此帖被 +9 点积分      点击查看详情   
评分人:【 jmz573515 分数: +7  时间:2007-10-16 20:20
评分人:【 huzixuan 分数: +2  时间:2007-10-17 10:24


附件 1: 超级情人连接.rar (2007-10-16 20:02, 694 bytes,下载次数: 39)
2007-10-16 18:45
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 2 楼』:  

有意思,支持原创!


2007-10-16 20:20
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
smilediao
初级用户





积分 55
发帖 17
注册 2007-8-28
状态 离线
『第 3 楼』:  

谢谢支持!呵呵。。。。


2007-10-16 22:00
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
fengwei
新手上路





积分 2
发帖 2
注册 2008-1-9
状态 离线
『第 4 楼』:  

顶一下拉~~


2008-2-3 22:37
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
rain1874
新手上路





积分 2
发帖 1
注册 2008-2-2
状态 离线
『第 5 楼』:  

有意思,呵呵。学习学习。


2008-2-4 00:07
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
wxcute
中级用户





积分 458
发帖 211
注册 2006-7-26
状态 离线
『第 6 楼』:  

挺好玩的,呵呵 。


2008-2-4 00:51
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: