建议大家下载附件！效果更好！
============================================
::本代码由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 ]
============================================
::本代码由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 ]