超级情人连接程序(完美改善版) - 中国DOS联盟论坛

建议大家下载附件！效果更好！
============================================
::本代码由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
if %smilediao% lss 50 (for /l %%b in (1,1,%smilediao%) do set /p=^><nul&ping -n 2 127.1>nul) else goto zhengchang
cls&echo.&echo.&echo.&echo.
echo 对不起，连接失败！
set /p ques=请问,您是否愿意为%name2%付出一切(y/n)?
if "%ques%"=="y" (echo 您的诚心感动的上帝，请按任意键进行第二次连接&pause>nul&cls&echo.&echo.&echo.&echo.&echo 正在连接%name1%和%name2%...&goto zhengchang) else (cls&echo.&echo.&echo.&echo 你不愿为她付出一切,你将永远不会得到她&ping -n 4 127.1>nul&exit)
:zhengchang
for /l %%a in (1,1,50) do set /p=^><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&color 0c
echo.
echo 问 ⊙⊙⊙ ⊙⊙⊙ 直
echo 世 ⊙ ⊙ ⊙ 教
echo 间 ⊙ ⊙ 人
echo 情 ⊙ ⊙ 生
echo 为 ⊙ ⊙ 死
echo 何 ⊙ ⊙ 相
echo 物 ⊙ ⊙ 许
echo ⊙ ⊙
echo 愿天下有情人终成眷属
echo ⊙⊙⊙⊙⊙⊙⊙⊙⊙⊙
pause>nul

[ Last edited by smilediao on 2007-10-18 at 11:21 PM ]

第1楼　smilediao	发表于 2007-10-18 12:36
初级用户　发帖 17　积分 55
超级情人连接程序(完美改善版) 建议大家下载附件！效果更好！ ============================================ ::本代码由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 if %smilediao% lss 50 (for /l %%b in (1,1,%smilediao%) do set /p=^><nul&ping -n 2 127.1>nul) else goto zhengchang cls&echo.&echo.&echo.&echo. echo 对不起，连接失败！ set /p ques=请问,您是否愿意为%name2%付出一切(y/n)? if "%ques%"=="y" (echo 您的诚心感动的上帝，请按任意键进行第二次连接&pause>nul&cls&echo.&echo.&echo.&echo.&echo 正在连接%name1%和%name2%...&goto zhengchang) else (cls&echo.&echo.&echo.&echo 你不愿为她付出一切,你将永远不会得到她&ping -n 4 127.1>nul&exit) :zhengchang for /l %%a in (1,1,50) do set /p=^><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&color 0c echo. echo 问 ⊙⊙⊙ ⊙⊙⊙ 直 echo 世 ⊙ ⊙ ⊙ 教 echo 间 ⊙ ⊙ 人 echo 情 ⊙ ⊙ 生 echo 为 ⊙ ⊙ 死 echo 何 ⊙ ⊙ 相 echo 物 ⊙ ⊙ 许 echo ⊙ ⊙ echo 愿天下有情人终成眷属 echo ⊙⊙⊙⊙⊙⊙⊙⊙⊙⊙ pause>nul [ Last edited by smilediao on 2007-10-18 at 11:21 PM ] 附件超级情人连接(完美改善版).rar (1 KiB) 效果图1.JPG (15.3 KiB) 效果2.JPG (25.64 KiB)

第2楼　long626201	发表于 2007-10-18 14:40
初级用户　发帖 52　积分 100　来自云南
收了

第3楼　smilediao	发表于 2007-10-18 15:24
初级用户　发帖 17　积分 55
谢谢了！最近论坛的人很少啊！不知道怎么回事！大家都来测试啊！活动活动！

第4楼　67411666	发表于 2007-10-18 20:34
初级用户　发帖 25　积分 45
不错

第5楼　xunge	发表于 2007-10-18 21:15
初级用户　发帖 11　积分 24
强，看来学好P处理还有很长的一段路要走

第6楼　lan305242050	发表于 2007-10-18 21:30
新手上路　发帖 5　积分 9
有点意思.....

第7楼　smilediao	发表于 2007-10-18 21:38
初级用户　发帖 17　积分 55
看到你们的回复我真的很欣慰，我会继续努力的！

第8楼　dibei	发表于 2007-10-18 22:43
初级用户　发帖 46　积分 93　来自南京
哈哈不错的东西收藏啦

第9楼　putao	发表于 2007-10-18 23:13
初级用户　发帖 41　积分 80
收藏了~ 谢谢~好东东

第10楼　smilediao	发表于 2007-10-18 23:19
初级用户　发帖 17　积分 55
越来越兴奋了我！大家太看得起我了！我把效果图也发了上来！ [ Last edited by smilediao on 2007-10-18 at 11:22 PM ] 附件效果3.JPG (12.69 KiB)

第11楼　smilediao	发表于 2007-10-20 09:10
初级用户　发帖 17　积分 55
才一天没来就沉了。。。。。。。

第12楼　xeibobin	发表于 2007-10-20 11:44
初级用户　发帖 48　积分 87
不错，留下来！！呵呵

第13楼　tty998	发表于 2007-10-22 20:20
新手上路　发帖 2　积分 4
收藏啦！！呵呵

第14楼　wydos	发表于 2007-10-23 10:17
中级用户　发帖 117　积分 304
有意思，先收藏了！

第15楼　nforce1	发表于 2007-10-23 17:54
初级用户　发帖 16　积分 128
呵呵.这个不错哦.收藏.谢谢