批处理超级情人连接（第三次升级版）

smilediao

此版增加了背景播放功能，取消了原来连接成功时的鸣镝声，在结束时不要按关闭号来关闭，请按任意键结束，这样程序将会自动为您结束背景音乐，然后删除临时文件！

1. @echo off&color 0a&mode con cols=55 lines=11&title 超级情人连接程序
   
2. echo set diao=createobject("wmplayer.ocx")>x.vbs&echo diao.url="smilediao.mp3">>x.vbs&echo wscript.sleep 1200>>x.vbs&echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs&start x.vbs
   
3. echo          ★★★★★★★★★★★★★★★★★★
   
4. echo          ★  超级情人连接程序(完美改善版)  ★
   
5. echo          ★★★★★★★★★★★★★★★★★★
   
6. echo                                    -by smilediao
   
7. pause
   
8. set /p name1=请输入您的姓名:
   
9. set /p name2=请输入她的姓名:
   
10. set /a smilediao=%random%%%100+1
    
11. echo  您和她的连接成功机率为%smilediao%,请确定是否和她建立连接(y/n)
    
12. set /p choice=
    
13. if "%choice%"=="y" (goto start) else (exit)
    
14. :start
    
15. cls&echo.&echo.
    
16. echo                  正在连接%name1%和%name2%...
    
17. echo.&echo.&echo.&echo.
    
18. set /p= =================================================<nul
    
19. set /p=<nul
    
20. if %smilediao% lss 50 (for /l %%b in (1,1,%smilediao%) do set /p=^><nul&ping -n 2 127.1>nul) else (goto zhengchang)
    
21. cls&echo.&echo.&echo.&echo.
    
22. echo                    对不起，连接失败！
    
23. set /p ques=请问,您是否愿意为%name2%付出一切(y/n)?
    
24. 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)
    
25. :zhengchang
    
26. for /l %%a in (1,1,50) do set /p=^><nul&ping -n 1 127.1>nul
    
27. ping -n 2 127.1>nul&cls
    
28. echo.&echo.&echo.&echo.
    
29. echo              恭喜您！%name1%和%name2%连接成功！
    
30. for /l %%a in (1,1,5) do (color 46&ping -n 1 127.1>nul&color 64&ping -n 1 127.1>nul )
    
31. cls&echo.&echo.&echo.&echo.
    
32. echo                在此%name1%想要对%name2%说:
    
33. echo.&echo.&echo.&echo.&echo.
    
34. ping -n 2 127.1>nul
    
35. mshta vbscript:createobject("sapi.spvoice").speak("I love you")(window.close)
    
36. cls&color 0c
    
37. echo.
    
38. echo       问            ⊙⊙⊙   ⊙⊙⊙              直
    
39. echo       世           ⊙     ⊙      ⊙             教
    
40. echo       间          ⊙               ⊙            人
    
41. echo       情          ⊙               ⊙            生
    
42. echo       为           ⊙             ⊙             死
    
43. echo       何             ⊙         ⊙               相
    
44. echo       物               ⊙     ⊙                 许
    
45. echo                          ⊙ ⊙
    
46. echo                   愿天下有情人终成眷属
    
47. echo                   ⊙⊙⊙⊙⊙⊙⊙⊙⊙⊙
    
48. pause>nul
    
49. wmic process where name='wscript.exe' call terminate>nul
    
50. del /f /q x.vbs

复制代码

复制以上代码，保存为bat文件，然后选择一首你喜欢的mp3歌曲，改名为smilediao.mp3，把mp3和bat文件放在同一个文件夹里，然后运行即可。
笔者曾经多次对次程序进行修改完善，这可能是最后一版了，以后将不会在有升级版了！这个的效果很不错。

小强

有耐心

smilediao

不是耐心问题！而是我喜欢这个程序，自己觉得很有创意！呵呵。。。

somebody

全都是版主啊，就我一个农民啊................

hisplay

不是吧......你们都是当官的。..就我..............晕.........

523066680

哈 我是种番薯的！
这个批处理真的很有创意 尤其是失误部分……我还以为真的……
结果再次链接 ，（自己随便打了名字，看起来很搞笑）

太可惜了 我现在还没有打分的权限……

CZT

太强了
我还好多代码都看不懂
还要加油学啊
特别是VBS脚本部分
都不知道是个什么花啊！

wangwei4106

很好啊！
很好啊！
支持，可惜我没有女朋友啊！

start

晕了,我和她连不上``

dgyd

终于知道如何做背景音乐了

semiuel

在这个帖子了,我学到了很多东西.
谢谢楼主.

simplemen

对主题有疑问，不知道它连接了什么，里面既没看到机器我也没看到IP更加没看到网址...

Peking007

果然超强～～～
佩服呀～～～

wzahj

怎么样把名字改为可以输入中文呢？、？