[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[游戏娱乐] 批处理超级情人连接(第三次升级版)

此版增加了背景播放功能,取消了原来连接成功时的鸣镝声,在结束时不要按关闭号来关闭,请按任意键结束,这样程序将会自动为您结束背景音乐,然后删除临时文件!
  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文件放在同一个文件夹里,然后运行即可。
笔者曾经多次对次程序进行修改完善,这可能是最后一版了,以后将不会在有升级版了!这个的效果很不错。
2

评分人数

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

TOP

果然超强~~~
佩服呀~~~
1

评分人数

TOP

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

TOP

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

TOP

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

TOP

晕了,我和她连不上``
忆往昔笑豺狼哭叱咤天地风云际望今朝笑贫不笑娼人民不敌人民币

TOP

很好啊!
很好啊!
支持,可惜我没有女朋友啊!

TOP

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

TOP

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

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

TOP

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

TOP

全都是版主啊,就我一个农民啊................
Software is like sex: it's better when it's free..!

TOP

回复 2# 的帖子

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

TOP

有耐心

TOP

返回列表