中国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 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 ]

有意思，支持原创！

谢谢支持！呵呵。。。。

顶一下拉~~

有意思，呵呵。学习学习。

挺好玩的，呵呵 。