标题: 超级情人连接程序[原创] [打印本页]

---

作者: smilediao     时间: 2007-10-16 18:45    标题: 超级情人连接程序[原创]

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

附件 1: 超级情人连接.rar (2007-10-16 20:02, 694 bytes,下载次数： 39)

---

作者: jmz573515     时间: 2007-10-16 20:20
有意思，支持原创！

---

作者: smilediao     时间: 2007-10-16 22:00
谢谢支持！呵呵。。。。

---

作者: fengwei     时间: 2008-2-3 22:37
顶一下拉~~

---

作者: rain1874     时间: 2008-2-4 00:07
有意思，呵呵。学习学习。

---

作者: wxcute     时间: 2008-2-4 00:51
挺好玩的，呵呵 。